Populating Records in a List

[ollieotis]

Hello,

I received the following data from my accounting department, and need to fill in the blank records in order to sort, parcel out, and build summary tables off of the original worksheet. Is there a way to use the fill function to populate each record, or would I have to write a macro? If a macro is the only way, any help in getting started with it would be greatly appreciated.

Thanks in advance!

Here's my table. I would like to populate the highlighted cells with the data above.

~9031871.xls
	A	B	C	D
4	CurrentWorksheet
5
6	ProjectCode	LastSuffix,FirstMI
7	AAA04200OD	Lova,Bosco
8		Norton,Amy
9		Sanchez,Rafael
10	CDE04004OD	Shaw,Bernice
11		Torre,Nicole
12	PRZ04107OD	Espinoza,Manuel
13
14		Flores,MariaR.
15		Castro,Guillermo
16		Paner,FlorentinoC.
17
18	DesiredResult
19
20	ProjectCode	LastSuffix,FirstMI
21	AAA04200OD	Lova,Bosco
22	AAA04200OD	Norton,Amy
23	AAA04200OD	Sanchez,Rafael
24	CDE04004OD	Shaw,Bernice
25	CDE04004OD	Torre,Nicole
26	PRZ04107OD	Espinoza,Manuel
27	PRZ04107OD	Espinoza,Manuel
28	PRZ04107OD	Flores,MariaR.
29	PRZ04107OD	Castro,Guillermo
30	PRZ04107OD	Paner,FlorentinoC.
Sheet1

 

[Norie]

Do you really need code?

1. Select the column with the blanks.
2. Goto Edit>Goto...Special and select blanks.
3. Goto the formula bar, enter =A1 (or whatever the first cell with data is) and then press CTRL+ENTER.
4. Select the column, copy and paste special values.

Repeat for all columns with blanks.

 

[ollieotis]

Hi Norrie,

This is perfect! I don't need code at all... of course, now that I see your response, I remember this solution from a similar situation a long time ago.

Thanks again! I appreciate your help!

 

[2busy2stop]

Hi,
Insert a column in B
In B7 type this formula
=IF(A6<>"",A6,B5)
Copy it down over the required range(s) Then edit> copy>paste special>values Into Column A. You'll have to tidy up your report Headings.

Do the same in column D for column C and the delete column B and column D.