Macro para encontrar la siguiente celda vacía
En muchas ocasiones necesitamos crear una macro que nos ayude a encontrar la siguiente celda vacía que se tiene en una base de datos, en un listado, o un conjunto de celdas de Excel.
A continuación les explicare como realizarlo en una columna.
1. Abrir el editor Visual Basic para Aplicaciones (VBA).
2. en la cinta de opciones en el menú Insertar… módulo
3. dentro del módulo:
A) creamos el nombre de nuestra macro:
B) Seleccionamos la primera celda de la columna donde comenzará a buscar nuestra macro.
C) Creamos nuestro bucle con Do While. Abrimos nuestro Do While y evaluamos si la celda es diferente a vacia
El código colocado entre Do While y Loop se repetirá siempre que la parte posterior a Do While sea verdadera.
D) Si cumple el criterio pasa a la siguiente celda hacia abajo
El ciclo va a terminar hasta que encuentre la celda vacía, de esta manera encontramos la siguiente celda vacia.
E) cerramos nuestro Do While con un loop
F) cerramos nuestra macro.
4. Al final nuestra macro va a quedar de la siguiente manera:
A continuación les explicare como realizarlo en una columna.
1. Abrir el editor Visual Basic para Aplicaciones (VBA).
2. en la cinta de opciones en el menú Insertar… módulo
3. dentro del módulo:
A) creamos el nombre de nuestra macro:
Sub SiguenteCeldaVacia ()
B) Seleccionamos la primera celda de la columna donde comenzará a buscar nuestra macro.
Range("A1").Select
C) Creamos nuestro bucle con Do While. Abrimos nuestro Do While y evaluamos si la celda es diferente a vacia
El código colocado entre Do While y Loop se repetirá siempre que la parte posterior a Do While sea verdadera.
Do While ActiveCell <> Empty
D) Si cumple el criterio pasa a la siguiente celda hacia abajo
ActiveCell.Offset(1, 0).Select
El ciclo va a terminar hasta que encuentre la celda vacía, de esta manera encontramos la siguiente celda vacia.
E) cerramos nuestro Do While con un loop
Loop
F) cerramos nuestra macro.
End Sub
4. Al final nuestra macro va a quedar de la siguiente manera:
Sub SiguenteCeldaVacia () Do While ActiveCell <> Empty ActiveCell.Offset(1, 0).Select Loop End Sub
0 comments :
Publicar un comentario