Completar datos por código excel vba
[Buen día Dante
En la hoja1 tengo registro de los clientes
A (dni)----------- B(nombres)---C(teléfono)
18182759------álex--------------4343434343
Como te muestro en la Hoja1 el DNI del cliente tiene 8 dígitos y para completar las columnas en blanco tengo que comparar cod crédito(tiene guión "-" ) y obtener nombres, telef, dirección.
Con esto completaría el filtrado de datos estaré muy agradecido
[Adjunto archivo a tu email
'
1 Respuesta
Respuesta de Dante Amor
1
Te anexo el código
Private Sub CommandButton1_Click()
'Por.Dante Amor
Set h1 = Sheets("CRON-CLI")
Set h2 = Sheets("reporte")
Set h3 = Sheets("Hoja1") 'hoja con nombres
'
ListBox1.RowSource = ""
If ComboBox1 = "" Or ComboBox1.ListIndex = -1 Then
MsgBox "Selecciona el mes"
Exit Sub
End If
h2.Rows("4:" & Rows.Count).ClearContents
j = 4
For i = 4 To h1.Range("D" & Rows.Count).End(xlUp).Row
If ComboBox1.ListIndex = 0 Then mes = Month(h1.Cells(i, "D")) Else mes = ComboBox1.ListIndex
If Month(h1.Cells(i, "D")) = mes And h1.Cells(i, "H") = "PENDIENTE" Then
h2.Cells(j, "A") = h1.Cells(i, "C")
h2.Cells(j, "B") = h1.Cells(i, "B")
cod = Split(h1.Cells(i, "B"), "-")
If UBound(cod) = 1 Then
numcod = cod(1)
Set b = h3.Columns("D").Find(numcod, lookat:=xlWhole)
If Not b Is Nothing Then
h2.Cells(j, "C") = h3.Cells(b.Row, "B") 'nombre
h2.Cells(j, "D") = h3.Cells(b.Row, "H") 'tel
h2.Cells(j, "E") = h3.Cells(b.Row, "I") 'dir
End If
End If
h2.Cells(j, "F") = h1.Cells(i, "D")
h2.Cells(j, "H") = h1.Cells(i, "G")
h2.Cells(j, "I") = h1.Cells(i, "H")
j = j + 1
End If
Next
rango = h2.Range("A4:I" & h2.Range("F" & Rows.Count).End(xlUp).Row).Address
ListBox1.RowSource = h2.Name & "!" & rango
End Subsal u dos
