About Us

Don Guillett

Glad to help

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Mishelley" wrote in message
...
Thank you very much for your help, Don. The code works perfectly!
Mishelley

"Don Guillett" wrote:

Sub transposeem()
lr = Cells(Rows.Count, 1).End(xlUp).Row
p1 = 2
cr = 1
Do Until p1 = lr
r1 = Cells(p1, 1).Row
r2 = Cells(p1, 1).End(xlDown).Row
Cells(r1, 1).Copy Cells(cr, 2)
Cells(r1 + 1, 1).Copy Cells(cr, 3)
If r2 - r1 = 3 Then
Cells(r1 + 2, 1).Copy Cells(cr, 4)
Cells(r1 + 3, 1).Copy Cells(cr, 5)
Else
Cells(r1 + 2, 1).Copy Cells(cr, 5)
End If
p1 = r2 + 2
cr = cr + 1
Loop
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Mishelley" wrote in message
...
Good Morning,

I have the following that I need to move into rows (records) - same
worksheet is fine. How can I do this when the address blocks are
different
sizes (some 3 and some 4 rows)? There is a blank row in between.

Thanks so much in advance!

Mishelley

Name
Address 1
City, State, Zip

Name
Address 1
Address 2
City, State, Zip

Name
Address 1
City, State, Zip

Name
Address 1
Address 2
City, State, Zip

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
LOOKUP between two columns of diff. size	CapFSU	Excel Worksheet Functions	5	April 28th 09 04:23 PM
How to size rows and columns in pixels rather than units	Mark Stephens	Excel Programming	3	June 11th 08 02:32 PM
equal size columns [same no. of rows]	[email protected]	Excel Programming	3	May 11th 07 01:41 PM
Size of Workbook(columns/rows/data)	Browner	Excel Discussion (Misc queries)	3	July 13th 06 06:12 PM
group & summarize diff rows of data that have something in common	pkunAAC	Excel Discussion (Misc queries)	1	July 11th 05 07:25 PM