Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
A better way to browse. Learn more.
A full-screen app on your home screen with push notifications, badges and more.
Este tema está ahora archivado y está cerrado a más respuestas.
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