How to count and change cell characters with Long type parameters?

[F_Ribeiro]

Hello everybody!


I would like to go through the rows of a column using numeric variables to reference the parameters. But in doing so I can't use text functions, like Len () to count the characters in a cell, Left () and Right (), among others. How do I resolve this dilemma, is there a function that counts characters of any type?

Thank you for your attention, I'm waiting.

Sub F_Ribeiro()
Dim W As Worksheet
Dim xRow As Long
Dim lastRow As Long

Set W = Sheets("Sheet1")

lastRow = W.Range("A" & Rows.Count).End(xlUp).Row

For xRow = 2 To lastRow

If Len(W.Range("A" & xRow)) > 4 Then
    W.Range("A" & xRow).Value = Right(W.Range("A" & xRow), 3)
End If
Next

End Sub

 

[kweaver]

What's the problem with your code?

 

[F_Ribeiro]

What's the problem with your code?

When I run the code, an error appears mentioning incompatible types. I believe it is because I used text functions, but the variables I created to go through the loop are numeric. It could be something else, of course.

 

[F_Ribeiro]

Hello everybody! Again, he he.

Well, for some reason the code worked, I don't understand why it failed before. So that matter is resolved. I thank you for your attention and hope that nobody goes through this kind of problem, it is horrible not knowing how to solve something apparently simple.

To the next.