Continuar ciclo si hay un error

[manzano]

Buenas tardes,

 

Tengo una macro creada con el botón para grabar. Me ha funcionado bien pero hay un pequeño error que salta en algunas ocasiones.

Como se ve, tengo una formula extensa, y al llegar a la parte que citare abajo, si es que la formula para buscar no encuentra el dato "Original" manda un error. ¿Cual seria la forma de decirle que si no encuentra ese "Original" simplemente continúe con la formula?, saltándose esa orden de buscar.

  Cells.Find(What:="Original", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    ActiveCell.Range("A1:B1").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Columns("L:L").EntireColumn.AutoFit
    Selection.Merge
    ActiveCell.Cells.Select
    ActiveCell.Cells.EntireColumn.AutoFit
    Range("A10").Select

Saludos.

[Luis paz]

Lo más fácil on error resume next

O "on error goto" + Lo que desees, ejemplo "On error Goto ErrOriginal"

Y hasta en donde deseas que continue la ejecución colocas "ErrOriginal:"

 

On error resume next
'ó puedes usar
On Error Goto ErrOriginal
 Cells.Find(What:="Original", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    ActiveCell.Range("A1:B1").Select
ErrOriginal:
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Columns("L:L").EntireColumn.AutoFit
    Selection.Merge
    ActiveCell.Cells.Select
    ActiveCell.Cells.EntireColumn.AutoFit
    Range("A10").Select

 

[manzano]

Gracias amigo, me funciona, se salta el error sin problemas.

 

Saludos!