Thnx to all for this great help..!
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 9:08 PM, NOORAIN ANSARI <noorain.ans...@gmail.com>wrote: > Dear karan, > > By Excel.... > Use formula *=SUBSTITUTE(A1,CHAR(10),"-") * in second Column, and Copy and > Paste it as value, then normal you can use Text to column................ > . > > > On Tue, Sep 13, 2011 at 5:02 PM, karan 1237 <karan1...@gmail.com> wrote: > >> 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 >> > > > > -- > 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