Ir a la ultima celda vacía de una columna y asignarle un valor adicional

Necesito una sub que me lleve a la ultima celda vacía de una columna y le de el valor del consecutivo de la celda superior.

2 respuestas

Respuesta
1

Algo así te será útil:

Sub UltimaCelda()
Dim rangocelda As String
Let rangocelda = Cells(Rows.Count, 1).End(xlUp).Address
Range(rangocelda).Offset(1, 0).Value = Range(rangocelda).Value + 1
End Sub

OJO, en la fila de "Let", solo reemplaza el número 1 por el de la columna que te interesa

Respuesta
1

Trata con esta formula:

=PROC(2;1/(NÚM.CARACT(A1:A100)>0);A1:A100)

Solo tienes que cambiar el rango para la columna que quieres encontrar la ultima celda vacia.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas