Excel - Filtro con Macro

   
Vista:

Filtro con Macro

Publicado por Roberto Mendoza (7 intervenciones) el 02/06/2015 16:01:38
Hola buen dia, me pueden apoyar por favor, necesito configurar una macro para q filtre.

El problema es que necesito q sea un criterio variable es decir necesito que se filtre segun lo q este escrito en
RANGE("D5") y no lo q dice Criterial "1"

como pueden ver tengo la informacion en la hoja llamada parque, una hoja donde quiero q este el boton q colocare para filtrar llamada Home, y otra hoja donde quiero q la informacion quede filtrada llamada "filtro"


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Macro2()
'
' Macro2 Macro
'
 
'
    Range("D5").Select
    Selection.Copy
    Sheets("Parque").Select
    Rows("1:1").Select
    Application.CutCopyMode = False
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$GG$49316").AutoFilter Field:=2, Criteria1:="1"
    Cells.Select
    Selection.Copy
    Sheets("Filtro").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("Home").Select
    Range("D2").Select
End Sub

Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Filtro con Macro

Publicado por nn (8 intervenciones) el 02/06/2015 20:20:07
probá cambiando Criteria1:="1" por Criteria1:=RANGE("D5").Value
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Filtro con Macro

Publicado por Roberto Mendoza (7 intervenciones) el 02/06/2015 20:55:28
Hola muchas gracias por tu respuesta, auq aun no ha quedado correcto, lo coloque como me indicaste pero como q no detecta el numero ahora simplemente ejecuta el filtro sin ningun criterio.

Coloco la macro. <(te comento q modifique de d5 a c3)

Sub Macro1()
'
' Macro1 Macro
'

'
Range("c3").Select
Selection.Copy
Sheets("Parque").Select
Rows("1:1").Select
Application.CutCopyMode = False
Selection.AutoFilter
ActiveSheet.Range("$A$1:$GO$57569").AutoFilter Field:=2,

Criteria1:=Range("c3").Value


Rows("1:1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Sheets("Filtro").Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Home").Select
Range("A7").Select

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Filtro con Macro

Publicado por Khristtian (77 intervenciones) el 02/06/2015 21:11:25
Yo lo haría Así

Sub Macro1()
Dim filtro As String
filtro = InputBox("Criterio Columna A")
ActiveSheet.Range("$A:$C").AutoFilter Field:=1, Criteria1:="=" & filtro, Operator:=xlAnd
MsgBox ("Filtro: " & filtro & " realizado")
End Sub


Donde:
1.- "filtro" es una variable para almacenar el texto del filtro
2.- "$A:$C", son las columnas de la tabla a filtrar
3.- "=" & filtro, es el criterio utilizado, Esto es: Igual al texto ingresado en "filtro"
4.- "xlAnd", operador igual

Saludos

Dibujo1


Dibujo2


Dibujo3
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Filtro con Macro

Publicado por Roberto Mendoza (7 intervenciones) el 02/06/2015 22:16:14
Muchas gracias!! me funciono muy bien.

Exelente tu explicacion, estoy muy agradecido ya estaba frustrado pues cuando empiezas a sentirte comodo con el excel siempre sale un nuevo reto.

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Filtro con Macro

Publicado por Khristian (77 intervenciones) el 02/06/2015 23:59:07
Por eso excel es para planillas... para programar tienes la libertad de los lenguajes de programación.

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar