¿Cómo crear una macro en excel que me genere números correlativos considerando un numero especifico inicial y uno final?
Si en la celda B2 tengo el numero 791135 y en la celda C2 el numero 791142, que genere en otra hoja la serie de correlativos en una sola columna y luego que vea la celda siguiente y haga lo mismo en la misma columna y así sucesivamente hasta llegar al final de los correlativos requeridos.
1 Respuesta
Respuesta de Dante Amor
1
Si los correlativos de la "hoja 1" están en B2-C2, B3-C3, etc
Te anexo 2 macros.
Macro 1. El resultado queda en la columna A
Sub Correlativos()
'Por.Dante Amor
Set h1 = Sheets("Hoja 1")
Set h2 = Sheets("Hoja 2")
'
h2.Cells.Clear
j = 2
For i = 2 To h1.Range("B" & Rows.Count).End(xlUp).Row
For k = h1.Cells(i, "B") To h1.Cells(i, "C")
h2.Cells(j, "A") = k
j = j + 1
Next
Next
MsgBox "Fin"
End SubMacro 2. Cada correlativo queda en diferente columna, empezando en la columna A.
Sub Correlativos2()
'Por.Dante Amor
Set h1 = Sheets("Hoja 1")
Set h2 = Sheets("Hoja 2")
'
h2.Cells.Clear
j = 2
m = 1
For i = 2 To h1.Range("B" & Rows.Count).End(xlUp).Row
For k = h1.Cells(i, "B") To h1.Cells(i, "C")
h2.Cells(j, m) = k
j = j + 1
Next
j = 2
m = m + 1
Next
MsgBox "Fin"
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
Me faltó comentarte lo siguiente, cambia en la macro "hoja 1" y "hoja 2" por los nombres reales de tus hojas. En "hoja 1" van los rangos de correlativos y en la "hoja 2" van los resultados
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
