Llenar textbox con datos de una hoja de excel
Tengo un textbox llamado “Cuenta” y otro textbox llamado “Descripción” y lo que quiero es un código en vba para cuando ponga la cuenta correcta automáticamente me llene la descripción, pero que solo sea cuando pongo la cuenta correcta.
Tengo los datos en una hoja de Excel llamada “C. Contable”
Ejemplo cuenta “100-010-001” descripción “Caja” pero que si pongo por ejemplo “100” o “1” borre los datos digitados porque no coinciden.
1 respuesta
Respuesta de Adriel Ortiz Mangia
1
Emm1319 te anexo la macro:
Cambia el nombre de la Hoja
Private Sub CommandButton1_Click()
Set h1 = Sheets("Hoja1")
Set b = h1.Columns("A").Find(TextBox1, lookat:=xlWhole)
If Not b Is Nothing Then
TextBox2 = h1.Cells(b.Row, "B")
Else
MsgBox "No se encontró coincidencia", vbInformation, "AVISO"
TextBox1 = ""
End If
End SubPrueba y resultado: digita la cuenta y clic en verificar
Me comentas y valora la respuesta para finalizar saludos!
