Counter

[vmjan02]

my below code gives me output as ES1 and the counter is not working as output ES1, ES2, ES3 and so on. I am not sure what is wrong.

Code:-
Private Sub CommandButton1_Click()
Dim i As String, e As String
i = 1
e = "ES"
Set Rng = Sheets("sheet1").Cells(Rows.Count, 3).End(xlUp).Offset(1, 0)
For Each Cell In Rng
Cell.Value = e + i
i = i + 1
Next Cell
End Sub

 

[silentwolf]

Hi,
a counter varible must be either long, integer varible but not a string...
and you did not declare the rng either..
dim rng as range

 

[footoo]

There is only one cell in rng :
Set Rng = Sheets("sheet1").Cells(Rows.Count, 3).End(xlUp).Offset(1, 0)

 

[vmjan02]

did tried bu no luck

Code:-
Dim i As Long, e As String, rng As Range
i = 1
e = "ES"
Set rng = Sheets("sheet1").Cells(Rows.Count, 3).End(xlUp).Offset(1, 0)
For Each Cell In rng
Cell.Value = e + i
i = i + 1
Next Cell

 

[silentwolf]

still when you are using an object varible and you are setting it then you need to have this object varible first declared..

I am just about to head out so hope you get it sorted...

Cheers

 

[vmjan02]

did every possible way but no luck

 

[silentwolf]

Well did you declare the rng varible jet?
dim rng as range

 

[vmjan02]

yes

 

[footoo]

did every possible way but no luck

You have ignored post #3 .
If there is only one cell in the loop, the counter does not go past 1.

 

[vmjan02]

sorry

Yes, thanks correct as the rng will add the details in the next cell of column "C"