Shifting cells to consolidate record rows

F

Flyer7

Anyone have advice for me on shifting cells within an over 1000 record
database to consolidate all data in a single record per individual.
Now I have sometimes 7, sometimes 1 row per individual, each with some
accomplishment following name and address. These are members of a
sports organization. After pulling all accomplishments onto one
record I then want to print certificates with all accomplishments
listed on a single sheet. Sorry, I 'm not real experienced, but think
it would go something like this:

Dim counter As Integer
Range("AA2").Select
Do
Do
ActiveCell.Offset(-1, 0).Select
Selection.Insert Shift:=xlToRight
ActiveCell.Offset(1, 0).Select
Selection.EntireRow.Delete
counter = counter + 1
While Cells(counter, 3) = Cells(counter - 1, 3)
Loop Until ActiveCell = ""

I get a "Loop without Do" message...

I'm trying to key off name in col C which repeats that variable
number of times but is identical in each appearance. Any advice would
be appreciated Thanks
 
D

Don Guillett

If desired, send your file to my address below with a snippet of this msg
and before/after examples.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Do Until or For Loop 3
Inserting 2 columns when cells don't match 6
Find and Replace using a Loop won't stop 2
Insert row after blank cell encountered 6
append multiple worksheets data into a single multi-dimensional array 4
help with a piece of code 5
Update this macro to make it generate a counter as text 7
Border formatting row of cells 22

Top