Mostrar Resultado de Combobox en Celdas
Tengo 3 Combobox Dependientes, el ultimo combobox muestra un listado de personal en un listbox, lo que necesito es que ese mismo listado que se muestra en el listbox, se muestre en un rango de celdas (E9:E32), dependiendo de la selección del ultimo combobox, estoy utilizando controles Activex sin formulario.
Este es el código, y funciona bien, pero me gustaría que al final el listado de nombres de cada Encabezado se mostrara en celda en lugar del listbox, gracias por tu ayuda
H o l a:
Te anexo unos ejemplos para que completes todos los casos:
Private Sub ComboBox3_Change()
Range("E9:E32").ClearContents
Set r = Nothing
Select Case ComboBox3.Value
Case "admin_personal"
Set r = Range("admin_personal")
Case "aplicación_personal"
Set r = Range("aplicacion_personal")
Case "nominas_salarios"
Set r = Range("nominas_salarios")
End Select
If Not r Is Nothing Then
r.Copy Range("E9")
End If
End SubAhora, si el nombre del rango es igual al valor del combobox3, entonces quedaría solamente esto:
Private Sub ComboBox3_Change()
Range("E9:E32").ClearContents
If ComboBox3.Value <> "" And ComboBox3.ListIndex > -1 Then
Range(ComboBox3.Value).Copy Range("E9")
End If
End Sub'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
Gracias por la pronta respuesta Dante como siempre, te comento que he probado ambos códigos pero me muestra error '1004' error definido por la aplicación en ambos casos en la línea:
Set r = Range ("ADMIN_PERSONAL") De la primera opción
Y Range(ComboBox3.Value).Copy Range("E9") de la segunda opción
¿Estás ejecutando la macro en la hoja donde tienes los nombres definidos?
¿Estás seleccionando un valor que tiene nombre definido?
¿Qué más dice el error?
Envíame las dudas que te comento y también envíame tu archivo para revisarlo
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “fernando garrido” y el título de esta pregunta.
Gracias Dante, muy amable, te acabo de enviar el archivo, gracias por la ayuda
Quedaría así:
Private Sub ComboBox3_Change()
Range("E9:E32").ClearContents
If ComboBox3.Value <> "" And ComboBox3.ListIndex > -1 Then
Sheets("Hoja1").Range(ComboBox3.Value).Copy Range("E9")
End If
End Su
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
