Formula Scripts

Do you have 'currRow' setup somewhere to be set to the value of the current row? I would think you need to reference ROW() instead.

Or, I could be off my rocker.

Originally Posted by TjBoiler

Here is where currRow is defined:

Private Sub CommandButton1_Click()
Dim currRow As Long
ActiveCell.Activate
currRow = ActiveCell.Row
uChoose = MsgBox("Insert new row at " & currRow & "?", vbYesNo, "Please confirm ...")
If uChoose = vbNo Then Exit Sub
'insert new row
Me.Rows(currRow).Insert

try

Please Login or Register  to view this content.

- you are switching r1c1 and A1 formatting on the same row.

hth
---

Originally Posted by TjBoiler

Ok that works! Thank you again, Brian! I have couple questions I hope you don't mind answering.

1. Why do you have to use 1-J rather than using H?
2. If I wanted to use A1 formatting could I have put .formulaR1C1?

I am just learning these items. I appreciate your patience.

Thanks,

TB

Hi,

1-J is incorrect if you intended H, use H

use .formula if you are entering A1 format formula

use .formulaR1C1 if you are entering r1c1 formula, but don't mix the two.

also, where you said 'With' you can use .formula until the End With to refer to that cell.

hth
---

added, noted that your ortiginal formula did

=IF('H5' = 0, 0, D5-(((1-J5)*D5)+E5))

my translation does

=IF(H5 = 0, 0, D5-((1-J5)*D5+E5))

which looks reasonably similar.

---