Find a column by name in row 1 and replace blank cells with the text "Blanks2"...

[VBAProIWish]

Hi,

I'd like a macro to find the column named "Earth" in row 1 and replace ALL and ONLY blank cells with the text "Blanks2"...

BUT...

It should first look at the "Galaxy" column (also in row 1) to find the last row with data in it. Once it knows the last row of data in the "Galaxy" column, the macro should stop putting the text "Blanks2" in the "Earth" column.

This is because the "Earth" column will now have some form of text in every cell equal to the last data row in the "Galaxy" column.

Regards

 

[Fazza]

How is this?

Rows(1).Find(what:="Earth").Resize(Cells(Cells.Rows.Count, Rows(1).Find(what:="Galaxy").Column).End(xlUp).Row).SpecialCells(xlCellTypeBlanks).Value = "Blanks2"

 

[VBAProIWish]

Fazza,

When I first saw this line of code I said to myself "huh, that's only 1 line, it can't be that short", but

INDEED IT IS!

Perfect!

Thank you Thank you!

Regards

 

[Fazza]

Note, it will error if there are no blank cells, so please accommodate that in your code.

 

[VBAProIWish]

Noted,

Thanks