Código para buscar en un cuadro de texto en un formulario vba

Estoy haciendo un formulario en excel pero quiero ingresar el numero de factura y me traiga a que cliente pertenece de acuerdo a una base de datos.

2 respuestas

Respuesta
Respuesta

[Hola 

Te paso la macro 

Private Sub CommandButton1_Click()
'
'***Por Adriel Ortiz
'
h = ActiveSheet
    r = h.Columns("A")
    b = r.Find(TextBox1, lookat:=xlWhole)
        If Not b Is Nothing Then
            TextBox2 = h.Cells(b.Row, "B")
            TextBox3 = h.Cells(b.Row, "C")
            TextBox4 = h.Cells(b.Row, "D")
        Else
        MsgBox "Dato no encontrado"
        End If
End Sub

Valora la respuesta para finalizar saludos!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas