Multiple If Statement

Matt · Mar 26th, 2002, 08:06 AM

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 · Mar 26th, 2002, 08:44 AM

Try this



If Range("J4").Value = "" And _

    Range("A4").Value = "March" Then

        Range("J4").Formula = "=Sheet4!A2"

End If

Regards,

Matt · Mar 26th, 2002, 09:16 AM

Thanks Barrie

Mar 26th, 2002, 08:44 AM	#2
Barrie Davidson MrExcel MVP Join Date: Feb 2002 Location: Winnipeg Posts: 2,330	Try this If Range("J4").Value = "" And _ Range("A4").Value = "March" Then Range("J4").Formula = "=Sheet4!A2" End If Regards, __________________ Barrie Davidson "You're only given a little spark of madness. You mustn't lose it." - Robin Williams

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 26th, 2002, 08:06 AM	#1
Matt Board Regular Join Date: Feb 2002 Location: England Posts: 212	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

Mar 26th, 2002, 09:16 AM	#3
Matt Board Regular Join Date: Feb 2002 Location: England Posts: 212	Thanks Barrie