Option Explicit Sub TransposeRowsToColumns_SAS() Dim i As Long For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row Cells(i, 1).Resize(, 3).Copy Cells(Rows.Count, 6).End(xlUp).Offset(1).PasteSpecial _ Paste:=xlPasteAll, Operation:=xlNone, Transpose:=True Next i End Sub
Don Guillett SalesAid Software dguille...@gmail.com From: MURALI NAGARAJAN Sent: Monday, October 24, 2011 6:48 AM To: excel-macros@googlegroups.com Subject: $$Excel-Macros$$ Need your support (Re-arrange_the_products) Dear excel experts, I have a doubt below attached file, kindly provide exact solution for this problem. Thanks & Regards Murali.N Chennai-50 -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel