Unable to create macro that pastes values from one column to adjacent blanks

Dear all,

I'm trying to create a Macro that finds all blanks in a specific column (for instance "column AG") and for each blank in that column pastes the corresponden right value of the adjacent column (for instance "column AH").

I tried it with a FOR loop on a range adding an IF for cell.Value=vbNullString, but it doesnt work

Could anyone please post any code which could apply? Thank you very much in advance.

(I hope I explain it clear)

Hi IonutC and thanks for you response.

I need to paste into the blanks of a specific column the adjacent value of the right column.

Example: A column "G" has a range of values from "G1" to "G10", but only two of them are blanks. For example G3 and G6.

The Macro should be able to find these two empty cells and paste into them the values from the cell just on the right ( H3 in the case of G3)

Of course, if H3 is also an empty cell, it will paste nothing :-)

Thanks

Maybe:

Please Login or Register  to view this content.

Originally Posted by IonutC

7 represents the column G as it is the 7th column and 8 is the column H. You can change these numbers according to your example

It works perfectly, IonutC.

It takes a bit of time to do the whole loop, as the columns has many rows, but it's perfect.

Thank you very much!

Originally Posted by lcgar

John

Thanks a lot for your help, but it seems that your code pastes the values two rows below the adjacent row. In any case it's clear that you're an expert and provide a solution out of my still basic understanding :-P.

Thank you very much, anyway!

Are you sure you included the comma in the Offset? Refer too red below.

Please Login or Register  to view this content.

Originally Posted by JOHN H. DAVIS

Are you sure you included the comma in the Offset? Refer too red below.

Please Login or Register  to view this content.

Yes, I did!