Anónimo
Pegar varias fórmulas
Buenas tardes, tengo el siguiente problema: necesito que el mismo numero se pegue en las celdas de abajo de cada numero hasta llegar a la siguiente con datos, es decir, si el numero 6534 tiene 4 celdas en blanco abajo antes de llegar a 6537 quiero que en las cuatro me aparezca 6534, si la 6537 tiene 8 quiero que me aparezca 6537 8 veces hasta llenar a la siguiente con datos, que en este caso seria 6538 y así sucesivamente.
Tengo que aclarar que en numero de celdas en blanco varia.
6534
6537
6538
Agradezco de antemano su ayuda
Tengo que aclarar que en numero de celdas en blanco varia.
6534
6537
6538
Agradezco de antemano su ayuda
1 Respuesta
Respuesta de boumerang
1
Un Código en VB será una buena solución. Va:
-
Sub RellenaSeccionesAbajo()
For Each Celda In Range(ActiveSheet.Columns(ActiveCell.Column).Address)
Select Case Celda.Value
Case "FIN": Celda.Value = Copia: Exit For
Case "": Celda.Value = Copia
Case Else: Copia = Celda.Value
End Select
Next Celda
End Sub
-
Como puedes ver, es necesario que agregues una marca de terminación a la columna, pues de otra forma la última operación la realizará precisamente hasta la última fila de tu hoja. El dato de terminación, debe ser la palabra FIN, y debe estar en la última celda. Este dato será sustituido por el que viene rellenándose.
-
El proceso se llevará a cabo en la columna activa.
=
El codigo copialo y pegalo en la seccion ThisWorbook de tu libro, accediendo con ALT+F11
=
-
Sub RellenaSeccionesAbajo()
For Each Celda In Range(ActiveSheet.Columns(ActiveCell.Column).Address)
Select Case Celda.Value
Case "FIN": Celda.Value = Copia: Exit For
Case "": Celda.Value = Copia
Case Else: Copia = Celda.Value
End Select
Next Celda
End Sub
-
Como puedes ver, es necesario que agregues una marca de terminación a la columna, pues de otra forma la última operación la realizará precisamente hasta la última fila de tu hoja. El dato de terminación, debe ser la palabra FIN, y debe estar en la última celda. Este dato será sustituido por el que viene rellenándose.
-
El proceso se llevará a cabo en la columna activa.
=
El codigo copialo y pegalo en la seccion ThisWorbook de tu libro, accediendo con ALT+F11
=