Agregar información a TextBoxs de una base de datos de excel
Necesito que de acuerdo a la base de datos de excel cuando coloque el código de usuario de una persona en el textbox se llene en todos sus textbox la información de ella y calcule las clases permitidas y coloque su foto o que llame a su foto según su nombre. Para Dante.
2 respuestas
Respuesta de Dante Amor
2
Te anexo las macros para llenar los textbox
Private Sub ComboBox1_Change()
'Por.Dante Amor
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
If ComboBox1 = "" Then Exit Sub
If ComboBox1.ListIndex = -1 Then Exit Sub
f = ComboBox1.ListIndex + 2
Set h2 = Sheets("USUARIOS")
TextBox3 = h2.Cells(f, "A")
TextBox4 = h2.Cells(f, "B")
TextBox5 = h2.Cells(f, "C")
TextBox6 = h2.Cells(f, "G")
TextBox7 = h2.Cells(f, "H")
End Sub
'
Private Sub UserForm_Initialize()
'Por.Dante Amor
TextBox1 = Format(Date, "dd/mm/yyyy")
Set h2 = Sheets("USUARIOS")
For i = 2 To h2.Range("A" & Rows.Count).End(xlUp).Row
ComboBox1.AddItem h2.Cells(i, "A")
Next
End Sub
