Please help to solve this

[Amiko]

Hi
I have a repetitive task that i am trying to slove by a macro.
I have a cell with a number - lets say cell N4 = 5782.3
Now i would like to change the B4 Cell content to =IF($K4<>0,5728.3,0)

How do i do it?
I have tried the following:
Dim a As Double
a = ActiveCell.Value
ActiveCell.FormulaR1C1 = "=IF(RC4<>0,a,0)"
ActiveCell.Offset(1, 0).Range("A1").Select

But then i get in the cell IF($K4<>0,a,0)

Thanks
Amy

 

[liveinhope]

try this RC[9] IS the cell on same row and 9 cols over from B4 (ie k4) rc[12] is the cell same row and 12 cols over from b4 (ie n4)
no need to select b4 the code sets the formula without selecting the cell

sub amiko1()

Range("b4").Formula = "=IF(RC[9]<>0,RC[12],0)"
end sub



Thanks
Amy[/QUOTE]

 

[kvsrinivasamurthy]

Try this code

Range("B4").Formula = "=IF($K4<>0,N4,0)"