Vlookup automático en un cuadro de texto.
Necesito hacer que en un formulario, al seleccionar un dato en un cuadro de texto, en otro aparezca el valor relacionado. Lo he intentado hacer con un vlookup en el Cuadro de Texto de resultado, pero no me funciona.
Respuesta de Dante Amor
1
Envíame tu archivo con tu formulario para ver en dónde buscar y qué debe poner en el textbox2
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Gabriel Bonilla” y el título de esta pregunta.
¡Gracias!
Gracias Dante por tu ayuda.
Saludos.
Te anexo el nuevo código para guardar el registro
Private Sub BtnAceptar_Click()
'Por.Dante Amor
'Validaciones
If xFecha = "" Then
MsgBox "Captura la fecha"
Exit Sub
End If
'
'Guarda datos
Application.ScreenUpdating = False
Set h1 = Sheets("Pagos")
Set h2 = Sheets("formato")
h1.Unprotect "UcG1801"
u = h1.Range("A" & Rows.Count).End(xlUp).row + 1: If u < 7 Then u = 7
h1.Rows(u).Insert
h1.Cells(u, 1).Value = Val(xFecha)
h1.Cells(u, 2).Value = xSocio
h1.Cells(u, 3).Value = xNombre
h1.Cells(u, 4).Value = xBancoS
h1.Cells(u, 5).Value = xClabe
h1.Cells(u, 7).Value = xFactura
h1.Cells(u, 8).Value = Val(xImporte)
h1.Cells(u, 9).Value = xConcepto
h1.Cells(u, 10).Value = xDescripcion
h1.Cells(u, 11).Value = xSolicita
h1.Cells(u, 12).Value = xGasto
h1.Cells(u, 13).Value = xBanco
'Copia y pega formatos
h2.Range("A7:M7").Copy
h1.Range("A" & u & ":M" & u).PasteSpecial xlPasteFormats
'Limpia controles
For Each ctrl In Me.Controls
If TypeName(ctrl) = "TextBox" Or TypeName(ctrl) = "ComboBox" Then
ctrl.Value = ""
End If
Next
h1.Protect "UcG1801"
Application.ScreenUpdating = True
MsgBox "Registro guardado"
End Subsal u dos
