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 Respuesta
Respuesta de Adriel Ortiz Mangia
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
