Macro Asignar correlativo a fila vacía en excel

Quisiera enumerar con una macro filas vacías, por ejemplo el ultimo código que le asigne a un registro es el 987, y tengo 8 filas sin código, deseo que la macro a las filas vacías les asigne el código correspondiente, como me quede en el código 987, a la fila vacía(sin código le debe asignar el código 988), y así sucesivamente a las demás filas vacías

Respuesta

Te paso un código que yo utilizo para estos casos (creo que es el mismo caso que el que indicas)

 Set TransRowRng = ThisWorkbook.Worksheets("Items").Cells(1, 1).CurrentRegion
    NewRow = TransRowRng.Rows.Count + 1
    With ThisWorkbook.Worksheets("Items")
        .Cells(NewRow, 1).Value = Me.ComboBox5
        .Cells(NewRow, 2).Value = Me.ComboBox1
        .Cells(NewRow, 3).Value = Me.TextBox1
        .Cells(NewRow, 4).Value = Me.TextBox19
        .Cells(NewRow, 5).Value = Me.TextBox2
        .Cells(NewRow, 6).Value = Val(TextBox3)

End With

En este caso busca la primera celda vacía en la hoja "items" (columna A) y agrega a continuación de la ultima con datos, siguiendo tu ejemplo:

En A988 la info que tenga el combobox5, en B988 la info que tenga combobox1, etc, etc...

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas