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
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

Respuesta
-1

Envía el archivo a [email protected] para corregirlo y reenviartelo

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas