Fill cells with data by VBA

[Michael M]

Hi All
I currently have 2700 rows of data that I need to repopulate.
What I am trying to do is:
Column "D" has a 4 digit number on each row.
If the row at column "D" is blank, I want the macro to use the last previous 4 digit number until it encounters a populated row.
So, if D1,D2,D3, have the number 5150 in them and D4:D11 are blank, the macro will insert 5150, if D12,D13,D14, have the number 2468 in them and D15:D25 are blank, the macro will insert 2468, etc, etc.
Any assistance would be greatly appreciated.

Regards
Michael M

 

[Smitty]

How's this:

<font face=Calibri><SPAN style="color:#00007F">Sub</SPAN> foo()<br>    <SPAN style="color:#00007F">Dim</SPAN> c <SPAN style="color:#00007F">As</SPAN> Range<br>        <SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> c <SPAN style="color:#00007F">In</SPAN> Range([D1], Cells(Rows.Count, "D").End(xlUp))<br>            <SPAN style="color:#00007F">If</SPAN> LenB(c) = 0 <SPAN style="color:#00007F">Then</SPAN> c.Value = c.Offset(-1).Value<br>        <SPAN style="color:#00007F">Next</SPAN> c<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

HTH,

 

[Michael M]

Hi Smitty
What can I say.....perfect !!
I am constantly in awe of the power of this site and its subscribers.

Many thanks my friend.

Regards
Michael M