Multiple If Statement

[Matt]

I'm trying to copy data from one cell to another if 2 conditions are satisfied but not having much fun at the moment. I guess you can see from the code underneath what I'm trying to achieve, if J4 is blank and A4 equals March, then copy cell A2 from sheet 4 to the J4 in the current sheet.

Range("J4").Select
If j4 = "" Then
If a4 = "March" Then
ActiveCell.formula = "=sheet4!A2"
End If
End If

Any suggestions?

Thanks

Matt

 

[Barrie Davidson]

Try this

<pre>
If Range("J4").Value = "" And _
Range("A4").Value = "March" Then
Range("J4").Formula = "=Sheet4!A2"
End If
</pre>

Regards,

 

[Matt]

Thanks Barrie