Macro de Rangos Excel. AYUDA URGENTE!!

[aldeba_x]

Hola. Estoy creando una macro que está realizando varias funciones dentro de un rango muy grande de filas (más de 30,000), todo lo hace perfecto, excepto que cuando llega al final de la información sigue iterando y no para. Se supone que debe realizar las operaciones hasta la ÙLTIMA FILA SOLAMENTE. Este es el código para las iteraciones, ¿alguien sabe por qué sigue iterando?

'Ir a la hoja2
Sheets("Hoja2").Select
For i = 1 To Range("A1").CurrentRegion.Rows.Count
AQUI VA EL CODIGO PARA LAS OPERACIONES QUE REALIZA LA MACRO
Next i
End Sub

[Edwin74]

Que te parece si queda asi?

Sub iterando_asta_3000()
Sheets("Hoja2").Select
For i = 1 To Range("b1").CurrentRegion.Rows.Count
'AQUI VA EL CODIGO PARA LAS OPERACIONES QUE REALIZA LA MACRO
Sheet1.Cells(i, 3).Value = Sheet1.Cells(i, 2).Value
'con esto le dices por ejemplo que pare despues de haber
'corrido el codigo para las operaciones que realiza la macro
en la ultima celda de la columna b1
If i = 65536 Then Exit For
Next i
End Sub

Espero que sea esto lo que buscavas

[mrocf]

Hola !
El valor "Range("A1").CurrentRegion.Rows.Count" resulta un tanto impredecible si es que no estamos MUY SEGUROS de las características de nuestra región de datos.

Por ello te sugiero que si lo que deseas es realizar tantas iteraciones como celdas no vacías tengas en la columna "A", apeles a un valor mucho más seguro:

Código:

    For i = 1 To WorksheetFunction.CountA([A:A])

que se corresponde con la función del EXCEL "CONTARA"

Espero haberte ayudado.
Saludos

[HMSJUAN]

Saludos Como estan
Bueno Yo lo que hago en estos casos es moverme de fila en fila hasta encontrar una vacia..
Sheets("Hoja2").Select
Range("a3").Select
Do While ActiveCell <> Empty

ActiveCell.Offset(1, 0).Select
Loop
ActiveCell = "Mira Ahora"
En Este Momento Activecell sera la celda vacia al fianal
Lo Probe y funciono