While <condition>
'-- your macro
Wend
<condition> is an expression that evaluate to TRUE or FALSE
Ex: yr data are in cell B4-down.
i = 1
With Activesheet.Range("B4")
While Len(.cell(i,1) > 0
.cell(i,1).texttocolumns destination:=.cell(i,2),
'-- etc --
i = i + 1
Wend
End with
On 2/10/11, Jorge Marques <leote.w...@gmail.com> wrote:
> Hi, i have a macro i´ve done, but it it has a problem, when it passes the
> data from cells A to various columns it stops no cell 20 in the sheet2 e the
> another stops at another cell number, i have the file attached here with the
> code below, can´t seem to discover the error, taking baby steps at this!i
> think the issue is on the "if" statement, but if i take it out, it does the
> macro well but indicates error in the end!
>
> Sub Macro2()
> '
> ' Macro2 Macro
> '
> ' Keyboard Shortcut: Ctrl+p
> '
> Dim i As Double
> i = 1
>
> While ActiveSheet.Select
> If ActiveCell.Range("A" & i) = "" Then Exit Sub Else
> Range("A" & i).Select
> Selection.TextToColumns Destination:=Range("A" & i),
> DataType:=xlDelimited, _
> TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
> Tab:=True, _
> Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar
> _
> :=";", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
> TrailingMinusNumbers:=True
> i = i + 1
> Wend
> End Sub
>
>
> Thank you very much for your help
>
> --
> ----------------------------------------------------------------------------------
> 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
