Saltar al contenido

Crear varios combox en un rango y mostrar resultado en celda contigua.


Recommended Posts

publicado

Hola:

Quisiera saber si hay alguna manera rápida de crear a la vez un combox en cada celda del rango C1:C30 y que el resultado me lo ponga en la misma fila pero en la columna B.

Ej: Si escribo en el combox situado en C1, me ponga el resultado en B1; el de C2 en B2, etc.

Saludos.

Combox.rar

publicado

Hola, coloca este código en un modulo y lo ejecutas en la hoja1.

Sub combo()
Application.ScreenUpdating = False
For Each cel In Range("C2:C30")
With ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", _
Link:=False, DisplayAsIcon:=False, Left:=cel.Left, Top:=cel.Top, Width:=cel.Width, _
Height:=cel.Height)
With .Object

For Each valor In Sheets(2).Range("A1:A8")
.AddItem valor
Next valor
.Font.Size = 11
End With
.LinkedCell = cel.Offset(0, -1).Address(False, False)
End With
Next
Application.ScreenUpdating = True
End Sub[/CODE]

Comentas como te resulto.

Salu2

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.