22/04/2007, 01:28
|
 | | | Fecha de Ingreso: abril-2007 Ubicación: Kristiansand
Mensajes: 7
Antigüedad: 17 años Puntos: 0 | |
 Re: Macro de Rangos Excel. AYUDA URGENTE!!
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  |