populating empty cell with value from above

[gixxer]

Hi

I would very much appreciate any help/advice regarding the following.. The worksheet shows 4 columns date/customer/address/product. Where a customer orders more than one product the first 3 columns are not populated with relevant info..I need all cells populated so that date/customer/address are all complete in each row.

Any help guidance would be really apprecaitive.(I am using Excel 2003 and Windows XP PRo)

TIA
Rob

 

[gixxer]

added sheet

sorry forgot to add the HTML copy of the sheet

New Microsoft Excel Worksheet.xls
	A	B	C	D
1	Date	Customer	Address	Product
2	01/10/2005	Joe Bloggs	1 High st	Product 1
3				Product 2
4				Product 3
5	10/10/2005	Ian Smith	10 Supper Cl	Product 1
6				Product 2
7	10/10/2005	William Brown	101 Tech Sq	Product 1
8	10/10/2005	Eddy Green	2a Lower Av	Product 1
9	21/10/2005	Joe Bloggs	1 High st	Product 3
10				Product 5
Sheet1

 

[Joe4]

Try this code, which will populate the blank cells in columns A, B, and C for every row that has an entry in column D.

Sub MyCopy()

    Dim i As Long, j As Long
    For i = 2 To Range("D65536").End(xlUp).Row
        For j = 1 To 3
            If Cells(i, j) = "" Then Cells(i, j) = Cells(i - 1, j)
        Next j
    Next i
    
End Sub

 

[gixxer]

fantastic your code works

just a quick msg to say thankyou very much your code works brilliantly.

Many thanks

Rob

 

[Joe4]

No problem. And welcome to the Board!