Macro: If cell blank, copy from column next to it

Hi,

I have column A and B.

There are some blank cells in column A. I need a macro that would find these blank cells, and if blank, copy the data that is on the cell right next to it in column B.

Example: A1 is blank, copy from B1; A2 is blank, copy from B2.

Thanks!

You mean like this

Please Login or Register  to view this content.

Sub hsv()
With Columns(1).SpecialCells(4)
.Value = .Offset(, 1).Value
End With
End Sub

Ok this one worked.

So now, what if Column A STILL has blank cells...grab data from next column so, Column C

I have tested mine as well. It works as long as column B is not blank

Maybe something like this?

Please Login or Register  to view this content.

@Harry (hsv)
Harry.
When I use your code, it uses the offset value for the first empty cell at the all the empty cells. (??????)
Groetjes

John

Thanks everyone! For some reason, AB33's macro doesnt work.. :/ not sure why.

So one more.. Let's say that instead of the next column, its a completely different column.

So initial data is in column Z, and if blank...I would like to copy data from column C. I tried:

Sub hsv()
With Columns(25).SpecialCells(4)
.Value = .Offset(, -22).Value
End With
End Sub

It doesn't work.

Is Column Z not Column 26?
Offset accordingly

Hoi Harry.
You're up late in the evening!
Not to worry Harry, it was just an observation.
As you more then likely saw, I went a similar way.

Welterusten

John

@noidea_4

To use HSV's code, it would look something like this:

Please Login or Register  to view this content.

@ Harry
Never even thought about that Harry.
Thank you for setting me straight.

Regards
John

Thanks again!!!
Jolivanes, i'm curious as to what .SpecialCells(4) means?

It means xlCellTypeBlanks Empty cells

Here is one

Please Login or Register  to view this content.