En esta ocasión vamos a ver una macro que nos puede ahorrar mucho tiempo. Esta macro rellena todas las celdas en blanco de una selección con un valor que nosotros determinemos. Puede que deseemos que las celdas en blanco de un rango tomen el valor 0. En muchas ocasiones nos encontramos con tablas o un rango de datos en el que deseamos que se rellenen las celdas en blanco con el valor 0. También puede que queramos que en esas celdas aparezca cualquier otro valor o incluso una expresión. No es necesario que sean números, puede ser una expresión.
Si bien hay diferentes formas con las que podríamos abordar esta situación, esta sencilla macro nos realiza el trabajo de una forma rápida, sencilla y muy flexible.
En el siguiente ejemplo vemos una tabla en la que se indican las ventas de artículos por vendedores. Los vendedores que no han vendido algún artículo tienen esa celda en blanco, sin ningún dato.
Macro para rellenar las celdas en blanco de una selección
Crear la macro
Primero debemos abrir el editor de Visual Basic (VBE) utilizando la combinación de teclas Alt + F11. Hacemos clic sobre el icono de nuestro fichero (ThisWorkbook) con el botón derecho (Insertar – Módulo) o en el Menú (Insertar – Módulo). Se nos abrirá en la parte derecha el editor VBA, en el cual debemos escribir o copiar el código de la macro.
El código de la macro es el siguiente:
Sub RellenarCeldasBlancasConValor()
‘Rellena las celdas en blanco en un rango con el valor que decidamos
Dim cell As Range
Dim InputValue As String
On Error Resume Next
InputValue = InputBox(“Introduce el valor con el que quieres rellenar las celdas blancas de la selección”, “Rellena celdas en blanco”)
For Each cell In Selection
If IsEmpty(cell) Then
cell.Value = InputValue
End If
Next
End Sub
Finalmente, guardamos la macro como Libro de Excel habilitado para macros (*.xlsm)
Ejecutar la macro
Lo primero que debemos hacer es seleccionar el rango de celdas sobre las que queremos que rellene las celdas en blanco. Esto es importante ya que en caso contrario ejecuta la macro únicamente sobre la celda activa.
Deberemos abrir el cuadro de diálogo de Macros. Bien haciendo clic sobre el icono de “ver macros” de la ficha Desarrollador o bien utilizando la combinación de teclas Alt + F8. Del cuadro de diálogo de la macro deberemos seleccionar la que acabamos de crear y pulsar sobre el botón Ejecutar.
Cuando ejecutamos esa macro nos abre un cuadro de diálogo que nos pide que insertemos el valor que queremos que incluya en las celdas en blanco. Puede ser el 0, un número o cualquier expresión.
Como podemos observar, en mi ejemplo he seleccionado todo el rango de las ventas y después he ejecutado la macro. Me pide que introduzca el valor con el que rellenar las celdas en blanco. Yo le he indicado el cero.
Al darle al botón “Aceptar” vemos que nos ha rellenado todos las celdas que previamente estaban en blanco.
Deja un comentario