Fill up the current cell with the value of the previous cell is the current cell is empty

Hi,

I wrote the code below. It didn't given an error but wouldn't work either. My goal is to fill up the activecell with the value of the previous cell if the activecell is empty. For example if A2 is banana, A3 is apple and A4 is blank, then the value of A4 should be apple. This process will continue until the lastrow in variable lRow2. I was thining of using do-while-loop but i thought it would be simple to use for-loop.

Please Login or Register  to view this content.

Select cell A2 (first cell in data range) then run macro as below

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Counts the number of non empty cells which is not the same as you want to loop down until the last non empty cell in a column D.

Please Login or Register  to view this content.

Should do

i used a message box to know the value of lrow2 and it is just fine. I've revised my code (below) but still wouldnt work

Please Login or Register  to view this content.

And here's my data:Attachment 281717

Originally Posted by AB33

Please Login or Register  to view this content.

Counts the number of non empty cells which is not the same as you want to loop down until the last non empty cell in a column D.

Please Login or Register  to view this content.

Should do

Please Login or Register  to view this content.

looks at the last row minus in column D, while your other lines loop through column A

Please Login or Register  to view this content.

There is a problem with the attachment. I am unable to down load it.

i used column only to find the last row with value - just the row number to bused in looping. The attachment is just an image.

Originally Posted by AB33

Please Login or Register  to view this content.

looks at the last row minus in column D, while your other lines loop through column A

Please Login or Register  to view this content.

There is a problem with the attachment. I am unable to down load it.

Thanks. But I figured out I should have used for-each-in a range. I had no success with do-while and for-1 to n.

Originally Posted by HaHoBe

Hi, danex,

maybe try

Please Login or Register  to view this content.

Ciao,
Holger

The attachment is just an image.
Can not even see the image.
Please refer to my post #2.
If you had attached a sample, It would have been resolved two days. We now are on the 3rd day.

Here's the image data.jpg

A Picture is not much help. You can not test a picture.
To test if column A cells are blank, with out a code:
CRTL plus G will take you to "go special" then click blank and see if any find any cells highlighted.

Here is the spreadsheet via google doc https://drive.google.com/file/d/0B1k...it?usp=sharing