copy cell based on an empty cell in the same row

[Matheson843]

Hi,

I need to copy a cell into another spread sheet contingent on whether or not another cell in the row is empty.

For example, I need to copy cell A5 because D5 is empty.. However, if D5 was not empty I would not need to copy A5.

I don't need this macro to loop.

Please help!

Thanks in advance!!

 

[hippiehacker]

how about?

Sub math()
If Range("D5").Value <> "" Then Range("A5").Copy Sheets("Sheet2").Range("A5")
End Sub

 

[Matheson843]

Hi Hippiehacker,

Thanks for the response!

However, if D5 is empty I would like the macro to move down to the next cell D6, check if it's empty, and then copy it accordingly.

Any other suggestions??

Thanks!