G
Guest
Hello I have the following macro but I would like to rather than insert the
value to insert a IF formula:
Dim LastRow As Long
LastRow = Worksheets("Sheet A").Range("O2")
Sheets("Registry").Select
Range("B" & LastRow) = "=Row(B" & LastRow - 1 & ")"
Range("C" & LastRow) = Worksheets("Sheet A").Range("K2")
Range("D" & LastRow) = Worksheets("Sheet A").Range("K12")
For the 2 last lines, I would like that instead of inserting values K2 and
K12, I would like to insert a IF formula on Sheet "Registry"
=IF(A&LastRow="X","-",Worksheets("Sheet A").Range("K2"))
substituting with the values would give things like in the cell.
(LastRow = 6)
For C6 =IF(A6="X","-","13500")
For D6 =IF(A6="X","-","21/Oct/06")
and so on...
thanks!
value to insert a IF formula:
Dim LastRow As Long
LastRow = Worksheets("Sheet A").Range("O2")
Sheets("Registry").Select
Range("B" & LastRow) = "=Row(B" & LastRow - 1 & ")"
Range("C" & LastRow) = Worksheets("Sheet A").Range("K2")
Range("D" & LastRow) = Worksheets("Sheet A").Range("K12")
For the 2 last lines, I would like that instead of inserting values K2 and
K12, I would like to insert a IF formula on Sheet "Registry"
=IF(A&LastRow="X","-",Worksheets("Sheet A").Range("K2"))
substituting with the values would give things like in the cell.
(LastRow = 6)
For C6 =IF(A6="X","-","13500")
For D6 =IF(A6="X","-","21/Oct/06")
and so on...
thanks!