Inicio > Microsoft Excel > gfellay > Rellenar celdas en blanco

Rellenar celdas en blanco

Experto:
Usuario: Anónimo Fecha: 10/06/2009
Valoración: (5,00 sobre 5) Categoría: Microsoft Excel
27/05/2009
Usuario
Hola experto te escribo para pedirte tu valiosa ayuda, mira tengo una base de datos en la cual quiero que las celdas en blanco se vayan rellenando automáticamente por ejemplo si en la celda A1 se encuentra el valor 1, que busque todas las celdas en blanco que se encuentren por abajo de la celda A1, es decir las celdas A2, A3 y A4 y les ponga el valor 1, lo mismo sucederá con la celdas que se encuentran en blanco abajo de la celda A5 a las cuales les pondrá el valor 2, de antemano gracias por lo que me puedas ayudar.
            A        B       C      D
1          1       
2                    
3                   
4                    
5          2
6
7
 
09/06/2009
royce, experto respondiendo en Microsoft Excel
Experto
Te dejo esta macro que antes de ejecutar debes seleccionar el rango en cuestion (el problema está en donde decirle "hasta acá", por eso requiere la seleccion)
Sub Completar()
Dim rAux As Range
For Each rAux In Selection
   If rAux = "" Then rAux = rAux.Offset(-1, 0).Value
Next rAux
End Sub
 
Ojo que está bien básico, deberías hacer un par de chequeos de errores (por ejemplo, si la celda que tiene que completar está en la fila 1 te dará error porque tratará de ubicar la fila "CERO" que, obviamente, no existe).
 
Saludos
gfellay
10/06/2009
Usuario
Exelente, exelente, justo lo que necesitaba, perfecto gracias, mil gracias.
Enlaces patrocinados