Foro Excel

Hola a todos:

Una consulta, grabé una macro haciendo un filtro:

Sub filtronuevo()
'
' filtronuevo Macro
' Macro grabada el 23/01/2012 por SILVIA QUISPE

Sheets("BASE").Select
Selection.AutoFilter Field:=1, Criteria1:="Jacqui"
End Sub

Se podrá dar en Criteria1, en lugar de un nombre especifico ("Jacqui"), referencia a una celda combinada que esta en la hoja llamada "RESUMEN"?, la celda que tomaría para el criterio es desde c9:d9

Muchas gracias por la ayuda que me puedan brindar..

saludos
Silvia

Hola Silvia
Recuerda sin archivo siempre sera algo como "adivinando"...

with Sheets("BASE").Range("$A$12:$B$15")
.AutoFilter Field:=1, Criteria1:=sheets("RESUMEN").Range("C9")
.AutoFilter Field:=2, Criteria2:=sheets("RESUMEN").Range("D9")
end with

Saludos desde Honduras (a ambos)

Hola Silvia
Recuerda sin archivo siempre sera algo como "adivinando"...

Código: Seleccionar todo

with Sheets("BASE").Range("$A$12:$B$15")
.AutoFilter Field:=1, Criteria1:=sheets("RESUMEN").Range("C9")
.AutoFilter Field:=2, Criteria2:=sheets("RESUMEN").Range("D9")
end with

Saludos desde Honduras (a ambos)

Hola Adrián y Gerson

Antes que nada, muchas gracias los dos, por la pronta respuesta... Gerson, tienes razón, pueda que no sea justificación, pero pensé que se podía agregar mas facilmente en el código que grabé.. y asi no dar mas trabajo a quien me pudiera ayudar..ya veo que no fue asi..

Adrian: ya vi que solo hay que nombrar la primera celda de la combinación.. tu macro me funciona perfecto en la misma hoja...

Gerson, gracias, tu código me quedó asi:

Sub filtronuevo1()

With Sheets("BASE").Range("$b$6:$b$273")
.AutoFilter Field:=1, Criteria1:=Sheets("RESUMEN").Range("d8")
End With

End Sub

tengan todos un muy buen dia

Saludos
Silvia..

Silvia
Que bueno que te funcione!

Si no vas a usar por mas de una vez los rangos, puedes dejarlo en una sola linea
Algo asi:
Sheets("BASE").Range("$b$6:$b$273").AutoFilter Field:=1, Criteria1:=Sheets("RESUMEN").Range("d8"), ya no necesitas de With ...End With pues este nos sirve para evitar repeticiones a la hora de usar nuestros rangos

Estudia a profundidad la propiedad .AutoFilter

Saludos

hola Gerson

Gracias, por la corrección y la explicación.. aunque funciona bien como esta, modificaré el código en mi libro..

Tomaré en cuenta lo que me dices de la propiedad .autofilter..

Además te comento que lo que mas se hacer de macros es buscar en la web, tratar de traducir lo que dicen y adecuarlos a mis hojas, y por ahi que grabar alguna macro con la grabadora, y cuando no me sale ni uno ni otro, solicito ayuda a ustedes... .

!que estes muy bien Gerson! y gracias nuevamente

Silvia

Ah! verdad me olvidé Gerson:
Está muy bueno tu blog..

Estaré entrando a ver las novedades que cuelgas..

saludos
Silvia..