Como usar On Error Resume Next para evitar varios errores posible en mi macro

Tengo un código que he hecho con la grabadora de macros y otras cosas que he investigado en esta pagina, todo funciona bien hasta que un dato no aparece, allí me marca error y no se como evitar ese error, quiero decir como saltarme el error y que la macro continué.

Lo que quiero hacer es que cuando no escuentre "despensa" se pase a la parte donde busca el siguiente palabra "maxi" y asi sucesivamente con todas las palabras que busco. Si me pudieran ayudar para saber como utilizar "On Error Resume Next" u otra forma para evitar que la macro se detenga cuando no encuentre esas palabras.

Esta es la macro.

Sheets("TABLAS").Select
Columns("U:U").Select
Selection.Find(What:="DESPENSA", after:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Offset(0, 2).Resize(Selection.Rows.Count - 1, _
Selection.Columns.Count + 2).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("NDS").Select
Range("H90").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("TABLAS").Select
Columns("U:U").Select
Selection.Find(What:="MAXI", after:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Offset(0, 2).Resize(Selection.Rows.Count - 1, _
Selection.Columns.Count + 2).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("NDS").Select
Range("H62").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("TABLAS").Select
Columns("U:U").Select
Selection.Find(What:="PAIZ", after:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Offset(0, 2).Resize(Selection.Rows.Count - 1, _
Selection.Columns.Count + 2).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("NDS").Select
Range("H4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("TABLAS").Select
Columns("U:U").Select
Selection.Find(What:="WALMART", after:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Offset(0, 2).Resize(Selection.Rows.Count - 1, _
Selection.Columns.Count + 2).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("NDS").Select
Range("H45").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("TABLAS").Select
Columns("U:U").Select
Selection.Find(What:="CLUBCO", after:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Offset(0, 2).Resize(Selection.Rows.Count - 0, _
Selection.Columns.Count - 3).Select
Selection.Copy
Sheets("NDS").Select
Range("H59").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If

2 Respuestas

Respuesta
1

Te recomiendo que no utilices la instrucción "On Error Resume Next", ya que si utilizas esta instrucción, todos los errores se desactivan, entonces si tienes otro problema diferente al Find, no podrás saber por qué la macro está fallando.

Sin embargo, la mejor manera de utilizar la instrucción "On Error Resume Next", puede ser así:

Sub Macro()
'Por.Dante Amor
    On Error Resume Next    'Se desactivan los errores
    '
    Columns("U:U").Select
    Selection.Find(What:="DESPENSA", after:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Activate
    '
    numerr = Err.Number
    If Err.Number = 0 Then
        MsgBox "el dato existe", vbInformation
        On Error GoTo 0     'Se activan nuevamente los errores
    Else
        MsgBox "Número de error: " & Err.Number & ", " & Err.Description, vbCritical, "El dato no fue encontrado"
    End If
End Sub

Te anexo la macro actualizada para verificar si existe algún dato. Si no existe, entonces continúa con la siguiente búsqueda:

Sub Macro()
'Act.Por.Dante Amor
    Sheets("TABLAS").Select
    Set b = Columns("U").Find("DESPENSA", LookAt:=xlPart)
    If Not b Is Nothing Then
        Columns("U:U").Select
        Selection.Find(What:="DESPENSA", after:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        ActiveCell.Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Offset(0, 2).Resize(Selection.Rows.Count - 1, _
        Selection.Columns.Count + 2).Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
        Sheets("NDS").Select
        Range("H90").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    End If
    '
    Sheets("TABLAS").Select
    Set b = Columns("U").Find("MAXI", LookAt:=xlPart)
    If Not b Is Nothing Then
        Columns("U:U").Select
        Selection.Find(What:="MAXI", after:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        ActiveCell.Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Offset(0, 2).Resize(Selection.Rows.Count - 1, _
        Selection.Columns.Count + 2).Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
        Sheets("NDS").Select
        Range("H62").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    End If
    '
    Sheets("TABLAS").Select
    Set b = Columns("U").Find("PAIZ", LookAt:=xlPart)
    If Not b Is Nothing Then
        Columns("U:U").Select
        Selection.Find(What:="PAIZ", after:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        ActiveCell.Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Offset(0, 2).Resize(Selection.Rows.Count - 1, _
        Selection.Columns.Count + 2).Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
        Sheets("NDS").Select
        Range("H4").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    End If
    '
    Sheets("TABLAS").Select
    Set b = Columns("U").Find("WALMART", LookAt:=xlPart)
    If Not b Is Nothing Then
        Columns("U:U").Select
        Selection.Find(What:="WALMART", after:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        ActiveCell.Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Offset(0, 2).Resize(Selection.Rows.Count - 1, _
        Selection.Columns.Count + 2).Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
        Sheets("NDS").Select
        Range("H45").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    End If
    '
    Sheets("TABLAS").Select
    Set b = Columns("U").Find("CLUBCO", LookAt:=xlPart)
    If Not b Is Nothing Then
        Columns("U:U").Select
        Selection.Find(What:="CLUBCO", after:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        ActiveCell.Select
        Range(Selection, Selection.End(xlToRight)).Select
        Selection.Offset(0, 2).Resize(Selection.Rows.Count - 0, _
        Selection.Columns.Count - 3).Select
        Selection.Copy
        Sheets("NDS").Select
        Range("H59").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    End If
End Sub

Todavía se le pueden hacer otras mejoras a tu macro, pero no entiendo muy bien qué datos son lo que vas a copiar, ya que tendría que ver cómo están acomodados los datos en tu hoja, en dónde tienes espacios en blanco, etc.

Si quieres que te ayude con tu macro para hacer más simple, crea una nueva pregunta, describe con un ejemplo qué es lo que quieres copiar, al final del desarrollo de la pregunta escribe que va dirigida a Dante Amor.

Saludos. Dante Amor

Recuerda valorar la respuesta.

Respuesta
1

El  On error Resume Next lo has de poner antes de lo que te puede dar error

Por el código que veo, has de ponerlo antes de los Selection.find

Sheets("TABLAS").Select
Columns("U:U").Select
On error Resume Next '<------------------------------------
Selection.Find(What:="DESPENSA", after:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Cortar fila de una hoja y pegar en otra hoja en la siguiente libre

Y feliz año! Tengo un excel con 2 hojas, una con datos de pedidos antiguos y otro con datos de pedidos actualizados. Quiero hacer una macro que automáticamente copie la fila de los pedidos nuevos de la hoja 2 en la hoja 1 (al final), es decir...
1 respuesta

Macro Diferenciar nombres parecidos en celdas

Junto con saludar y agradecer su ayuda anterior, necesito arreglar un pequeñito problema usando la macro: Como tengo varias celdas con nombres parecidos (bomba 14, bomba 141, bomba 142), la macro reconoce la palabra "bomba 14" e ingresa el dato, pero...
1 respuesta

Reemplazar texto en Excel

Estoy intentando hacer una macro en Excel 2003 para que me busque un texto en un rango y cuando lo encuentre seleccione la celda y luego se mueva una celda abajo. Una vez posicionado allí tiene que sustituir una serie de caracteres. Hasta aquí me...
1 respuesta

Macro, que termine el proceso cuando la celda esta vacía

Hice una macro que se ejecuta hasta un numero de veces, ¿La pregunta es se puede hacer que se ejecute hasta la celda vacía? Copio la macro. Sub Macro2() ' ' Macro1 Macro ' ' Acceso directo: CTRL+e Application.ScreenUpdating = False For i = 1 To 500...
1 respuesta

Copiar registros de campos determinados Macros Excel

Lo que deseo es buscar en la cabecera de una hoja cierto campos que necesito y copiar los registros de esos campos a otro libro de excel.
1 respuesta

Buscar y borrar datos exactos con macros en excel

Quiero que si le indico que busque y elimine (Z8), lo borre, tal como es, y No todo lo relacionado con (Z8), (Z8 PANCHO), (Z8LUIS), (Z8 JUANA), (Z8MARTA), si no que borre solo lo que le indique. Y algo más. No me manden a la ´´respuestas...
1 respuesta

Eliminar filas de varias hojas a la vez

Me gustaría eliminar filas de varias hojas, cuyo rango de celdas contengan determinadas palabras y que se insertaran las filas eliminadas en otra hoja nueva llamada "HOJA DEFINITIVA". Las palabras en cuestión son: "obras completas" (las dos palabras...
1 respuesta

Macro que busque y seleccione (sin filtro)

En esta oportunidad les quito un tiempito para hacerles una consulta en cuanto una macro que busque y seleccione la celda encontrada, si no existe me de un MsgBox y si la celda de búsqueda está en blanco que también me lo diga. Tengo este Macro:...
1 respuesta

Buscar valor exacto

Soy muy nuevo en esto de las macro y he tenido un problemita con un código que lo único que hace es buscar un valor dado a través de un inputbox... Mi problema radica en que este en algunos casos no busca el valor exacto introducido en el inputbox y...
1 respuesta

Funciones en vba

Cordiales desde mexico. Y espero que me puedas apoyar con este problema que tengo: -Actualmente tengo una tabla en una hoja de excel, tiene datos de unidades (autos)y destinos, por lo que para encontrar los kilómetros a recorrer hacemos la...
1 respuesta