Filtrar tabla de 4 columnas de rango variable con 2 criterios

[Carlos García]

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.

[Toldeman]

Hola.

Por favor lee las normas del foro y sube el archivo solicitado.

Un saludo.

[Carlos García]

Ok y perdona por no haber seguido las instrucciones del foro como es debido.

Para más información, estoy utilizando Excel 2010.

Subo el archivo con la tabla objeto de filtro.

Muchas gracias y un saludo.

Tabla.rar

[Toldeman]

En tu archivo no existe el combo que mencionas y no esta incluida tampoco la macro.

Puedes poner de forma manual como deberia quedar una vez filtrado y ordenado, y tambien la logica de los procedimientos.

Un saludo.

[Carlos García]

Perdona [uSER=3]@Toldeman[/uSER], como se nota que soy novato en esto.

La macro (Private Sub CommandButton1_Click()) se ejecuta con el CommandButton1 con el nombre de "Aceptar", con la instrucción que está incluido en un userform denominado ListaLibrados.

Lo adjunto a la hoja excel y lo publico de nuevo.

Por otro lado, la tabla de la hoja2 ("BD"), debería quedar filtrada en la columna 2 con el nombre seleccionado en el Combobox denominado "SelPanadero" y, después, por la columna 4, por el mes que se selecciona en el Combobox denominado "SelMes".

La celda ("G1") de la Hoja1 toma el mes seleccionado en este segundo Combo y la celda adyacente ("H1") convierte el mes en su valor numérico, que es el filtro a aplicar en la cuarta columna de la Hoja2 ("BD").

Te ruego me disculpes de nuevo por mi torpeza en mi primera publicación.

Adjunto de nuevo el archivo con el formulario.

Muchas gracias de nuevo por tu atención y un saludo.

Tabla.rar