Duplicate to adjacent column if that column is blank

[Homeslice01]

Dear all,

I have an easy problem that I can’t seem to get sorted and it’s getting frustrating being so poor at VBA.

I need a macro that will automatically copy the cell value entered in columns B, D, F, H into the same row, left adjacent column (i.e. columns A, C, E, G respectively) only if those cells are blank.

E.G.

When I enter 03/04/2014 into D3
If C3 is blank then
C3 = 03/04/2014

If C3 = 02/04/2014
then do nothing


Thanks boffins.

[daffodil11]

Copy this code directly onto the worksheet code page (not a module) and change the ranges listed below as needed.

Please Login or Register  to view this content.

[Richard Buttrey]

Hi,

A Macro could no doubt be written to do this, but perhaps consider a more pragmatic solution using just functions and helper columns.

Assuming columns to the right of H are free (and if not temporarily add some and then delete them when this process is finished.

In say

I3 enter: =IF(A3="",B3,A3)
J3: =B3
K3: =IF(C3="",D3,C3)
L3: =D3
M3: =IF(E3="",F3,E3)
N3: =F3
O3: =IF(G3="",H3,G3)
P3: =G3

Copy these down as necessary. then copy the whole range I3:Pnn and pates it back as Values to A3. Finally if you've added helper columns delete them.

If you want a macro to do the job I'd be inclined to enshrine the above procedure in the macro.

[Homeslice01]

Thanks Daffodil,

That's twice you've helped me out. Much appreciated.

Richard: Actually, that would have been possible and would be effective. I hadn't considered that... Still, due to the size of my workbook, I'm think I'll go with the VBA solution.