Anónimo
Formularios y Macros en excel grabar detalle de co
Saludos Amigos expertos, necesito por favor me puedan ayudar, tengo una hoja en excel con datos como este:
Código detalle
0101 Dpto. De Ventas
0202 Marketing
Estoy utilizando formularios y macros en excel, e creado un combobox, quisiera saber como podría hacer cuando selecciono el combo box donde esta el código automáticamente me salga el detalle en una etiqueta o cuadro de texto, mejor dicho en el combo box aparece los códigos quisiera que el detalle del código se dispare a una etiqueta o cuadro de texto.
De antemano el agradecimiento por el apoyo.
Código detalle
0101 Dpto. De Ventas
0202 Marketing
Estoy utilizando formularios y macros en excel, e creado un combobox, quisiera saber como podría hacer cuando selecciono el combo box donde esta el código automáticamente me salga el detalle en una etiqueta o cuadro de texto, mejor dicho en el combo box aparece los códigos quisiera que el detalle del código se dispare a una etiqueta o cuadro de texto.
De antemano el agradecimiento por el apoyo.
1 Respuesta
Respuesta de Elsa Matilde
1
Hay 2 modos, dependiendo de si sabes el rango de búsqueda o no.
Te dejo un ejemplo para el primer caso, se ejecuta al cambio del combobox:
Private Sub ComboBox1_Change()
Set busco =Range("A2:A100").Find(ComboBox1, LookIn:=xlvalues, LookAt:= xlwhole)
if not busco is nothing then 'mover de la misma fila las distintas col a cada control
TextBox1.Value = busco.offset(0,1)
TextBox2.Value = busco.Offset(0, 2)
'repetir para todos los demás controles.
end if
End Sub
Recordá que el combo devuelve -texto- por lo que quizás debas pasarlo a nro.
Sdos y no olvides finalizar la consulta
Te dejo un ejemplo para el primer caso, se ejecuta al cambio del combobox:
Private Sub ComboBox1_Change()
Set busco =Range("A2:A100").Find(ComboBox1, LookIn:=xlvalues, LookAt:= xlwhole)
if not busco is nothing then 'mover de la misma fila las distintas col a cada control
TextBox1.Value = busco.offset(0,1)
TextBox2.Value = busco.Offset(0, 2)
'repetir para todos los demás controles.
end if
End Sub
Recordá que el combo devuelve -texto- por lo que quizás debas pasarlo a nro.
Sdos y no olvides finalizar la consulta
¿Te llegó la respuesta?... ¿Se comprendió? Entonces no olvides finalizar la consulta.
Sdos
Elsa
Sdos
Elsa