Trspasar datos de un ComboBox a una celda determinada
Tengo un ComboBox que me da los departamentos, la idea es que me lo traspase a una celda determinada la B7 pero lo copia en la celda activa, necesitaría que el valor me lo pusiera en la celda determinada, adjunto el código usado
Private Sub ComboBox1_Click()
ActiveCell.Value = ComboBox1.Value
End Sub
Private Sub UserForm_Initialize()
Dim rango, celda As Range
Set rango = Worksheets("Datos").Range("A1:A7")
For Each celda In rango
ComboBox1.AddItem celda.Value
Range("b7").Select
Next celda
End Sub
1 respuesta
Tan solo tienes que cambiar un valor...
Private Sub ComboBox1_Click()
ActiveSeet.Range("XX").Select= ComboBox1.Value '-> Cambia XX por la celda que tu quieras
End Sub
Private Sub UserForm_Initialize()
Dim rango, celda As Range
Set rango = Worksheets("Datos").Range("A1:A7")
For Each celda In rango
ComboBox1.AddItem celda.Value
Range("b7").Select
Next celda
End SubUn saludo y no olvides puntuar mi respuesta.
Buenos días
Copie el código que me facilitas pero me da el siguiente erro
" Error 424 en tiempo de ejecución se requiere objeto "
Gracias por tu ayuda
Ese error es porque estás referenciando algún objeto que no existe.
Verifica los siguientes nombres de objetos y asegúrate que están con el mismo nombre:
Cuadro Combinado = ComboBox1
Nombre de Formulario = UserForm
Hoja de datos = Datos
He probado en mi ordenador tu programa, y funciona sin ningún problema, asi que pienso que puede ser problema de referencias. Asegúrate que están las siguientes:
- Microsoft Forms XX Object Library
- Microsoft Office XX Object Library
NOTA: XX es la versión. Dependerá de la versión de Office instalada.
Te paso una foto de las referencias que yo tengo agregadas... procura dejarlas lo más similar posible; A veces hay incompatibilidades entre unas y otras referencias.
El error que da es porque no encuentra alguno de los objetos. Es posible que tenga otro nombre que no es el que le has puesto en el programa.
Verifica los siguientes objetos:
- Cuadro Combinado = ComboBox1
- Formulario = UserForm
- Hoja de datos = Datos
Yo he probado en mi ordenador el programa que tienes, y ha funcionado sin problemas, por lo que pienso que también pueden ser las referencias de VBA que no sean correctas o haya alguna incompatible con las otras.
Te paso una captura de pantalla de mis referencias... intenta que en tu ordenador estén más o menos las mismas que tengo yo.
He revisado las librerías y están como me indicas, lo seguiré intentando
Gracias
Pásame tu correo y te envío el ejemplo que hice y que funciona sin problemas.
