Loop function!

[Lbarron]

Hi all,

I'm trying to write some code in excel vba that will use the loop command to print numbers to cells, say from 1 to 100. I can get the numbers to print to cells however what I also need is each number to be wrapped in symbols like this.

"X" ,

Including the comma.

I've tried a few things but loose the effect due to the compiler seeing the comma as a next expression.

My last code was basically ......value = i ± 1
Next i

Any idea please?

 

[Lbarron]

Hi,

Thanks the below worked however i changed the second ans and added another string called anc. This allowed the last " to include a semi colon. anc = """:".

I changed this because i cant type a comma without excel thinking its the end of an expression.

Class this one as solved. HOWEVER!!! - would you know how to make the print out move to the next line after every three numbers stroke cells being filled so it would look like the below?

Thanks alot for your help, i'm being greedy with the above, its just less manual data handling!

Is this what you want:

Sub Count_Me()
Dim i As Long
Dim ans As String
ans = """"
    For i = 1 To 20
        Cells(i, 1).Value = ans & i & ans
    Next
End Sub

 

[FormR]

so it would look like the below?

Hi, I don't see any below?

 

[Lbarron]

Hi, I don't see any below?

Sorry I meant your code worked

 

[Rick Rothstein]

I changed this because i cant type a comma without excel thinking its the end of an expression.

What exactly did you mean by the above. Can you post the code you tried to use that did not work for you?

By the way, just out of curiosity, you did not respond to what I posted in Message #10 ... does that mean you have seen code like what I posted before?