Error en operación con ComboBox en Excel
Se me presento la inquietud, por ultimo, de asociar otro frame dentro del Userform que contiene un ComboBox y varios Textbox asociados. Los valores que toman estos últimos, responden a los 3 ComboBoxs que ya hemos analizado y no detecto como puedo agregarlos al código, es decir, se que debo hacer referencia a otra hoja con otra variable pero no me doy cuenta.
Pase en forma privada 2 imágenes donde además de lo resuelto, está el Frame "Ingreso VENDEDOR1" en color verde que es el que realmente deseo activar dependiendo del movimiento de los combos .
¿Podrás darme una ultima mano?
1 respuesta
Te anexo el código
Sub LlenarCombos(p As ComboBox, s As ComboBox, t As ComboBox, c1, c2, c3)
Dim h, h1, b, wfila, w_vendedor
If cargando Then Exit Sub
cargando = True
s.Value = ""
t.Value = ""
Contacto.Value = ""
EmailClien.Value = ""
Vendedor.Value = ""
AbrevVend.Value = ""
Celular.Value = ""
EmailVend.Value = ""
'
If p.ListIndex = -1 Then cargando = False: Exit Sub
Set h = Sheets("OBRAS-EMPRESAS")
Set b = h.Columns(c1).Find(p.Value, lookat:=xlWhole)
If Not b Is Nothing Then
s = h.Cells(b.Row, c2)
t = h.Cells(b.Row, c3)
wfila = Empresa.ListIndex + 2
Contacto.Value = Sheets("CLIENTES").Cells(wfila, "B")
EmailClien.Value = Sheets("CLIENTES").Cells(wfila, "C")
'
'Busca vendedor en hoja vendedores
w_vendedor = h.Cells(b.Row, "E")
Set h1 = Sheets("VENDEDORES")
Set b = h1.Columns("L").Find(w_vendedor, lookat:=xlWhole)
If Not b Is Nothing Then
Vendedor.Value = h1.Cells(b.Row, "I")
AbrevVend.Value = h1.Cells(b.Row, "L")
Celular.Value = h1.Cells(b.Row, "J")
EmailVend.Value = h1.Cells(b.Row, "K")
End If
End If
cargando = False
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
¡Gracias Dante!
Excelente y queda como ejemplo para otras aplicaciones que tengo dando vueltas!
Un fuerte abrazo y nuevamente gracias!
DC
