Hi Paul,
Very helpful and clearly explained, thank-you.
Can we use this, or something similar, to load a range (say A1:A20) into an
array without using a loop?
Sorry, but my knowledge of arrays in VBA is very limited.
Regards - Dave.
Date: Sat, 12 Feb 2011 09:20:50 -0800
From: schreiner_p...@att.net
Subject: Re: $$Excel-Macros$$ Macro issue passing values from Cell to columns
To: excel-macros@googlegroups.com
It's like the text-to-columns in Excel 2007.
If you have a string:
"The Quick Brown Fox jumped over the lazy dog"
and you wanted to store the words into an array,
If you're using Option Explicit (recommended)
you have to declare the variable:
Dim StrArray
(but don't define an array SIZE)
Next, split the string using a space (" ") as delimeter:
StrArray = Split("The Quick Brown Fox jumped over the lazy dog", " ")
or:
Str = ("The Quick Brown Fox jumped over the lazy dog"
StrArray = Split(Str," ")
The array is now:
StrArray(0) = "The"
Strarray(1) = "Quick"
Strarray(2) = "Brown"
Strarray(3) = "Fox"
Strarray(4) = "jumped"
Strarray(5) = "over"
Strarray(6) = "the"
Strarray(7) = "lazy"
Strarray(8) = "dog"
and of course ubound(StrArray) gives the upper bound of the array (8).
I wrote a function LONG ago using this to accomplish what is now done with
txt-to-columns in Excel2007!
hope this helps,
Paul
From: Dave Bonallack <davebonall...@hotmail.com>
To: "excel-macros@googlegroups.com" <excel-macros@googlegroups.com>
Sent: Sat, February 12, 2011 3:17:14 AM
Subject: RE: $$Excel-Macros$$ Macro issue passing values from Cell to columns
Hi Paul,
I'm really interested in the part of the macro that I have highlighted below
(in case the highlighting doesn't travel well, I've marked each line with a *)
I've not seen the 'Split' function before. I looked it up in the Help, but
still couldn't make sense of it. If you have time, could you please explain
that part?
Regards - Dave.
Date: Fri, 11 Feb 2011 06:15:45 -0800
From: schreiner_p...@att.net
Subject: Re: $$Excel-Macros$$ Macro issue passing values from Cell to columns
To: excel-macros@googlegroups.com
Curious...
Actually, the Activecell object is not necessary.
I changed it to:
If Range("A"&i) = "" then exit sub else
and it worked just fine.
BTW:
I changed the loop to:
Application.ScreenUpdating = False
For R = 1 To 1000
If (Range("A" & R).Value = "") Then Exit Sub
* StrArray = Split(Range("A" & R).Value, ";")
* For C = 0 To UBound(StrArray)
* Cells(R, C + 1).Value = StrArray(C)
Next C
Next R
Application.ScreenUpdating = True
and it worked almost instantaneously instead of all the
screen "flashing" that goes on with TextToColumns.
Paul
From: Jorge Marques <leote.w...@gmail.com>
To: excel-macros@googlegroups.com
Sent: Thu, February 10, 2011 6:46:37 AM
Subject: $$Excel-Macros$$ Macro issue passing values from Cell to columns
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
--
----------------------------------------------------------------------------------
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
--
----------------------------------------------------------------------------------
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
