Thanks in advance for any help.
I'm creating a macro that captures a cell value and assigns it as a
File name. That is no problem. What I'm having difficultly with is
that I need to create a loop, which takes the file name, and amends it
by adding a "+" to the end of it, each time through the loop.
So the first time would be "filename+" the second "filename++".
Hope that makes sense.
Here's what I've been playing with so far
Sub test()
Dim CountZones As Integer
Dim i As Long
Dim z As Long
Dim Fname As String
Dim Rng As Range
Dim Sym As String

Sheet4.Activate
Range("b1:z1").Select
CountZones = Application.CountA(Selection)
Selection.Resize(1, CountZones - 1).Select
Fname = Range("a1").Value

For Each Rng In Selection
' Counts times through the loop
i = i + 1
Sym = "+"
' probably redunant but was going to increase the number of
"Sym" counts with this.
z = z + 1
Fname = Fname & Sym


Next

end sub
I'm probably missing something simple and having a brain f@rt ;))
Thanks
Dave

Sym = Sym & "+"

"Limey" wrote in message
ups.com...
Thanks in advance for any help.
I'm creating a macro that captures a cell value and assigns it as a
File name. That is no problem. What I'm having difficultly with is
that I need to create a loop, which takes the file name, and amends it
by adding a "+" to the end of it, each time through the loop.
So the first time would be "filename+" the second "filename++".
Hope that makes sense.
Here's what I've been playing with so far
Sub test()
Dim CountZones As Integer
Dim i As Long
Dim z As Long
Dim Fname As String
Dim Rng As Range
Dim Sym As String

Sheet4.Activate
Range("b1:z1").Select
CountZones = Application.CountA(Selection)
Selection.Resize(1, CountZones - 1).Select
Fname = Range("a1").Value

For Each Rng In Selection
' Counts times through the loop
i = i + 1
Sym = "+"
' probably redunant but was going to increase the number of
"Sym" counts with this.
z = z + 1
Fname = Fname & Sym


Next

end sub
I'm probably missing something simple and having a brain f@rt ;))
Thanks
Dave

Your Sheet Activate seems to be a bit off. I could be wrong. If you want
the sheet named "Sheet4", then use Sheets("Sheet4").Activate. With that
change, your code seems to work, at least on my end, the way you request.

Sub test2()

Dim CountZones As Integer
Dim i As Long
Dim z As Long
Dim Fname As String
Dim Rng As Range
Dim Sym As String

Sheets("Sheet4").Activate
Range("b1:z1").Select
CountZones = Application.CountA(Selection)
Selection.Resize(1, CountZones - 1).Select
Fname = Range("a1").Value

For Each Rng In Selection
' Counts times through the loop
i = i + 1
Sym = "+"
' probably redunant but was going to increase the number of "Sym"
counts with this.
z = z + 1
Fname = Fname & Sym


Next
End Sub
"George Nicholson" wrote in message
...
Sym = Sym & "+"

"Limey" wrote in message
ups.com...
Thanks in advance for any help.
I'm creating a macro that captures a cell value and assigns it as a
File name. That is no problem. What I'm having difficultly with is
that I need to create a loop, which takes the file name, and amends it
by adding a "+" to the end of it, each time through the loop.
So the first time would be "filename+" the second "filename++".
Hope that makes sense.
Here's what I've been playing with so far
Sub test()
Dim CountZones As Integer
Dim i As Long
Dim z As Long
Dim Fname As String
Dim Rng As Range
Dim Sym As String

Sheet4.Activate
Range("b1:z1").Select
CountZones = Application.CountA(Selection)
Selection.Resize(1, CountZones - 1).Select
Fname = Range("a1").Value

For Each Rng In Selection
' Counts times through the loop
i = i + 1
Sym = "+"
' probably redunant but was going to increase the number of
"Sym" counts with this.
z = z + 1
Fname = Fname & Sym


Next

end sub
I'm probably missing something simple and having a brain f@rt ;))
Thanks
Dave

On Apr 27, 11:35 am, "George Nicholson"
wrote:
Sym = Sym & "+"

"Limey" wrote in message

ups.com...

Thanks in advance for any help.
I'm creating a macro that captures a cell value and assigns it as a
File name. That is no problem. What I'm having difficultly with is
that I need to create a loop, which takes the file name, and amends it
by adding a "+" to the end of it, each time through the loop.
So the first time would be "filename+" the second "filename++".
Hope that makes sense.
Here's what I've been playing with so far
Sub test()
Dim CountZones As Integer
Dim i As Long
Dim z As Long
Dim Fname As String
Dim Rng As Range
Dim Sym As String

Sheet4.Activate
Range("b1:z1").Select
CountZones = Application.CountA(Selection)
Selection.Resize(1, CountZones - 1).Select
Fname = Range("a1").Value

For Each Rng In Selection
' Counts times through the loop
i = i + 1
Sym = "+"
' probably redunant but was going to increase the number of
"Sym" counts with this.
z = z + 1
Fname = Fname & Sym

Next

end sub
I'm probably missing something simple and having a brain f@rt ;))
Thanks
Dave

Mr. Nicholson if I was wearing a hat right now I'd take it off to you.
Thanks mate. :)

On Apr 27, 11:40 am, "PCLIVE" wrote:
Your Sheet Activate seems to be a bit off. I could be wrong. If you want
the sheet named "Sheet4", then use Sheets("Sheet4").Activate. With that
change, your code seems to work, at least on my end, the way you request.

Sub test2()

Dim CountZones As Integer
Dim i As Long
Dim z As Long
Dim Fname As String
Dim Rng As Range
Dim Sym As String

Sheets("Sheet4").Activate
Range("b1:z1").Select
CountZones = Application.CountA(Selection)
Selection.Resize(1, CountZones - 1).Select
Fname = Range("a1").Value

For Each Rng In Selection
' Counts times through the loop
i = i + 1
Sym = "+"
' probably redunant but was going to increase the number of "Sym"
counts with this.
z = z + 1
Fname = Fname & Sym

Next
End Sub"George Nicholson" wrote in message

...

Sym = Sym & "+"

"Limey" wrote in message
oups.com...
Thanks in advance for any help.
I'm creating a macro that captures a cell value and assigns it as a
File name. That is no problem. What I'm having difficultly with is
that I need to create a loop, which takes the file name, and amends it
by adding a "+" to the end of it, each time through the loop.
So the first time would be "filename+" the second "filename++".
Hope that makes sense.
Here's what I've been playing with so far
Sub test()
Dim CountZones As Integer
Dim i As Long
Dim z As Long
Dim Fname As String
Dim Rng As Range
Dim Sym As String

Sheet4.Activate
Range("b1:z1").Select
CountZones = Application.CountA(Selection)
Selection.Resize(1, CountZones - 1).Select
Fname = Range("a1").Value

For Each Rng In Selection
' Counts times through the loop
i = i + 1
Sym = "+"
' probably redunant but was going to increase the number of
"Sym" counts with this.
z = z + 1
Fname = Fname & Sym

Next

end sub
I'm probably missing something simple and having a brain f@rt ;))
Thanks
Dave

Again thanks, I'd spotted the sheet thing when I went back to the code
after posting, and you're right things seem to be working out ok.
Ta again :))

"Your Sheet Activate seems to be a bit off. I could be wrong. If you want
the sheet named "Sheet4", then use Sheets("Sheet4").Activate."

Actually, when you use something like
Sheet4.activate

You are referring to the sheet code name, not the sheet name. If you look
at the properties for the worksheet, the first property listed is (Name).
You can changed this and then refer to the code name in your code. Have you
seen people refer to worksheets with aWS. If you change the code name to
"MYTEST", you can refer to the sheet the same way. This way, if the user
wants to change the tab names for the sheet, your code will still run. :)



"PCLIVE" wrote:

Your Sheet Activate seems to be a bit off. I could be wrong. If you want
the sheet named "Sheet4", then use Sheets("Sheet4").Activate. With that
change, your code seems to work, at least on my end, the way you request.

Sub test2()

Dim CountZones As Integer
Dim i As Long
Dim z As Long
Dim Fname As String
Dim Rng As Range
Dim Sym As String

Sheets("Sheet4").Activate
Range("b1:z1").Select
CountZones = Application.CountA(Selection)
Selection.Resize(1, CountZones - 1).Select
Fname = Range("a1").Value

For Each Rng In Selection
' Counts times through the loop
i = i + 1
Sym = "+"
' probably redunant but was going to increase the number of "Sym"
counts with this.
z = z + 1
Fname = Fname & Sym


Next
End Sub
"George Nicholson" wrote in message
...
Sym = Sym & "+"

"Limey" wrote in message
ups.com...
Thanks in advance for any help.
I'm creating a macro that captures a cell value and assigns it as a
File name. That is no problem. What I'm having difficultly with is
that I need to create a loop, which takes the file name, and amends it
by adding a "+" to the end of it, each time through the loop.
So the first time would be "filename+" the second "filename++".
Hope that makes sense.
Here's what I've been playing with so far
Sub test()
Dim CountZones As Integer
Dim i As Long
Dim z As Long
Dim Fname As String
Dim Rng As Range
Dim Sym As String

Sheet4.Activate
Range("b1:z1").Select
CountZones = Application.CountA(Selection)
Selection.Resize(1, CountZones - 1).Select
Fname = Range("a1").Value

For Each Rng In Selection
' Counts times through the loop
i = i + 1
Sym = "+"
' probably redunant but was going to increase the number of
"Sym" counts with this.
z = z + 1
Fname = Fname & Sym


Next

end sub
I'm probably missing something simple and having a brain f@rt ;))
Thanks
Dave