Completar registro de una base
Estimados :
Ojala me puedan ayudar tengo una base (sacada de una Tabla dinámica) por ende no viene con todos los registros en sus filas al pegarla en otra hoja ... Necesito completarla .- ejecute el siguiente código :
Sub RellenarBase()
Selection.CurrentRegion.Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "=+R[-1]C"
Selection.CurrentRegion.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
End Sub
Para base pequeña funciona a la perfección pero cual ya la base son muchos mas registro me la rellena con puros ceros.-
si alguien me puede ayudar se los agradeceré
saldos
rbvp
1 respuesta
Te mando mi solución, sigue estos pasos:
-Selecciona con el ratón todo el rango de la tabla y después ejecuta esta macro:
Sub ejemplo() 'por luismondelo For Each celda In Selection If celda.Value = "" Then celda.Value = celda.Offset(-1, 0).Value Next End Sub
no olvides finalizar la consulta
