MACROS EN AUTOFILTROS

HOLA HM

Principalmente lo que necesito en excel es: un ejemplo real,

BANCO OFICINA APORTE NIT
61 1032 50.000 899994584
61 1032 50.000 899994584
7 1096 45.800 800369456
7 1096 1.000000 800382485
88 2055 600.000 800475578
88 3085 300.000 986474338
61 1074 250.000 800789424
61 1032 80.000 899994584
9 2055 35.000 8003858605
9 2001 100.000 484646458

1. Aplico los filtros:
POR BANCO: 7 Y 9 y los resultados del filtro se borran. (toda la fila)
POR OFICINA: 1032,1096.1074 y los resultados del filtro se borran. (toda
la fila)
Y asi son los otros filtros que aplico, son muchos campos los que tengo que
filtrar. y lo que quiero es hacerlos por medio de macros, estuve trantando de
hacerlo grabando una macro, pero no sirvio.

No se si con esta informacion tienes!!!!
Gracias

hola, Danilo !

... lo que necesito en excel es: un ejemplo real,
BANCO OFICINA APORTE NIT
61 1032 50.000 899994584
61 1032 50.000 899994584
7 1096 45.800 800369456
7 1096 1.000000 800382485
88 2055 600.000 800475578
88 3085 300.000 986474338
61 1074 250.000 800789424
61 1032 80.000 899994584
9 2055 35.000 8003858605
9 2001 100.000 484646458
1. Aplico los filtros:
POR BANCO: 7 Y 9 y los resultados del filtro se borran. (toda la fila)
POR OFICINA: 1032,1096.1074 y los resultados del filtro se borran. (toda la fila)
Y asi son los otros filtros... son muchos campos los que tengo que filtrar... quiero hacerlos por... macros
... trantando... grabando una macro, pero no sirvio.
No se si con esta informacion tienes!!!!

-> supongo que este ejemplo es por/para una region/ciudad 'especifica' -?-
-> lo que NO se alcanza a 'apreciar'...
-> son los criterios para descalificar/eliminar/... un banco u oficina 'en especifico'-?- [p.e.]
-> la eliminacion segun los filtros aplicables que comentas en este mensaje...
-> SOLO 'deja vivo' el banco 88 ->CON las oficinas 2055 y 3085<- ... entonces ...
-> por que NO eliminas el banco 88 CON la oficina 2055 ?
-> si la oficina 2055 'se va' con el banco 9 'eliminable' -???-
-> por que el banco 61 lo eliminas 'por oficina'... Y NO 'por banco' -???-

[en resumen]...
1) SI 'traes' de otros programas ->a excel<- ... [y desde ahi filtras y despues]...
2) 'cruzas' dos tablas en access [desconociendo como estableces los criterios de consulta/filtrado en access]
3) [y seguidamente]... 'regresas' ->con duplicidad de duplicados<- de access a excel
[creo que] es mas que probable que la 'afinacion de detalles' sea posible desde antes de cualquier duplicacion de duplicados
solo que... 'el detalle'... SIGUE estando en los detalles que no se alcanzan a ver/descubrir/apreciar/adivinar/intuir/... :))

y todavia no hemos 'regresado' a entender cuando son 'duplicados' y cuando no -?-
o en cuales 'se puede dejar' solo uno de los duplicados y cuando son TODOS 'eliminbles' -?-

-> [me parece que] NINGUNA de las propuestas hasta ahora...
se ha acercado siquiera a la situacion 'real' que se debe resolver -?-
-> [probablemente me vas a considerar un pesado] :(( pero... 'los detalles' [que siguen 'en el aire']...
SON los que estan 'pesando' para [en este caso impidiendo] una propuesta 'decente/completa/...'
-> [o probablemente yo este 'queriendo ir mas alla de...'] -?-
[se que hay cosas que 'se quedan en el tintero'... pero no 'tantas'...] :D

comentas?
saludos,
hector.

Hola Hector M y KL

Me disculpan que no les habia podido contestar:

1. Les cuento que ya organize el problema de los duplicados, (esto lo hize
en Acces, en el cruze de la consulta). por fin...

2. Las macros en Excel para borrar los resultados de los filtros ya los
hize, las hize de una manera un poco rudimentaria ejemplo:

Sub borrar_banco7()

Range("A1").Select
Selection.AutoFilter
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Range("A2").Select
ActiveCell.FormulaR1C1 = "7"
Range("A3").Select
Selection.AutoFilter Field:=1, Criteria1:="7"
Rows("2:2").Select
Rows("2:10000").Select
Selection.Delete Shift:=xlUp
Selection.AutoFilter Field:=1
Range("A1").Select
End Sub

3. Tengo una pregunta: Es posible desde codigo guardar un archivo con la
fecha del dia actual, ejemplo:
devoluciones 10082005.xls (siendo esta la
fecha del dia actual)

MUCHAS GRACIAS
DANILO A

hola, Danilo !

... ya organize el problema de los duplicados... en Acces... por fin...
... en Excel para borrar los resultados de los filtros... de una manera un poco rudimentaria ejemplo [...]
... pregunta: Es posible desde codigo guardar un archivo con la fecha del dia actual, ejemplo:
devoluciones 10082005.xls (siendo esta la fecha del dia actual)

1) 'tratando' de agilizar el codigo que ya estas utilizando... prueba con...
Sub Borrar_Banco_7()
Application.ScreenUpdating = False
If Range("a1").AutoFilter Then Range("a1").AutoFilter
Range("a1").AutoFilter Field:=1, Criteria1:="7"
With ActiveSheet.AutoFilter.Range
.Offset(1).Resize(.Rows.Count - 1).EntireRow.Delete
End With
Range("a1").AutoFilter
End Sub

2) para asignar la fecha del sistema como parte de un nombre de archivo... prueba con...
Dim Ruta As String, Nombre As String
Ruta = "C:\Ruta y\Sub Carpetas\"
Nombre = "devoluciones " & Format(Date, "ddmmyyyy") & ".xls"
ActiveWorkbook.SaveAs Ruta & Nombre

notas: ninguna de las propuestas anteriores 'contempla' -posibles- 'errores' :-(
[p.e. que el nombre del archvo pudiera ya existir, en caso de segundas grabaciones] -?-
[probablemente] seria tambien de utilidad 'preguntar' cual es el banco que se borra -?-
[darias mayor inter-operatividad para 'aprovechar' varios bancos en una sola 'pasada'] :))

ajusta/modifica donde veas conveniente, y... si cualquier duda [o informacion adicional]... comentas?
saludos,
hector.

Hola HM

Muchisisimas gracias, que excelentes codigos me van ha serviar mucho, con
respecto a lo que dices de revisar o ajustar te cuento:

1. p.e: Los bancos que se borrar siempre son el 7 y el 9, aunque es si no
agregarle otro criterio al codigo y listo.

2. tengo otro caso, este mismo archivo se filtra por codigos de ciudades y
el resultado de la consulta se copia en otros libros y luego se borran del
archivo principal, yo tengo una macro pero es un poco ???? no se como decirlo
:-( esta es:

Trabajo con dos archivos: sin pt organizado.xls y modulo de devoluciones
recaudo.xls

Sub DEVOLUCIONES_RECAUDO()
'ABRIR LIBRO DEVULOCIONES
Application.ScreenUpdating = False
Workbooks.Open Filename:="C:\PROCESO\MODULO DE DEVLUCIONES RECAUDO.xls"

Windows("SIN PT ORGANIZADO.xls").Activate
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Range("A2").Select
ActiveCell.FormulaR1C1 = "BORRAR"
Range("O2").Select
ActiveCell.FormulaR1C1 = "ilegible"
Selection.AutoFilter Field:, Criteria1:="ilegible"
Rows("2:5000").Select
Selection.Copy
Windows("MODULO DE DEVLUCIONES RECAUDO.XLS").Activate
Range("A1").Select
ActiveSheet.Paste
Windows("SIN PT ORGANIZADO.xls").Activate
Application.CutCopyMode = False
Rows("2:5000").Select
Selection.Delete Shift:=xlUp
Selection.AutoFilter Field:
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Range("A2").Select
ActiveCell.FormulaR1C1 = "BORRAR"
Range("O2").Select
ActiveCell.FormulaR1C1 = "mal diligenciada"
Selection.AutoFilter Field:, Criteria1:="mal diligenciada"
Rows("2:5000").Select
Selection.Copy
Windows("MODULO DE DEVLUCIONES RECAUDO.XLS").Activate
Range("A1").Select

Call Final_lista

ActiveSheet.Paste
Windows("SIN PT ORGANIZADO.xls").Activate
Application.CutCopyMode = False
Rows("2:5000").Select
Selection.Delete Shift:=xlUp
Selection.AutoFilter Field:
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Range("A2").Select
ActiveCell.FormulaR1C1 = "BORRAR"
Range("O2").Select
ActiveCell.FormulaR1C1 = "menor valor pagado"
Selection.AutoFilter Field:, Criteria1:="menor valor pagado"
Rows("2:2").Select
Rows("2:7000").Select
Selection.Copy
Windows("MODULO DE DEVLUCIONES RECAUDO.XLS").Activate
Range("A1").Select

Call Final_lista

ActiveSheet.Paste
Windows("SIN PT ORGANIZADO.xls").Activate
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Selection.AutoFilter Field:
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Range("A2").Select
ActiveCell.FormulaR1C1 = "BORRAR"
Range("O2").Select
ActiveCell.FormulaR1C1 = "planilla incompleta"
Range("O3").Select
Selection.AutoFilter Field:, Criteria1:="planilla incompleta"
Rows("2:5000").Select
Selection.Copy
Windows("MODULO DE DEVLUCIONES RECAUDO.XLS").Activate
Range("A1").Select

Call Final_lista

ActiveSheet.Paste
Windows("SIN PT ORGANIZADO.xls").Activate
Application.CutCopyMode = False
Rows("2:5000").Select
Selection.Delete Shift:=xlUp
Selection.AutoFilter Field:

Windows("MODULO DE DEVLUCIONES RECAUDO.XLS").Activate
Range("A1").Select

Call BorrarFilas

'PONER TITULOS
Range("A1").Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Windows("SIN PT ORGANIZADO.xls").Activate
Rows("1:1").Select
Selection.Copy
Windows("MODULO DE DEVLUCIONES RECAUDO.XLS").Activate
Range("A1").Select
ActiveSheet.Paste
Windows("SIN PT ORGANIZADO.xls").Activate
Application.CutCopyMode = False
Windows("MODULO DE DEVLUCIONES RECAUDO.XLS").Activate

End Sub

Sub BorrarFilas()
While ActiveCell.Value <> ""
If ActiveCell.Value <> "BORRAR" Then
ActiveCell.Offset(1, 0).Range("A1").Select
Else
Selection.EntireRow.Delete
End If
Wend
End Sub

Muchas Gracias
Danilo A.