Hola, necesito que me ayuden con este planteamiento. Necesito cargar desde una Hoja de Excel a tres ListBox todos los registros de Cuenta seleccionada de la HojaResumenCrat-Cli (Columna A) que encuentre en la HojaCartolaCli (Cuenta, Razón Social, Vencimiento, Monto o Importe). Estoy usando el método FIND para una búsqueda más dinámica.
En cada ListBox se deben cargar por Clase de Documento:
Factura (DF)
Nota Crédito (DN)
Transacción (DZ-AB-DD)
En el caso de Factura están separado la suma de su importe de acuerdo a la fecha de vencimiento. -Si la deuda ya venció mayor a 30 días. -Si la deuda ya venció entre 1 y 30 días.
Me sale error al cargar los registros.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.FormulaR1C1 = "Cuenta" Then
UserForm1.Show
End If
Hola, necesito que me ayuden con este planteamiento. Necesito cargar desde una Hoja de Excel a tres ListBox todos los registros de Cuenta seleccionada de la Hoja Resumen Crat-Cli (Columna A) que encuentre en la Hoja CartolaCli (Cuenta, Razón Social, Vencimiento, Monto o Importe). Estoy usando el método FIND para una búsqueda más dinámica.
En cada ListBox se deben cargar por Clase de Documento:
Factura (DF)
Nota Crédito (DN)
Transacción (DZ-AB-DD)
En el caso de Factura están separado la suma de su importe de acuerdo a la fecha de vencimiento.
-Si la deuda ya venció mayor a 30 días.
-Si la deuda ya venció entre 1 y 30 días.
Me sale error al cargar los registros.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.FormulaR1C1 = "Cuenta" Then
UserForm1.Show
End If
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'On Error Resume Next
Dim UF As String
UserForm1.Fact1.Clear
UserForm1.NotaCredit.Clear
UserForm1.Transacc.Clear
UserForm1.Menor_Mes.Text = Empty
UserForm1.Mayor_Mes.Text = Empty
UserForm1.NC_Total.Text = Empty
UserForm1.Transacc_Total.Text = Empty
UserForm1.Fact_Total.Text = Empty
UserForm1.Monto_Total.Text = Empty
Mayor_Mes = 0
Menor_Mes = 0
NC_Total = 0
Transacc_Total = 0
Set A = Sheets("Cartola Cli")
PF = 2
UF = A.Range("G" & Rows.Count).End(xlUp).Row 'Base de registros
R = "G" & PF & ":G" & UF
Busco = Intersect(Target, Range("A:A"))
Set CODIGO = A.Range(R).Find(Busco, LookIn:=xlValues, lookat:=xlWhole)
If Not CODIGO Is Nothing Then
If Not Busco Is Nothing And Selection.Count = 1 And _
ActiveCell.FormulaR1C1 <> "Cuenta" Then
If A.Cells(CODIGO.Row, 7) = Busco Then
If UCase(A.Cells(CODIGO.Row, 1)) Like "DF" And A.Cells(CODIGO.Row, 10).Value <> "Vigente" Then
UserForm1.Fact1.AddItem A.Cells(CODIGO.Row, 4) 'Vencimiento
UserForm1.Fact1.List(UserForm1.Fact1.ListCount - 1, 1) = A.Cells(CODIGO.Row, 5) 'Monto
UserForm1.Cuenta.Caption = A.Cells(CODIGO.Row, 7) 'Cuenta
UserForm1.RazonSocial.Caption = A.Cells(CODIGO.Row, ? 'Razon Social
If LCase(A.Cells(CODIGO.Row, 10)) Like "0 a 30" Then
Menor_Mes = Menor_Mes + A.Cells(CODIGO.Row, 5)
ElseIf A.Cells(CODIGO.Row, 9) > 30 Then
Mayor_Mes = Mayor_Mes + A.Cells(CODIGO.Row, 5)
End If
ElseIf UCase(A.Cells(CODIGO.Row, 1)) Like "DN" Then
UserForm1.NotaCredit.AddItem A.Cells(CODIGO.Row, 4) 'Vencimiento
UserForm1.NotaCredit.List(UserForm1.NotaCredit.ListCount - 1, 1) = A.Cells(CODIGO.Row, 5) 'Monto
UserForm1.Cuenta.Caption = A.Cells(CODIGO.Row, 7) 'Cuenta
UserForm1.RazonSocial.Caption = A.Cells(CODIGO.Row, ? 'Razon Social
NC_Total = NC_Total + A.Cells(CODIGO.Row, 5)
ElseIf UCase(A.Cells(CODIGO.Row, 1)) Like "DZ" Or UCase(A.Cells(CODIGO.Row, 1)) Like "DD" Or _
UCase(A.Cells(CODIGO.Row, 1)) Like "AB" Then
UserForm1.Transacc.AddItem A.Cells(CODIGO.Row, 4) 'Vencimiento
UserForm1.Transacc.List(UserForm1.Transacc.ListCount - 1, 1) = A.Cells(CODIGO.Row, 5) 'Monto
UserForm1.Cuenta.Caption = A.Cells(CODIGO.Row, 7) 'Cuenta
UserForm1.RazonSocial.Caption = A.Cells(CODIGO.Row, ? 'Razon Social
Transacc_Total = Transacc_Total + A.Cells(CODIGO.Row, 5)
End If
End If
End If
UserForm1.Menor_Mes.Text = Menor_Mes
UserForm1.Mayor_Mes.Text = Mayor_Mes
UserForm1.NC_Total.Text = NC_Total
UserForm1.Transacc_Total.Text = Transacc_Total
UserForm1.Fact_Total.Text = Menor_Mes + Mayor_Mes
UserForm1.Monto_Total.Text = Menor_Mes + Mayor_Mes + NC_Total + Transacc_Total
End If
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub