Macros que enumere dependiendo del ultimo registro
Necesito crear una macros que busque en la columna b la ultima fila ingresada, y en la misma fila escriba el numero 1 en la columna A. Luego de eso se salte 4 filas y escriba el numero 2 y así sucesivamente (valla sumando de uno en uno) hasta llegar al numero 100
1 Respuesta
Respuesta de Elsa Matilde
2
Te dejo la macro que solicitaste. Entra al Editor de macros, inserta un módulo y allí copia esto:
Sub macroAlex()
'x Elsamatilde
'ubica la última fila ocupada en col B
fini = Range("B" & Rows.Count).End(xlUp).Row
'coloca el 1 en col A
Range("A" & fini) = 1
'repite el bucle desde 2 hasta llegar a 100
For i = 2 To 100
'avanza 4 filas y coloca el valor correlativo
fini = fini + 4
Range("A" & fini) = i
'repite el bucle
Next i
MsgBox "Fin del proceso.", , "INFORMACIÓN"
End SubPara ajecutarla podés agregar un atajo de teclado, un botón o directamente desde el menú Macros. Estos temas los tengo explicados en la sección Macros de mi sitio.
Sdos y no olvides valorar la respuesta.
Elsa
¡Gracias!
tu código fue excelentemente, me gustaría tener contacto contigo es posible? jjaj
tu respuesta muy buena
Mis correos aparecen en los encabezados de las páginas de mi sitio.
