Skip to main content

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

End Function

Y el error:

introducir la descripción de la imagen aquí

Los OnError parece que no funcionan con estos bloques de código.

Si alguien tiene idea, se aceptan sugerencias.

Muchas gracias.

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:

introducir la descripción de la imagen aquí

Los OnError parece que no funcionan con estos bloques de código.

Si alguien tiene idea, se aceptan sugerencias.

Muchas gracias.

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:

introducir la descripción de la imagen aquí

Los OnError parece que no funcionan con estos bloques de código.

Si alguien tiene idea, se aceptan sugerencias.

Muchas gracias.

Origen Enlace

VBA Saltar un error en un With... End With

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:

introducir la descripción de la imagen aquí

Los OnError parece que no funcionan con estos bloques de código.

Si alguien tiene idea, se aceptan sugerencias.

Muchas gracias.