Bucle Range Counter
Hola tengo macro que pide la cantidad de planillas a configurar, necesito crear un bucle pero no me sale, que seleccionando una celda a partir de ahí seleccione un celda cada 39 filas tantas veces como planillas tenga que configurar por ej A6 pase A45 a A84 a A123 y así. Tengo Este código pero en el bucle me pierdo
Dim p
p = InputBox("Ingrese la cantidad de planillas", "Configurar planilas")
Rows("6:44").Select
Selection.Copy
Dim Counter As Integer
For Counter = 6 To 45
ActiveSheet.Cells(Counter, 1).Select
'ActiveSheet.Paste
Next Counter
Dim p
p = InputBox("Ingrese la cantidad de planillas", "Configurar planilas")
Rows("6:44").Select
Selection.Copy
Dim Counter As Integer
For Counter = 6 To 45
ActiveSheet.Cells(Counter, 1).Select
'ActiveSheet.Paste
Next Counter
1 respuesta
Respuesta de Juan Carlos González Chavarría
Tienes que crear unas variables porque si el rango de filas va a variar, con las instrucciones que tienes solo buscará de la fila 6 a la 45. Puedes intentar incluyendo esto:
Dim p
Dim FilaIni As Long
Dim FilaUlt As Long
FilaUlt = FilaIni + 39
p = InputBox("Ingrese la cantidad de planillas", "Configurar planilas")
Rows(FilaIni &":" & FilaUlt).Select
Selection.Copy
Dim Counter As Integer
For Counter = FilaIni To FilaUlt
ActiveSheet.Cells(Counter, 1).Select
'ActiveSheet.Paste
Next Counter
[email protected]
Dim p
Dim FilaIni As Long
Dim FilaUlt As Long
FilaUlt = FilaIni + 39
p = InputBox("Ingrese la cantidad de planillas", "Configurar planilas")
Rows(FilaIni &":" & FilaUlt).Select
Selection.Copy
Dim Counter As Integer
For Counter = FilaIni To FilaUlt
ActiveSheet.Cells(Counter, 1).Select
'ActiveSheet.Paste
Next Counter
[email protected]
