Usar Filtros Avanzados desde controles en un UserForm para obtener determinados registros en una hoja y trasladarlos a un control ListBox en el mismo UserForm

Hola Gente del Foro:

Como estan? Espero que bien. Tengo el siguiente problema para resolver.
Supongamos que en un libro exista una hoja llamada "Datos", que tenga la
siguiente tabla:

Nº Op.    Centro de Costo         Cuenta                Importe
1              Administración            Mantenimiento    $ 1.000
2              Administración            Mantenimiento    $ 2.000
3              Depósito                     Fletes                  $ 1.000
4              Sucursal                      Fletes                  $ 1.000
5              Administración            Impuestos           $ 1.500
6              Depósito                     Fletes                  $ 3.000
7              Sucursal                      Fletes                  $ 1.000
8              Depósito                     Fletes                  $ 1.500
9              Depósito                     Mantenimiento    $ 2.000

Supongamos también que tengo un UserForm en el cual tengo dos controles del
tipo ComboBox:
1) El ComboBox 1 tiene los items correspondientes a los Centros de Costo, en
el ejemplo: Administración, Depósito,  Sucursal y Todos.
2) El ComboBox 2 tiene los items correspondientes a las Cuentas, en el
ejemplo: Mantenimiento, Fletes, Impuestos y Todos.

En el UserForm también existe un control del tipo ListBox. Lo que yo
necesito es que al seleccionar un item del Combo 1 y un item del Combo 2 se
carguen todos los registros que cumplan las condiciones al ListBox y además
el código agregue una línea más al final con la suma de todos los importes.

Ejemplo 1:
Selecciono "Administración" en el ComboBox 1
Selecciono "Mantenimiento" en el ComboBox 2
Resultado: El ListBox muestra:
Nº Op.    Centro de Costo         Cuenta                Importe
1             Administración            Mantenimiento    $ 1.000
2             Administración            Mantenimiento    $ 2.000
Total                                                                    $
3.000

Ejemplo 2:
Selecciono "Depósito" en el ComboBox 1
Selecciono "Fletes" en el ComboBox 2
Resultado: El ListBox muestra:
Nº Op.    Centro de Costo         Cuenta                Importe
3              Depósito                     Fletes                  $ 1.000
6              Depósito                     Fletes                  $ 3.000
8              Depósito                     Fletes                  $ 1.500
Total                                                                      $
5.500

Ejemplo 3:
Selecciono "Todos" en el ComboBox 1
Selecciono "Fletes" en el ComboBox 2
Resultado: El ListBox muestra:
Nº Op.    Centro de Costo         Cuenta                Importe
3              Depósito                     Fletes                  $ 1.000
4              Sucursal                      Fletes                  $ 1.000
6              Depósito                     Fletes                  $ 3.000
7              Sucursal                      Fletes                  $ 1.000
8              Depósito                     Fletes                  $ 1.500
Total                                                                      $
7.500

Ejemplo 4:
Selecciono "Administración" en el ComboBox 1
Selecciono "Todos" en el ComboBox 2
Resultado: El ListBox muestra:
Nº Op.    Centro de Costo         Cuenta                Importe
1             Administración            Mantenimiento    $ 1.000
2             Administración            Mantenimiento    $ 2.000
5             Administración            Impuestos           $ 1.500
Total                                                                    $
4.500

Sospecho que debe poder hacerse con los filtros avanzados (AdvancedFilter),
pero no se como manejarlos. La unica manera que intenté para resolverlo es
haciendo varios bucles del tipo For - Next en donde el código va comparando
celda por celda si cumple o no con las condiciones, pero la  verdad que
funciona muy lento y queda un código excesivamente complejo. Estoy seguro
que con el AdvancedFilter se debe poder hacer mejor. Ayuda por favor!
Espero haya sido claro en mi exposición. Cualquier consulta estoy a su
disposición.
Saludos y desde ya muchas gracias.

Mariano

Hola Gente del Foro:

Como estan? Espero que bien. Tengo el siguiente problema para resolver.
Supongamos que en un libro exista una hoja llamada "Datos", que tenga la
siguiente tabla:

Nº Op. Centro de Costo Cuenta Importe
1 Administración Mantenimiento $ 1.000
2 Administración Mantenimiento $ 2.000
3 Depósito Fletes $ 1.000
4 Sucursal Fletes $ 1.000
5 Administración Impuestos $ 1.500
6 Depósito Fletes $ 3.000
7 Sucursal Fletes $ 1.000
8 Depósito Fletes $ 1.500
9 Depósito Mantenimiento $ 2.000

Supongamos también que tengo un UserForm en el cual tengo dos controles

tipo ComboBox:
1) El ComboBox 1 tiene los items correspondientes a los Centros de Costo,

el ejemplo: Administración, Depósito, Sucursal y Todos.
2) El ComboBox 2 tiene los items correspondientes a las Cuentas, en el
ejemplo: Mantenimiento, Fletes, Impuestos y Todos.

En el UserForm también existe un control del tipo ListBox. Lo que yo
necesito es que al seleccionar un item del Combo 1 y un item del Combo 2

carguen todos los registros que cumplan las condiciones al ListBox y

el código agregue una línea más al final con la suma de todos los

Ejemplo 1:
Selecciono "Administración" en el ComboBox 1
Selecciono "Mantenimiento" en el ComboBox 2
Resultado: El ListBox muestra:
Nº Op. Centro de Costo Cuenta Importe
1 Administración Mantenimiento $ 1.000
2 Administración Mantenimiento $ 2.000
Total $
3.000

Ejemplo 2:
Selecciono "Depósito" en el ComboBox 1
Selecciono "Fletes" en el ComboBox 2
Resultado: El ListBox muestra:
Nº Op. Centro de Costo Cuenta Importe
3 Depósito Fletes $ 1.000
6 Depósito Fletes $ 3.000
8 Depósito Fletes $ 1.500
Total $
5.500

Ejemplo 3:
Selecciono "Todos" en el ComboBox 1
Selecciono "Fletes" en el ComboBox 2
Resultado: El ListBox muestra:
Nº Op. Centro de Costo Cuenta Importe
3 Depósito Fletes $ 1.000
4 Sucursal Fletes $ 1.000
6 Depósito Fletes $ 3.000
7 Sucursal Fletes $ 1.000
8 Depósito Fletes $ 1.500
Total $
7.500

Ejemplo 4:
Selecciono "Administración" en el ComboBox 1
Selecciono "Todos" en el ComboBox 2
Resultado: El ListBox muestra:
Nº Op. Centro de Costo Cuenta Importe
1 Administración Mantenimiento $ 1.000
2 Administración Mantenimiento $ 2.000
5 Administración Impuestos $ 1.500
Total $
4.500

Sospecho que debe poder hacerse con los filtros avanzados

pero no se como manejarlos. La unica manera que intenté para resolverlo es
haciendo varios bucles del tipo For - Next en donde el código va

celda por celda si cumple o no con las condiciones, pero la verdad que
funciona muy lento y queda un código excesivamente complejo. Estoy seguro
que con el AdvancedFilter se debe poder hacer mejor. Ayuda por favor!
Espero haya sido claro en mi exposición. Cualquier consulta estoy a su
disposición.
Saludos y desde ya muchas gracias.

Mariano

sea configurada y mostrada desde controles en un UserForm,

hola de nuevo (aunque a mi todavia no me aparece el anterior mensaje
que he enviado)

en dicho mensaje cambia el codigo por este otro (las explicaciones y
forma de aplicacion son las mismas). Es practicamente igual pero se me
habia quedado una cosilla por ahi [ojo: lo mismo salta alguna
otra :-D] . Para no liarla lo vuelvo a poner entero retocado.


Private Sub cargarListBox( _
ByRef lstBox As MSForms.ListBox, _
ByVal celdaIni As Range, _
ByVal hojaDestino As String, _
ByRef columnas As Variant, _
ByRef datos As Variant)

Dim rngLista As Range, rngDestino As Range, _
rngCriterio As Range
Set rngLista = celdaIni.CurrentRegion
With rngLista.Parent
Set rngCriterio = .Range(.Cells(1, _
rngLista.Columns.Count + 3), _
.Cells(2, rngLista.Columns.Count + 3))
With .Parent.Worksheets(hojaDestino)
Set rngDestino = .Range(.Cells(1, 1), _
.Cells(1, rngLista.Columns.Count))
End With
End With
rngDestino.CurrentRegion.Columns.Clear
rngCriterio.CurrentRegion.Clear
Dim n As Integer, criterio As String
criterio = ""
For n = o To UBound(columnas)
If datos(n) <> "" Then _
criterio = criterio & Cells(2, columnas(n)) _
.Address(0, 0) & "=""" & datos(n) & ""","
Next
If criterio <> "" Then criterio = _
"=and(" & Left(criterio, Len(criterio) - 1) & ")"
rngCriterio.Cells(2, 1).Value = criterio
rngLista.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=rngCriterio, _
CopyToRange:=rngDestino, _
Unique:=False
With lstBox
.RowSource = ""
.ColumnCount = rngDestino.Columns.Count
.ColumnHeads = True
Dim fila As Long
fila = rngDestino.CurrentRegion.Rows.Count - 1
If fila < 1 Then fila = 1
.RowSource = rngDestino.Parent.Name & "!" & _
rngDestino.CurrentRegion.Offset(1).Resize( _
fila, rngDestino.Columns.Count).Address(0, 0)
End With
rngCriterio.Clear
Set rngCriterio = Nothing
Set rngDestino = Nothing
Set rngLista = Nothing
End Sub

un saludo
Ivan