Mostrar datos a textbox al seleccionar item de combobox de excel
Para Dante amor
Hola amigo Dante
Deseo que cuando seleccione un nombre de padre se muestre su Dni en el Textbox1 del formulario.
Trabajará de la Hoja Multas
En envié a su Email el archivo
Muy agradecido Saludos.
1 respuesta
Respuesta de Dante Amor
2
H o l a:
Cambia el evento change del combo por esto:
Private Sub CboLista_Change()
Dim Total As Integer
Lsmulta.Clear
TxtTotal.Text = ""
TextBox1 = ""
If CboLista.ListIndex = -1 Then
Exit Sub
End If
nombre = CboLista.List(CboLista.ListIndex, 1)
Set h = Sheets("Multas")
Set r = h.Columns("D")
Set b = r.Find(nombre, lookat:=xlWhole)
If Not b Is Nothing Then
ncell = b.Address
TextBox1 = h.Cells(b.Row, "C")
Do
'detalle
Lsmulta.AddItem h.Cells(b.Row, "A")
Lsmulta.List(Lsmulta.ListCount - 1, 1) = h.Cells(b.Row, "B")
Lsmulta.List(Lsmulta.ListCount - 1, 2) = h.Cells(b.Row, "E")
Set b = r.FindNext(b)
Loop While Not b Is Nothing And b.Address <> ncell
End If
For i = 0 To Lsmulta.ListCount - 1
Total = Total + Val(Lsmulta.List(i, 2))
Next i
TxtTotal.Text = Str(Total)
End Sub
