An easy one for you

[ektorakos]

This should be an easy one for you.
Why do i get error 1004 method range of object global failed in this one??
it seems pretty strait forward
What am i missing?


Sub test()

Dim xrows As Integer
Dim x As Integer
Dim y As Variant

xrows = (Range(Cells(1, 1), Cells(1, 1).End(xlDown)).Count) - 4

For x = 4 To xrows
y = Left(Range(Cells(x, 1)), 2)

Next x

End Sub

 

[JeanKim]

when error occurs msgbox variable Cells(x, 1) or x in immediate windown to see what is causing the error

 

[ektorakos]

application defined or object defined error

 

[ektorakos]

just running this simple thing causes the same thing


Range(Cells(x, 1)).Select

 

[Tetra201]

If you insist on using Range(...), the following would work:

y = Left(Range(Cells(x, 1), Cells(x, 1)), 2)

However, it's much easier to use just

y = Left(Cells(x, 1), 2)

 

[ektorakos]

stupid stupid stupid thank you thank you thank you!

 

[Joe4]

Another thing to keep in mind.
The newer versions of Excel allow for over 1 million rows. Integer values can only go up to 32767.
If you have may have more rows of data than that, these variable declarations will not be sufficient.

[COLOR=#333333]Dim xrows As Integer[/COLOR]
[COLOR=#333333]Dim x As Integer[/COLOR]

You will need to use Long, i.e.

[COLOR=#333333]Dim xrows As Long[/COLOR]
[COLOR=#333333]Dim x As Long[/COLOR]