Thank you very much.
Your code was very useful
-----Original Message-----
From: "Daniel" <dcolarde...@free.fr>
Date: Mon, 29 Mar 2010 10:57:18
To: <excel-macros@googlegroups.com>
Subject: RE: $$Excel-Macros$$ Re: Continuous-Selection and transpose
Hello.
Give the following macro a try :
Sub test()
Dim c As Range
Dim ResAdr As String
Dim Ctr As Long
Set c = [A:A].Find("ADD NBRCDMACH")
If Not c Is Nothing Then
ResAdr = c.Address
Do
Ctr = Ctr + 1
Cells(Ctr, 2).Value = c.Value & c.Offset(1).Value &
c.Offset(2).Value
Set c = [A:A].FindNext(c)
Loop While Not c Is Nothing And c.Address <> ResAdr
End If
End Sub
Regards.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-mac...@googlegroups.com] De
la part de uojemeni
Envoyé : dimanche 28 mars 2010 23:53
À : excel-macros
Cc : uojemeni
Objet : $$Excel-Macros$$ Re: Continuous-Selection and transpose
See attached
Ojemeni Uzoma I
Radio Network Planning & Optimization Engineer.
HUAWEI TECHNOLOGIES
8th floor,
Plot 98, Adeola Odeku Str.
South Atlantic Petroleum Towers,
Victoria Island, Lagos.
Tel: 0806 070 0717, 0702 857 7421
Email: <mailto:u...@huawei.com> u...@huawei.com
www.huawei.com
_____
>From :uojemeni
Date :2010-03-28 22:51:19
To :excel-macros
cc:uojemeni
Subject: Continuous-Selection and transpose
Hello All,
Pls I need your help.
I would like to find "ADD NBRCDMACH"(see attached) and then select the found
cell and two subsequent cells in the same column and then transpose the
selection in a different column. This procedure will be repeated over and
over until the find "ADD NBRCDMACH" is exhausted.The results wil be pasted
in the target column line by line.
A VB script will do.
Thank you in advance.
BR
Uzoma
--
----------------------------------------------------------------------------
------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our Facebook Group @
http://www.facebook.com/group.php?gid=287779555678
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
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 6,800 subscribers worldwide and receive many nice notes about
the learning and support from the group.Let friends and co-workers know they
can subscribe to group at
http://groups.google.com/group/excel-macros/subscribe
To unsubscribe from this group, send email to
excel-macros+unsubscribegooglegroups.com or reply to this email with the
words "REMOVE ME" as the subject.
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our Facebook Group @ http://www.facebook.com/group.php?gid=287779555678
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
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 6,800 subscribers worldwide and receive many nice notes about the
learning and support from the group.Let friends and co-workers know they can
subscribe to group at http://groups.google.com/group/excel-macros/subscribe
To unsubscribe from this group, send email to
excel-macros+unsubscribegooglegroups.com or reply to this email with the words
"REMOVE ME" as the subject.
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our Facebook Group @ http://www.facebook.com/group.php?gid=287779555678
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
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 6,800 subscribers worldwide and receive many nice notes about the
learning and support from the group.Let friends and co-workers know they can
subscribe to group at http://groups.google.com/group/excel-macros/subscribe
To unsubscribe from this group, send email to
excel-macros+unsubscribegooglegroups.com or reply to this email with the words
"REMOVE ME" as the subject.
