Warning for samot: 9. Do not sign your posts.

Kaubel · 09/03/09, 7:35 PM

Post: Warrior DPS Calculation Spreadsheet
User: samot
Infraction: 9. Do not sign your posts.
Points: 0

Administrative Note:

Message to User:

We can read your profile.

Original Post:

I found a quick and dirty solution for the #VALUE problem by runnig SEP.

- Open the VBA macro editor by pressing Alt-F11
- go into Module7 (it contains the Sub SEP() as first function)
- search for the comment 'MHSpd and comment out all its lines by adding a ' before it
- search for the comment 'OHSpd and comment out all its lines by adding a ' before it
- Save and run SEP

I don't know, what exactly it does and how it effects the result, but because the most weapons have a similar speed (3.3 in the most cases), the result should be good enought.

'MHRng
    range("E101").FormulaR1C1 = _
        "=R[0]C[-2]"
    
    range("E91").Copy
    range("F101").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.CutCopyMode = False
        
    range("E101").FormulaR1C1 = _
        "=0"
        
'MHSpd
  '  range("E102").FormulaR1C1 = _
        "=R[0]C[-2]"
    
  '  range("E91").Copy
  '  range("F102").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
  '      Application.CutCopyMode = False
        
  '  range("E102").FormulaR1C1 = _
        "=0"
        
'OHRng
    range("E103").FormulaR1C1 = _
        "=R[0]C[-2]"
    
    range("E91").Copy
    range("F103").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.CutCopyMode = False
        
    range("E103").FormulaR1C1 = _
        "=0"
        
'OHSpd
   ' range("E104").FormulaR1C1 = _
        "=R[0]C[-2]"
    
   ' range("E91").Copy
   ' range("F104").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   '      Application.CutCopyMode = False
        
   '  range("E104").FormulaR1C1 = _
        "=0"

'SEP=?DPS
    range("g89").Copy
    range("f23").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.CutCopyMode = False

@Landsoul:
you should add a "none" line to T219, otherwise you would get an #N/A at Y17 (if you choose "none" as trinket)

best regards
Thomas