Re: $$Excel-Macros$$ Macro To Transpose Selected Row Data To Column Format

Absolutely fantastic! Thank you for your generous help. John On Tue, May 8, 2012 at 11:07 AM, Krishna Kumar wrote: > Replace > > ReDim k(1 To UBound(ka, 1) * (UBound(Hdr) + 1) + UBound(Hdr) + 1, 1 To 1) > > with > > ReDim k(1 To 1, 1 To 1) > > > Kris > ExcelFox

Re: $$Excel-Macros$$ Macro To Transpose Selected Row Data To Column Format

Replace ReDim k(1 To UBound(ka, 1) * (UBound(Hdr) + 1) + UBound(Hdr) + 1, 1 To 1) with ReDim k(1 To 1, 1 To 1) Kris ExcelFox -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, l

Re: $$Excel-Macros$$ Macro To Transpose Selected Row Data To Column Format

John You are welcome. Thanks for the feedback Kris ExcelFox -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and

Re: $$Excel-Macros$$ Macro To Transpose Selected Row Data To Column Format

Kris, You are amazing and gracious for your help and very quick repsonse. Thank you millions! John On Tue, May 8, 2012 at 10:09 AM, Krishna Kumar wrote: > Hi > > Try this > > Sub kTest() > > Dim ka, k(), i As Long, c As Long, n As Long, Hdr, x > Dim wks As Worksheet, Flds > > H

Re: $$Excel-Macros$$ Macro To Transpose Selected Row Data To Column Format

Hi Try this Sub kTest() Dim ka, k(), i As Long, c As Long, n As Long, Hdr, x Dim wks As Worksheet, Flds Hdr = Array("NAME", "Specialty_name", "Office_name", "Address_1", "Address_2", _ "Address", "Phone_number_1", "Fax_number") ka = Sheets("Sheet1").Range("a1").