Anónimo
Rellenar celdas en blanco
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
A B C D
1 1
2
3
4
5 2
6
7
1 Respuesta
Respuesta
1
Te dejo esta macro que antes de ejecutar debes seleccionar el rango en cuestión (el problema está en donde decirle "hasta acá", por eso requiere la selección)
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).
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).