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

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

¡Fenomenal!

Muchas gracias, Riddle.