Llenar celdas vacías en rango definido
Todoexpertos, he intentado ejecutar una macro que en las celdas que estén en blanco en una tabla de las columnas A, B, D, F, G, H, I, y J se de la acción SendKeys "^{J}", True es decir CTRL + J para bajar la fórmula de la celda inmediatamente arriba de la que está en blanco. E intentado usar el siguiente código pero lo que hago es duplicar el valor lo cual no es el resultado que deseo
Sub RellenaCeldasenBlanco()
Dim hoja As Worksheet
Dim UltFila As Long
Dim Rng As Range
Set hoja = Sheets("SEN_DESCRIPCION_TABLERO")
With hoja
UltFila = .Range("B" & .Rows.Count).End(xlUp).Row
Set Rng = .Range("B4:B" & UltFila)
End With
Rng.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
Set hoja = Nothing
Set Rng = Nothing
End Sub
1 respuesta
Respuesta de James Bond
1