Obtener Valores en un texbox

Soy un poco novato en esto, estoy haciendo un formulario de artículos en un hoja llamada salidas y me gustaría saber como hacer que según el valor del texbox1 ( código) me ponga en el texbox2 ( descripción ) el nombre que le asignado en una hoja llamada Artículos

1

1 respuesta

Respuesta
1

[Hola 

Te paso la macro

Valora la respuesta para finalizar saludos!

Sub buscarvalores()
'Por Adriel ortiz
'
Set h1 = Sheets("Salidas")
Set h2 = Sheets("Articulos")
dato = h1.TextBox1
Set b = h2.Columns("A").Find(dato, lookat:=xlWhole)
    If Not b Is Nothing Then
        h1.TextBox2 = h2.Cells(b.Row, "B")
    Else
     MsgBox "el artículo no existe"
    End If
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas