Excel - Macro

 
Vista:
sin imagen de perfil
Val: 2
Ha disminuido su posición en 2 puestos en Excel (en relación al último mes)
Gráfica de Excel

Macro

Publicado por laura (1 intervención) el 20/05/2019 22:27:55
Hola buen dia,

Tengo un problemita al programar un filtro avanzado, creo que un bucle de Excel pero no puedo solucionarlo.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub FILTRO()
'
' FILTRO Macro
'
 
'
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Sheets("Datos").Range("A8:T200").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("A3:T4"), CopyToRange:=Range("A7:T7"), Unique:=False
    Range("A4:T4").Select
    Selection.ClearContents
    Range("A4").Select
End Sub
Quedo atenta a sus comentarios.
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
sin imagen de perfil
Val: 35
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Macro

Publicado por MIGUEL (9 intervenciones) el 21/05/2019 04:55:06
Hola Laura

Te dejo la macro corregida

1
2
3
4
5
6
7
8
9
10
11
12
Sub FILTRO()
    Dim rango As Range
 
    Set rango = Sheets("Datos").Range("A8:T200")
 
    rango.AdvancedFilter Action:=xlFilterCopy, criteriarange:= _
    Sheets("Datos").Range("A3:T4"), copytorange:=Sheets("Hoja2").Range("A7"),unique:=False'aqui no se donde los quieras pegar
    ' aqui me imagino que los criterios estan en la hoja Datos en el rango que pones("A3:T4)
    'recuerda que en la fila 3 de los criterios van los encabezados de la tabla y tienen que ser exactamente iguales
    'la fila 4 es para los criterios de busqueda
    Sheets("Datos").Range("A4:T4").ClearContents
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
Revisar política de publicidad