Filtrar tabla de 4 columnas de rango variable con 2 criterios
publicado
Muy buenas,
Tengo una tabla con cuatro columnas y nº de filas variable, en Hoja2.
Nº Panadero Fecha Mes
14 Bogdan 07/11/14 11
2 Carlos 28/10/14 10
12 Carlos 08/11/14 11
8 Catalin 13/06/14 6
9 Marcial 12/11/14 11
10 Miguel 27/11/14 11
5 Nicu 04/04/14 4
11 Sinan 07/11/14 11
15 Miguel 30/11/14 11
16 Marcial 30/11/14 11
17 Zoqueto 20/08/14 8
18 Johnatan 12/11/14 11
Necesito aplicar 2 filtros a las columnas 2 (Panadero) y 4 (Mes).
El filtro de la columna 2 es el valor de un Combobox que se llama SelPanadero.
El filtro de la columna 4 es el valor de una celda que se encuentra en una hoja distinta de la que incluye la tabla a filtrar (Hoja1.Range("h1").value)
Muy buenas,
Tengo una tabla con cuatro columnas y nº de filas variable, en Hoja2.
Nº Panadero Fecha Mes
14 Bogdan 07/11/14 11
2 Carlos 28/10/14 10
12 Carlos 08/11/14 11
8 Catalin 13/06/14 6
9 Marcial 12/11/14 11
10 Miguel 27/11/14 11
5 Nicu 04/04/14 4
11 Sinan 07/11/14 11
15 Miguel 30/11/14 11
16 Marcial 30/11/14 11
17 Zoqueto 20/08/14 8
18 Johnatan 12/11/14 11
Necesito aplicar 2 filtros a las columnas 2 (Panadero) y 4 (Mes).
El filtro de la columna 2 es el valor de un Combobox que se llama SelPanadero.
El filtro de la columna 4 es el valor de una celda que se encuentra en una hoja distinta de la que incluye la tabla a filtrar (Hoja1.Range("h1").value)
Estoy intentando ejecutar la siguiente macro:
Private Sub CommandButton1_Click()
Hoja2.Activate
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
Range("a1").Select
With Selection
.AutoFilter Field:=2, Criteria1:=SelPanadero.Value
.AutoFilter Field:=4, Criteria1:=Hoja1.Range("h1").Value
'Ahora trato de ordenar la tabla de la Hoja2 ("BD") filtrada con los dos criterios, pero según la columna C
ActiveWorkbook.Worksheets("BD").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("BD").AutoFilter.Sort.SortFields.Add Key:=Range( _
"c1:c65000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("BD").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
El problema es que se produce un error y se queda colgado el programa en la ejecución de la macro, sin llegar a detenerse.
¿Me podríais ayudar, por favor?
Muchas gracias.