¿Cómo traslado un valor en un ComboBox ActiveX ubicado en una Hoja, a una celda de la misma Hoja?

Estoy aprendiendo VBA y no se como copiar un valor seleccionado en un ComboBox ActiveX, el cual se ubica en una hoja, a una celda de la misma hoja.

1 Respuesta

Respuesta
1

Para eso utiliza el evento click del control de lista

'4c7569735f50

Asi:

Private Sub ComboBox1_Click()
[a1] = ComboBox1
End Sub

en donde para un control de lista denominado combobox1 le pasas el valor a celda [a1]

Lo que pasa es que ya tengo un evento Click asociado al ComboBox, lo estoy utilizando para seleccionar la alternativa requerida de la lista a través de los siguientes 2 procedimientos:

Private Sub ComboClasif_Click()
'El combobox no queda activado
ActiveCell.Activate
End Sub


Private Sub Worksheet_Activate()
'Actualizo el combobox cada vez que activo la página
With Sheets( Clasificaciones )
'Si no hay información: limpio el combobox
If .[a2] = Then
ComboClasif.Clear
Exit Sub
End If
'Establezco los datos de entrada mediante la propiedad List
ComboClasif.List() = .Range(.[a2], .[a1].End(xlDown)).Value
End With
End Sub

Espero haber sido claro.

Gracias

La pregunta era:

"no se como copiar un valor seleccionado en un ComboBox ActiveX," y te he respondido eso. Favor cerrar en base a la respuesta ofrecida respecto de la coherencia de la pregunta

Muchas gracias por tu apoyo y mil disculpas por no hacer la pregunta correctamente. No es excusa, pero espero que sirva como atenuante: Estoy haciendo mis primeros malabares en esto.

Plantearé de nuevo la pregunta correctaqmente

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas