Saltar al contenido

Error en Macro al Filtrar y borrar cierta condicion


Recommended Posts

Hola

Hice una macro que me filtra lo que contiene "ATO" en la columna H; si hay, se borran las filas el problema es que cuando bajo mi reporte y no hay "ATO" la macro me borra el titulo, es el mismo caso para la parte donde borra lo que contenga "DUMMY". Si alguien me puede ayudar a solucionar este error estare muy agradecido.

Adjunto una porcion del archivo para mejor referencia.

Sub MacroPrueba()

    strArchivo = Application.GetOpenFilename( _
        FileFilter:="Excel Files (*.xlsx), *.xlsx", _
        FilterIndex:=1, _
        Title:="Select: rptProductionCTO")
        If strArchivo = False Then Exit Sub
        Workbooks.OpenText Filename:=strArchivo
        Application.ScreenUpdating = False
        'Borrar ATO's y Dummy's: Aqui es donde tengo el error
        Columns("H:H").Select
        ActiveSheet.Range("$A$1:$AE$2000").AutoFilter Field:=8, Criteria1:="=*ATO*" _
        , Operator:=xlAnd
        finx = Range("A2000").End(xlUp).Row
        Rows("2:" & finx).Select
        Selection.Delete Shift:=xlUp
        Selection.AutoFilter
        Columns("H:H").Select
        ActiveSheet.Range("$A$1:$AE$2000").AutoFilter Field:=8, Criteria1:="=*DUMMY*" _
        , Operator:=xlAnd
        finx = Range("A2000").End(xlUp).Row
        Rows("2:" & finx).Select
        Selection.Delete Shift:=xlUp
        Selection.AutoFilter

 

Archivo de prueba.xlsx

Enlace a comentario
Compartir con otras webs

  • Silvia bloqueó este tema

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.