Dear Noorain thanks for replying, but still my query has not solved. I want to transpose data from cell to columns, I don't want to do Text to columns. Please see attached file.
Kaяan <http://www.facebook.com/singhkarann> <http://twitter.com/#%21/karan1237> <https://plus.google.com/111143524614789164919/posts> <http://www.myspace.com/singhkaran> <http://www.linkedin.com/in/singhkarann> <http://karanxel.blogspot.com/> <http://karanxel.wordpress.com/> On Tue, Sep 13, 2011 at 4:14 PM, NOORAIN ANSARI <noorain.ans...@gmail.com>wrote: > **Dear Karan, > > Please see attached Sheet............ > ** > ** > *Sub cell_Transpose() > Dim i, j, z, x, d As Long > Dim k As Boolean > Dim st As Long > Dim abc, xyz As String > On Error GoTo errh > Range("A65356").Select > Selection.End(xlUp).Select > z = ActiveCell.Row > For x = 1 To z > d = 1 > st = 2 > Range("a" & x).Select > abc = ActiveCell.Value > For i = st To Len(abc) > If i > Len(abc) Then > Range("a" & x).Offset(0, d).Value = abc > Exit For > End If > If Asc(Mid(abc, i, 1)) > 64 And Asc(Mid(abc, i, 1)) < 91 Then > Range("a" & x).Offset(0, d).Value = Left(abc, i - 1) > xyz = Right(abc, Len(abc) - i + 1) > abc = xyz > i = 1 > d = d + 1 > End If > Next i > If Len(Range("a" & x).Value) = Len(abc) Then > Range("a" & x).Offset(0, 1).Value = Range("a" & x).Value > End If > Next x > errh: > Exit Sub > End Sub > > * > On Tue, Sep 13, 2011 at 2:35 PM, karan 1237 <karan1...@gmail.com> wrote: > >> Dear All, >> >> I'v to transpose data from a cell to columns. Please solve my query. >> >> >> Thnx in advance >> Kaяan >> >> <http://www.facebook.com/singhkarann> <http://twitter.com/#%21/karan1237> >> <https://plus.google.com/111143524614789164919/posts> >> <http://www.myspace.com/singhkaran> >> <http://www.linkedin.com/in/singhkarann> <http://karanxel.blogspot.com/> >> <http://karanxel.wordpress.com/> >> >> >> -- >> >> ---------------------------------------------------------------------------------- >> 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 >> > > > > -- > Thanks & regards, > Noorain Ansari > *http://excelmacroworld.blogspot.com/*<http://excelmacroworld.blogspot.com/> > *http://noorain-ansari.blogspot.com/*<http://noorain-ansari.blogspot.com/> > > -- > > ---------------------------------------------------------------------------------- > 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
Query.xlsx
Description: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet
