MACROS EN AUTOFILTROS

hola, Danilo !

Mostrar la cita

... con respecto a lo que dices de revisar o ajustar te cuento:
... bancos que se borrar siempre son el 7 y el 9... es si no agregarle otro criterio al codigo y listo.
... otro caso... mismo archivo se filtra por codigos de ciudades y el resultado... se copia en otros libros y luego se borran
... tengo una macro... Trabajo con dos archivos: sin pt organizado.xls y modulo de devoluciones recaudo.xls [...]

el siguiente codigo esta 'medio' probado :)) [filtrando, copiando y borrando en hojas del mismo libro]
lo trate de adaptar a la macro que utilizas, asi que espero que habra algunas [ligeras] modificaciones 'pendientes' :)
[solo por si las...] corre pruebas en copias de tus archivos ok? y... OJO por si hay 'saltos de linea' al copiarlo -?-

saludos,
hector.

Sub Filtra_Copia_Elimina()
Dim Devoluciones As String, Filtros, Sig As Byte
Devoluciones = "modulo de devluciones recaudo.xls"
Filtros = Array("ilegible", "mal diligenciada", "menor valor pagado", "planilla incompleta")
Application.ScreenUpdating = False
Workbooks.Open "C.\Proceso\" & Devoluciones
ThisWorkbook.Activate
If Range("a1").AutoFilter Then Range("a1").AutoFilter
For Sig = LBound(Filtros) To UBound(Filtros)
Range("a1").AutoFilter Field:, Criteria1:=Filtros(Sig)
With ActiveSheet.AutoFilter.Range
With .Offset(1).Resize(.Rows.Count - 1)
.Copy Workbooks(Devoluciones).Worksheets(1).Range("a65536").End(xlUp).Offset(1)
.EntireRow.Delete
End With
End With
Next
ActiveSheet.AutoFilter.Range.Resize(1).Copy Workbooks(Devoluciones).Worksheets(1).Range("a1")
Range("a1").AutoFilter
ActiveSheet.UsedRange
End Sub

HOLA HM

Te agradezco por tu ayudad y a KL tambien por sus aportes, la aplicacion
mejoro mucho el proceso que manejo.

Disculpas por no haberles escrito antes
Gracias




"Héctor Miguel" escribió:

Mostrar la cita

hola, Danilo !

> ... con respecto a lo que dices de revisar o ajustar te cuento:
> ... bancos que se borrar siempre son el 7 y el 9... es si no agregarle otro criterio al codigo y listo.
> ... otro caso... mismo archivo se filtra por codigos de ciudades y el resultado... se copia en otros libros y luego se borran
> ... tengo una macro... Trabajo con dos archivos: sin pt organizado.xls y modulo de devoluciones recaudo.xls [...]

el siguiente codigo esta 'medio' probado :)) [filtrando, copiando y borrando en hojas del mismo libro]
lo trate de adaptar a la macro que utilizas, asi que espero que habra algunas [ligeras] modificaciones 'pendientes' :)
[solo por si las...] corre pruebas en copias de tus archivos ok? y... OJO por si hay 'saltos de linea' al copiarlo -?-

saludos,
hector.

Sub Filtra_Copia_Elimina()
Dim Devoluciones As String, Filtros, Sig As Byte
Devoluciones = "modulo de devluciones recaudo.xls"
Filtros = Array("ilegible", "mal diligenciada", "menor valor pagado", "planilla incompleta")
Application.ScreenUpdating = False
Workbooks.Open "C.\Proceso\" & Devoluciones
ThisWorkbook.Activate
If Range("a1").AutoFilter Then Range("a1").AutoFilter
For Sig = LBound(Filtros) To UBound(Filtros)
Range("a1").AutoFilter Field:, Criteria1:=Filtros(Sig)
With ActiveSheet.AutoFilter.Range
With .Offset(1).Resize(.Rows.Count - 1)
.Copy Workbooks(Devoluciones).Worksheets(1).Range("a65536").End(xlUp).Offset(1)
.EntireRow.Delete
End With
End With
Next
ActiveSheet.AutoFilter.Range.Resize(1).Copy Workbooks(Devoluciones).Worksheets(1).Range("a1")
Range("a1").AutoFilter
ActiveSheet.UsedRange
End Sub