BUSCAR V DATOS excel
Hola dam
Quiero como un buscar V
tengo un Combox y un texbox
listo ..
como es el código d eun buscar V
en un texbox y un combobox
y una forma que si el valor no esta en la base de datos.. Me deje escribirlo
gracias
1 respuesta
Respuesta de Dante Amor
3
Te anexo un archivo con los ejemplos utilizando buscarv y otro ejemplo para agregar, son solamente ejemplos, deberás toma el código y adaptarlo a tus necesidades.
https://www.dropbox.com/s/3pz0l9fz7qwmfg3/vlookup%20vba.xlsm
Anexo macro para completar la respuesta
Private Sub ComboBox1_Change()
'Por.DAM
'paso el valor del combo a la variable d
d = ComboBox1
'utilizo la función vlookup (buscarv) y el resultado lo pongo en v
v = Application.VLookup(d, Range("A1:B10"), 2, 0)
'si el valor si se encontró
If Not IsError(v) Then
'paso el resultado de v al textbox1
TextBox1 = v
Else
'No se encontró
MsgBox "El valor no se encontró, el valor será agregado a la BD"
u = Range("A" & Rows.Count).End(xlUp).Row + 1
Cells(u, "A") = ComboBox1
ComboBox1.RowSource = "A1:A" & Range("A" & Rows.Count).End(xlUp).Row
End If
End Subsal u dos
