Excel - Filtrar y cargar ListBox a traves de 4 CheckBox

Hola a todos.

Tengo un archivo que trabaja con un ListBox Detalle_Deudor y quiero que funcione de la siguiente manera:

Para activar el Userform1 con ListBox Detalle_Deudor hacer Click en celda ("Cuenta") de la hoja Resumen Cart-Cli. Después haciendo click en cualquiera de las celdas de Cuenta en la columna (“A5:A…”) cargar de registros al UserForm1.Detalle_Deudor. En esta se deben cargar todos los registros que tengan la misma Cuenta (“A5:A..”). ósea un solo criterio, además los importes que correspondan a cada operación (Factura Vencida: Menor a 30 días y Mayor a 30 días - Nota de Crédito - Transacción). En este caso los 4 CheckBox deben estar sin seleccionar

Al seleccionar el CheckBox1 “Menor 30 días” se filtrarán todos los registros con Comité de “0 a 30” y sean clase de documento “DF”. Al seleccionar CheckBox2 “Mayor a 30 días” si filtran todos los registros con días de atraso Mayor a 30 días que sean documento clase “DF”. Además, la suma de los montos que corresponda

Al seleccionar el CheckBox3 se cargarán todas las Notas de Crédito con criterio Cuenta y Documento clase “DN”. Además, la suma de los montos que corresponda.

Al seleccionar el CheckBox4 se cargarán todas las Transacciones con criterio Cuenta y Documento clase “DZ”, “AB”, “DD” y “DC”. Además, la suma de los montos que corresponda.

En el TextBox Monto_Total deben ir la suma de todos los montos de: Factura vencida, Nota de Crédito y Transacción.

Este es el código de una Matriz que estoy adaptando, todavía está al 70% falta algunos detalles para obtener lo explicado. Aun no puedo llegar a la solución espero su apoyo estimados(as).

• Detalle-Facturas-vencidas-Y-OTROS.zip(260,3 KB)

Por fin logre armar el código. funciona muy bien.
Solo faltaría un detalle porque hasta ahora cada vez que selecciono un CheckBox tengo que volver a seleccionar una celda en la columna ("A5:A136") para que se produzca el evento, lo ideal seria que una vez activado el UserForm1 y seleccionado en la celda el código del cliente, con solo seleccionar cada CheckBox se produzca los eventos (despliegue de registros en el ListBox). Haber si algún master tiene la solución.

Adjunto Archivo.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WS1 As Worksheet
Dim WS2 As Worksheet

Dim Cuenta, N°Cuenta As Variant
If ActiveCell.FormulaR1C1 = "Cuenta" Then
UserForm1.Show
End If
With UserForm1.Detalle_Deudor
If Not Intersect(Target, Range("A:A")) Is Nothing And Selection.Count = 1 And _
ActiveCell.FormulaR1C1 <> "Cuenta" Then
Set WS1 = Worksheets("Cartola Cli")
Cuenta = Intersect(Target, Range("A:A"))

.Clear
UserForm1.Total_Menor_30.Caption = Empty
UserForm1.Total_Mayor_30.Caption = Empty
UserForm1.Monto_Total_NC.Caption = Empty
UserForm1.Monto_Total_TR.Caption = Empty
UserForm1.Monto_Total_Fact.Caption = Empty
UserForm1.Monto_Total.Text = Empty
UserForm1.Total_Vigente.Caption = Empty
UserForm1.Total_Otros.Caption = Empty
UserForm1.Total_Reg.Caption = Empty

J = 0
J1 = 0
N = 0
N1 = 0
N2 = 0
T = 0
NN = 0
NNN = 0
JJ = 0
JJJ = 0
VDF = 0
O = 0

Mayor_MesT = 0
Menor_MesT = 0
NC_TotalT = 0
Transacc_TotalT = 0
Fact_VencidaT = 0
Estado_CtaT = 0
Otros_TotalT = 0
Vigente_Total = 0
VDF_Total = 0
Otros = 0
Otros_Total = 0

Mayor_Mes = 0
Menor_Mes = 0
Mayor_MesF = 0
Menor_MesF = 0
NC_Total = 0
Transacc_Total = 0
Fact_Vencida = 0
Estado_Cta = 0
uLTIMAfILA = WS1.Range("A" & Rows.Count).End(xlUp).Row 'Obtiene el valor de la ultima fila con datos
Dim aRR As Variant 'Vector que contendra los datos de la hoja gente
aRR = WS1.Range("A2:W" & uLTIMAfILA).Value2
Dim VR_Todos() As Variant 'Vector adimensional que se transformara en bidimensional para contener los datos de la busqueda y luego cargarlos en el listbox1
Dim VR_Fact1() As Variant 'Vector adimensional que se transformara en bidimensional para contener los datos de la busqueda y luego cargarlos en el listbox1
Dim VR_Fact1M() As Variant 'Vector adimensional que se transformara en bidimensional para contener los datos de la busqueda y luego cargarlos en el listbox1
Dim VR_Fact1MM() As Variant 'Vector adimensional que se transformara en bidimensional para contener los datos de la busqueda y luego cargarlos en el listbox1
Dim VR_VigenteDF() As Variant 'Vector adimensional que se transformara en bidimensional para contener los datos de la busqueda y luego cargarlos en el listbox1
Dim VR_Otros() As Variant 'Vector adimensional que se transformara en bidimensional para contener los datos de la busqueda y luego cargarlos en el listbox1
Dim VR_NotaCredit() As Variant 'Vector adimensional que se transformara en bidimensional para contener los datos de la busqueda y luego cargarlos en el listbox1
Dim VR_Transacc() As Variant 'Vector adimensional que se transformara en bidimensional para contener los datos de la busqueda y luego cargarlos en el listbox1
For I = LBound(aRR) To UBound(aRR) 'For, recorre el vector que contiene Datos de la Hoja Cartola Cli desde el registro inicial hasta el registro final
N°Cuenta = aRR(I, 17)
If Cuenta = N°Cuenta Then
Todos = Todos + 1
ReDim Preserve VR_Todos(1 To 8, 1 To Todos)
For T = 1 To 8
If T = 1 Then
VR_Todos(T, Todos) = aRR(I, 17) 'Cuenta
Else
If T = 2 Then
VR_Todos(T, Todos) = aRR(I, 3) 'Clase
Else
If T = 3 Then
VR_Todos(T, Todos) = aRR(I, 4) 'Referencia

Else
If T = 4 Then
VR_Todos(T, Todos) = Format(aRR(I, 10), "##,##0") 'Monto
If LCase(aRR(I, 22)) Like "0 a 30" And aRR(I, 3) = "DF" Then
Menor_MesT = Menor_MesT + aRR(I, 10)
ElseIf aRR(I, 21) > 30 And aRR(I, 3) = "DF" Then
Mayor_MesT = Mayor_MesT + aRR(I, 10)
ElseIf aRR(I, 3) = "DN" Then
NC_TotalT = NC_TotalT + aRR(I, 10)
ElseIf aRR(I, 3) = "DZ" Or aRR(I, 3) = "DD" Or _
aRR(I, 3) = "DC" Then
Transacc_TotalT = Transacc_TotalT + aRR(I, 10)
ElseIf aRR(I, 22) = "Vigente" And aRR(I, 3) = "DF" Then
Vigente_Total = Vigente_Total + aRR(I, 10)
ElseIf aRR(I, 3) <> "DZ" Or aRR(I, 3) <> "DF" Or _
aRR(I, 3) <> "DD" Or aRR(I, 3) <> "DC" Or _
aRR(I, 3) <> "DN" Then
Otros_TotalT = Otros_TotalT + aRR(I, 10)
End If

Else
If T = 5 Then
VR_Todos(T, Todos) = Format(aRR(I, 9), "d/m/yyyy") 'Vencimiento
Else
If T = 6 Then
VR_Todos(T, Todos) = aRR(I, 11) 'Texto
UserForm1.Cuenta.Caption = aRR(I, 17)
UserForm1.RazonSocial.Caption = aRR(I, 20)
Else
If T = 7 Then
VR_Todos(T, Todos) = aRR(I, 13) 'N°Documento
Else
VR_Todos(T, Todos) = aRR(I, 16) 'Usuario
End If
End If
End If
End If
End If
End If
End If
Next T
End If
If aRR(I, 3) = "DF" And aRR(I, 22) <> "Vigente" And Cuenta = N°Cuenta Then
NNN = NNN + 1
ReDim Preserve VR_Fact1MM(1 To 8, 1 To NNN)
For JJJ = 1 To 8
If JJJ = 1 Then
VR_Fact1MM(JJJ, NNN) = aRR(I, 17) 'Cuenta
Else
If JJJ = 2 Then
VR_Fact1MM(JJJ, NNN) = aRR(I, 3) 'Clase
Else
If JJJ = 3 Then
VR_Fact1MM(JJJ, NNN) = aRR(I, 4) 'Referencia

Else
If JJJ = 4 Then
VR_Fact1MM(JJJ, NNN) = Format(aRR(I, 10), "##,##0") 'Monto
If LCase(aRR(I, 22)) Like "0 a 30" Then
Menor_MesF = Menor_MesF + aRR(I, 10)
ElseIf aRR(I, 21) > 30 Then
Mayor_MesF = Mayor_MesF + aRR(I, 10)
End If
Else
If JJJ = 5 Then
VR_Fact1MM(JJJ, NNN) = Format(aRR(I, 9), "d/m/yyyy") 'Vencimiento
Else
If JJJ = 6 Then
VR_Fact1MM(JJJ, NNN) = aRR(I, 11) 'Texto
UserForm1.Cuenta.Caption = aRR(I, 17)
UserForm1.RazonSocial.Caption = aRR(I, 20)
Else
If JJJ = 7 Then
VR_Fact1MM(JJJ, NNN) = aRR(I, 13) 'N°Documento
Else
VR_Fact1MM(JJJ, NNN) = aRR(I, 16) 'Usuario
End If
End If
End If
End If
End If
End If
End If
Next JJJ
End If
If aRR(I, 3) = "DF" And aRR(I, 22) <> "Vigente" And Cuenta = N°Cuenta And _
LCase(aRR(I, 22)) Like "0 a 30" Then
N = N + 1
ReDim Preserve VR_Fact1(1 To 8, 1 To N)
For J = 1 To 8
If J = 1 Then
VR_Fact1(J, N) = aRR(I, 17) 'Cuenta
Else
If J = 2 Then
VR_Fact1(J, N) = aRR(I, 3) 'Clase
Else
If J = 3 Then
VR_Fact1(J, N) = aRR(I, 4) 'Referencia

Else
If J = 4 Then
VR_Fact1(J, N) = Format(aRR(I, 10), "##,##0") 'Monto
Menor_Mes = Menor_Mes + aRR(I, 10)
Else
If J = 5 Then
VR_Fact1(J, N) = Format(aRR(I, 9), "d/m/yyyy") 'Vencimiento
Else
If J = 6 Then
VR_Fact1(J, N) = aRR(I, 11) 'Texto
UserForm1.Cuenta.Caption = aRR(I, 17)
UserForm1.RazonSocial.Caption = aRR(I, 20)
Else
If J = 7 Then
VR_Fact1(J, N) = aRR(I, 13) 'N°Documento
Else
VR_Fact1(J, N) = aRR(I, 16) 'Usuario
End If
End If
End If
End If
End If
End If
End If
Next J
ElseIf aRR(I, 3) = "DF" And aRR(I, 22) <> "Vigente" And Cuenta = N°Cuenta And _
aRR(I, 22) > 30 Then
NN = NN + 1
ReDim Preserve VR_Fact1M(1 To 8, 1 To NN)
For JJ = 1 To 8
If JJ = 1 Then
VR_Fact1M(JJ, NN) = aRR(I, 17) 'Cuenta
Else
If JJ = 2 Then
VR_Fact1M(JJ, NN) = aRR(I, 3) 'Clase
Else
If JJ = 3 Then
VR_Fact1M(JJ, NN) = aRR(I, 4) 'Referencia

Else
If JJ = 4 Then
VR_Fact1M(JJ, NN) = Format(aRR(I, 10), "##,##0") 'Monto
Mayor_Mes = Mayor_Mes + aRR(I, 10)
Else
If JJ = 5 Then
VR_Fact1M(JJ, NN) = Format(aRR(I, 9), "d/m/yyyy") 'Vencimiento
Else
If JJ = 6 Then
VR_Fact1M(JJ, NN) = aRR(I, 11) 'Texto
UserForm1.Cuenta.Caption = aRR(I, 17)
UserForm1.RazonSocial.Caption = aRR(I, 20)
Else
If JJ = 7 Then
VR_Fact1M(JJ, NN) = aRR(I, 13) 'N°Documento
Else
VR_Fact1M(JJ, NN) = aRR(I, 16) 'Usuario
End If
End If
End If
End If
End If
End If
End If
Next JJ




ElseIf aRR(I, 3) = "DF" And aRR(I, 22) = "Vigente" And Cuenta = N°Cuenta Then
VigenteDF = VigenteDF + 1
ReDim Preserve VR_VigenteDF(1 To 8, 1 To VigenteDF)
For VDF = 1 To 8
If VDF = 1 Then
VR_VigenteDF(VDF, VigenteDF) = aRR(I, 17) 'Cuenta
Else
If VDF = 2 Then
VR_VigenteDF(VDF, VigenteDF) = aRR(I, 3) 'Clase
Else
If VDF = 3 Then
VR_VigenteDF(VDF, VigenteDF) = aRR(I, 4) 'Referencia

Else
If VDF = 4 Then
VR_VigenteDF(VDF, VigenteDF) = Format(aRR(I, 10), "##,##0") 'Monto
VDF_Total = VDF_Total + aRR(I, 10)
Else
If VDF = 5 Then
VR_VigenteDF(VDF, VigenteDF) = Format(aRR(I, 9), "d/m/yyyy") 'Vencimiento
Else
If VDF = 6 Then
VR_VigenteDF(VDF, VigenteDF) = aRR(I, 11) 'Texto
UserForm1.Cuenta.Caption = aRR(I, 17)
UserForm1.RazonSocial.Caption = aRR(I, 20)
Else
If VDF = 7 Then
VR_VigenteDF(VDF, VigenteDF) = aRR(I, 13) 'N°Documento
Else
VR_VigenteDF(VDF, VigenteDF) = aRR(I, 16) 'Usuario
End If
End If
End If
End If
End If
End If
End If
Next VDF

ElseIf (aRR(I, 3) <> "DZ" And aRR(I, 3) <> "DD" And aRR(I, 3) <> "DC" And aRR(I, 3) <> "DF" _
And aRR(I, 3) <> "DN") And Cuenta = N°Cuenta Then
Otros = Otros + 1
ReDim Preserve VR_Otros(1 To 8, 1 To Otros)
For O = 1 To 8
If O = 1 Then
VR_Otros(O, Otros) = aRR(I, 17) 'Cuenta
Else
If O = 2 Then
VR_Otros(O, Otros) = aRR(I, 3) 'Clase
Else
If O = 3 Then
VR_Otros(O, Otros) = aRR(I, 4) 'Referencia
Else
If O = 4 Then
VR_Otros(O, Otros) = Format(aRR(I, 10), "##,##0") 'Monto
Otros_Total = Otros_Total + aRR(I, 10)
Else
If O = 5 Then
VR_Otros(O, Otros) = Format(aRR(I, 9), "d/m/yyyy") 'Vencimiento
Else
If O = 6 Then
VR_Otros(O, Otros) = aRR(I, 11) 'Texto
UserForm1.Cuenta.Caption = aRR(I, 17)
UserForm1.RazonSocial.Caption = aRR(I, 20)
Else
If O = 7 Then
VR_Otros(O, Otros) = aRR(I, 13) 'N°Documento
Else
VR_Otros(O, Otros) = aRR(I, 16) 'Usuario
End If
End If
End If
End If
End If
End If
End If
Next O

ElseIf aRR(I, 3) = "DN" And Cuenta = N°Cuenta Then
N1 = N1 + 1
ReDim Preserve VR_NotaCredit(1 To 8, 1 To N1)
For J1 = 1 To 8
If J1 = 1 Then
VR_NotaCredit(J1, N1) = aRR(I, 17) 'Cuenta
Else
If J1 = 2 Then
VR_NotaCredit(J1, N1) = aRR(I, 3) 'Clase
Else
If J1 = 3 Then
VR_NotaCredit(J1, N1) = aRR(I, 4) 'Referencia

Else
If J1 = 4 Then
VR_NotaCredit(J1, N1) = Format(aRR(I, 10), "##,##0") 'Monto
NC_Total = NC_Total + aRR(I, 10)
Else
If J1 = 5 Then
VR_NotaCredit(J1, N1) = Format(aRR(I, 9), "d/m/yyyy") 'Vencimiento
Else
If J1 = 6 Then
VR_NotaCredit(J1, N1) = aRR(I, 11) 'Texto
UserForm1.Cuenta.Caption = aRR(I, 17)
UserForm1.RazonSocial.Caption = aRR(I, 20)
Else
If J1 = 7 Then
VR_NotaCredit(J1, N1) = aRR(I, 13) 'N°Documento
Else
VR_NotaCredit(J1, N1) = aRR(I, 16) 'Usuario
End If
End If
End If
End If
End If
End If
End If
Next J1

ElseIf (aRR(I, 3) = "DZ" Or aRR(I, 3) = "DD" Or aRR(I, 3) = "DC") And _
Cuenta = N°Cuenta Then
N2 = N2 + 1
ReDim Preserve VR_Transacc(1 To 8, 1 To N2)
For J2 = 1 To 8
If J2 = 1 Then
VR_Transacc(J2, N2) = aRR(I, 17) 'Cuenta
Else
If J2 = 2 Then
VR_Transacc(J2, N2) = aRR(I, 3) 'Clase
Else
If J2 = 3 Then
VR_Transacc(J2, N2) = aRR(I, 4) 'Referencia
Else
If J2 = 4 Then
VR_Transacc(J2, N2) = Format(aRR(I, 10), "##,##0") 'Monto
Transacc_Total = Transacc_Total + aRR(I, 10)
Else
If J2 = 5 Then
VR_Transacc(J2, N2) = Format(aRR(I, 9), "d/m/yyyy") 'Vencimiento
Else
If J2 = 6 Then
VR_Transacc(J2, N2) = aRR(I, 11) 'Texto
UserForm1.Cuenta.Caption = aRR(I, 17)
UserForm1.RazonSocial.Caption = aRR(I, 20)
Else
If J2 = 7 Then
VR_Transacc(J2, N2) = aRR(I, 13) 'N°Documento
Else
VR_Transacc(J2, N2) = aRR(I, 16) 'Usuario
End If
End If
End If
End If
End If
End If
End If
Next J2
End If
Next I

If UserForm1.CheckBox1.Value = False And UserForm1.CheckBox2.Value = False And _
UserForm1.CheckBox3.Value = False And UserForm1.CheckBox4.Value = False And _
UserForm1.CheckBox5.Value = False And UserForm1.CheckBox6.Value = False Then
'1° Chequeo de la primera parte del texto de la Hoja
If Todos = 0 Then
'Caso en que no se encontro ninguna coincidencia
Else
If Todos = 1 Then
'Caso en que se encontro una sola coincidencia
.Column = VR_Todos
If Cuenta = 1 Then Cuenta = True
Else
'Caso en que se econtraron mas de una coincidencia
.List = WorksheetFunction.Transpose(VR_Todos)
If Cuenta = 1 Then Cuenta = True
End If 'If del control n=1
UserForm1.Total_Reg.Caption = .ListCount
UserForm1.Total_Menor_30.Caption = Format(Menor_MesT, "##,##0")
UserForm1.Total_Mayor_30.Caption = Format(Mayor_MesT, "##,##0")
UserForm1.Monto_Total_NC.Caption = Format(NC_TotalT, "##,##0")
UserForm1.Monto_Total_TR.Caption = Format(Transacc_TotalT, "##,##0")
UserForm1.Total_Vigente.Caption = Format(Vigente_Total, "##,##0")
UserForm1.Total_Otros.Caption = Format(Otros_TotalT, "##,##0")
Fact_VencidaT = Menor_MesT + Mayor_MesT + Vigente_Total
UserForm1.Monto_Total_Fact.Caption = Format(Fact_VencidaT, "##,##0")
Estado_CtaT = Menor_MesT + Mayor_MesT + NC_TotalT + Transacc_TotalT _
+ Vigente_Total + Otros_TotalT
UserForm1.Monto_Total.Text = Format(Estado_CtaT, "##,##0")
End If 'If del control n=0
End If

If UserForm1.CheckBox1.Value = True Then 'And UserForm1.CheckBox2.Value = False Then
'2° Chequeo de la primera parte del texto de la Hoja
If N = 0 Then
'Caso en que no se encontro ninguna coincidencia
Else
If N = 1 Then
'Caso en que se encontro una sola coincidencia
.Column = VR_Fact1
If Cuenta = 1 Then Cuenta = True
Else
'Caso en que se econtraron mas de una coincidencia
.List = WorksheetFunction.Transpose(VR_Fact1)
If Cuenta = 1 Then Cuenta = True
End If 'If del control n=1

UserForm1.Total_Reg.Caption = .ListCount
UserForm1.Total_Menor_30.Caption = Format(Menor_Mes, "##,##0")
Fact_Vencida = Menor_Mes
UserForm1.Monto_Total_Fact.Caption = Format(Fact_Vencida, "##,##0")
UserForm1.Monto_Total.Text = Format(Fact_Vencida, "##,##0")
End If 'If del control n=0
End If

If UserForm1.CheckBox2.Value = True Then 'And UserForm1.CheckBox1.Value = False Then
'3° Chequeo de la primera parte del texto de la Hoja
If NN = 0 Then
'Caso en que no se encontro ninguna coincidencia
Else
If NN = 1 Then
'Caso en que se encontro una sola coincidencia
.Column = VR_Fact1M
If Cuenta = 1 Then Cuenta = True
Else
'Caso en que se econtraron mas de una coincidencia
.List = WorksheetFunction.Transpose(VR_Fact1M)
If Cuenta = 1 Then Cuenta = True
End If 'If del control n=1

UserForm1.Total_Reg.Caption = .ListCount
UserForm1.Total_Mayor_30.Caption = Format(Mayor_Mes, "##,##0")
Fact_Vencida = Mayor_Mes
UserForm1.Monto_Total_Fact.Caption = Format(Fact_Vencida, "##,##0")
UserForm1.Monto_Total.Text = Format(Fact_Vencida, "##,##0")
End If 'If del control n=0
End If

If UserForm1.CheckBox1.Value = True And UserForm1.CheckBox2.Value = True Then
'4° Chequeo de la primera parte del texto de la Hoja
If NNN = 0 Then
'Caso en que no se encontro ninguna coincidencia
Else
If NNN = 1 Then
'Caso en que se encontro una sola coincidencia
.Column = VR_Fact1MM
If Cuenta = 1 Then Cuenta = True
Else
'Caso en que se econtraron mas de una coincidencia
.List = WorksheetFunction.Transpose(VR_Fact1MM)
If Cuenta = 1 Then Cuenta = True
End If 'If del control n=1
UserForm1.Total_Reg.Caption = .ListCount
UserForm1.Total_Menor_30.Caption = Format(Menor_MesF, "##,##0")
UserForm1.Total_Mayor_30.Caption = Format(Mayor_MesF, "##,##0")
Fact_Vencida = Menor_MesF + Mayor_MesF
UserForm1.Monto_Total_Fact.Caption = Format(Fact_Vencida, "##,##0")
UserForm1.Monto_Total.Text = Format(Fact_Vencida, "##,##0")
End If 'If del control n=0
End If


If UserForm1.CheckBox5.Value = True Then
'5° Chequeo de la primera parte del texto de la Hoja
If VigenteDF = 0 Then
'Caso en que no se encontro ninguna coincidencia
Else
If VigenteDF = 1 Then
'Caso en que se encontro una sola coincidencia
.Column = VR_VigenteDF
If Cuenta = 1 Then Cuenta = True
Else
'Caso en que se econtraron mas de una coincidencia
.List = WorksheetFunction.Transpose(VR_VigenteDF)
If Cuenta = 1 Then Cuenta = True
End If 'If del control n=1
UserForm1.Total_Reg.Caption = .ListCount
UserForm1.Total_Vigente.Caption = Format(VDF_Total, "##,##0")
Estado_Cta = VDF_Total
UserForm1.Monto_Total.Text = Format(Estado_Cta, "##,##0")
End If 'If del control n=0
End If

If UserForm1.CheckBox6.Value = True Then
'6° Chequeo de la primera parte del texto de la Hoja
If Otros = 0 Then
'Caso en que no se encontro ninguna coincidencia
Else
If Otros = 1 Then
'Caso en que se encontro una sola coincidencia
.Column = VR_Otros
If Cuenta = 1 Then Cuenta = True
Else
'Caso en que se econtraron mas de una coincidencia
.List = WorksheetFunction.Transpose(VR_Otros)
If Cuenta = 1 Then Cuenta = True
End If 'If del control n=1
UserForm1.Total_Reg.Caption = .ListCount
UserForm1.Total_Otros.Caption = Format(Otros_Total, "##,##0")
Estado_Cta = Otros_Total
UserForm1.Monto_Total.Text = Format(Estado_Cta, "##,##0")
End If 'If del control n=0
End If

If UserForm1.CheckBox3.Value = True Then
'7° Chequeo de la primera parte del texto de la Hoja
If N1 = 0 Then
'Caso en que no se encontro ninguna coincidencia
Else
If N1 = 1 Then
'Caso en que se encontro una sola coincidencia
.Column = VR_NotaCredit
If Cuenta = 1 Then Cuenta = True
Else
'Caso en que se econtraron mas de una coincidencia
.List = WorksheetFunction.Transpose(VR_NotaCredit)
If Cuenta = 1 Then Cuenta = True
End If 'If del control n=1
UserForm1.Total_Reg.Caption = .ListCount
UserForm1.Monto_Total_NC.Caption = Format(NC_Total, "##,##0")
Estado_Cta = NC_Total
UserForm1.Monto_Total.Text = Format(Estado_Cta, "##,##0")
End If 'If del control n=0
End If

If UserForm1.CheckBox4.Value = True Then
'8° Chequeo de la primera parte del texto de la Hoja
If N2 = 0 Then
'Caso en que no se encontro ninguna coincidencia
Else
If N2 = 1 Then
'Caso en que se encontro una sola coincidencia
.Column = VR_Transacc
If Cuenta = 1 Then Cuenta = True
Else
'Caso en que se econtraron mas de una coincidencia
.List = WorksheetFunction.Transpose(VR_Transacc)
If Cuenta = 1 Then Cuenta = True
End If 'If del control n=1
UserForm1.Total_Reg.Caption = .ListCount
UserForm1.Monto_Total_TR.Caption = Format(Transacc_Total, "##,##0")
Estado_Cta = Transacc_Total
UserForm1.Monto_Total.Text = Format(Estado_Cta, "##,##0")
End If 'If del control n=0
End If
End If 'If del control del vencimiento
End With

End Sub

Private Sub CheckBox1_Click()
If UserForm1.CheckBox1.Value = True Then
UserForm1.CheckBox5.Value = False
UserForm1.CheckBox3.Value = False
UserForm1.CheckBox4.Value = False
UserForm1.CheckBox6.Value = False
End If
End Sub

Private Sub CheckBox2_Click()
If UserForm1.CheckBox2.Value = True Then
UserForm1.CheckBox5.Value = False
UserForm1.CheckBox3.Value = False
UserForm1.CheckBox4.Value = False
UserForm1.CheckBox6.Value = False
End If
End Sub

Private Sub CheckBox3_Click()
If UserForm1.CheckBox3.Value = True Then
UserForm1.CheckBox1.Value = False
UserForm1.CheckBox2.Value = False
UserForm1.CheckBox5.Value = False
UserForm1.CheckBox4.Value = False
UserForm1.CheckBox6.Value = False
End If
End Sub

Private Sub CheckBox4_Click()
If UserForm1.CheckBox4.Value = True Then
UserForm1.CheckBox1.Value = False
UserForm1.CheckBox2.Value = False
UserForm1.CheckBox3.Value = False
UserForm1.CheckBox5.Value = False
UserForm1.CheckBox6.Value = False
End If
End Sub

Private Sub CheckBox5_Click()
If UserForm1.CheckBox5.Value = True Then
UserForm1.CheckBox1.Value = False
UserForm1.CheckBox2.Value = False
UserForm1.CheckBox3.Value = False
UserForm1.CheckBox4.Value = False
UserForm1.CheckBox6.Value = False
End If
End Sub

Private Sub CheckBox6_Click()
If UserForm1.CheckBox6.Value = True Then
UserForm1.CheckBox1.Value = False
UserForm1.CheckBox2.Value = False
UserForm1.CheckBox3.Value = False
UserForm1.CheckBox4.Value = False
UserForm1.CheckBox5.Value = False
End If
End Sub

• LitBox1-busque-en-hoja-y-si-lo-encuentra-cargue-el-ListBox2.zip(267,0 KB)

Gracias al aporte de Protostecnologia, se optimizo la macro consiguiendo el objetivo. Ahora esta al 100%

• Detalle-Facturas-vencidas-y-Otros.zip(274,0 KB)