M
Marc Gendron
My problem is that I get a "Loop without Do" statement (my code might have
other problems....I'll get to them later !)
No need to tell ya guys I'm a newbie...
Thanks in advance
Marc
Here's my code:
Sub NoComact()
Dim counter As Integer
Dim compteur As Integer
counter = 1
compteur = 1
Do
While counter < 1000
Do
Range("B, counter").Select
While Right("B, counter", 1) < Right("B, counter + 1", 1)
Range("C, counter").Value = "BRG-000 & compteur "
counter = counter + 1
Loop
compteur = compteur + 1
Loop
End Sub
(btw, compteur is counter in french)
other problems....I'll get to them later !)
No need to tell ya guys I'm a newbie...
Thanks in advance
Marc
Here's my code:
Sub NoComact()
Dim counter As Integer
Dim compteur As Integer
counter = 1
compteur = 1
Do
While counter < 1000
Do
Range("B, counter").Select
While Right("B, counter", 1) < Right("B, counter + 1", 1)
Range("C, counter").Value = "BRG-000 & compteur "
counter = counter + 1
Loop
compteur = compteur + 1
Loop
End Sub
(btw, compteur is counter in french)