Estoy trabajando con vba para el tratamiento de datos dentro de excel, tengo unos informes, cada unos en su hoja, en los que necesito rellenar las celdas que están en blanco con el valor de la celda que tienen por encima de ellas.
El problema es que al acabar la primera hoja, me da un error 1004, y me gustaría que pasara de ese error, y siguiera con la siguiente hoja. El código que tengo es el siguiente:
Function structure_sheets()
With ThisWorkbook
For Each Sheet In .Sheets
If (InStrRev(Sheet.Name, "Node") > 0) Then
LastRow = Sheet.UsedRange.Rows.Count
With Range("A8:F" & Range("F" & LastRow).End(xlDown).Row)
.SpecialCells(xlBlanks).FormulaR1C1 = "=R[-1]C"
.Value = .Value
End With
End If
Next
End With
End Function
Y el error:
Los OnError parece que no funcionan con estos bloques de código.
Si alguien tiene idea, se aceptan sugerencias.
Muchas gracias.