Visual Basic para Aplicaciones - agregar combobox en excel

Life is soft - evento anual de software empresarial
 
Vista:

agregar combobox en excel

Publicado por carina tapia (2 intervenciones) el 17/11/2006 21:52:33
Hola!
tengo una planilla excel, donde tengo un boton "Agregar" (commandbutton) y la idea es q cuando se presione aparezca un combobox, por ahora no importa en donde aparezca. Estoy trabajando con le editor de visual basic que trae el excel, yo no utilizo formularios...alguien me puede decir como se hace???? Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:agregar combobox en excel

Publicado por Carlos (55 intervenciones) el 21/11/2006 19:06:42
Coloca el Boton de comando en la hoja, y en la misma el Combo.
El código para el boton debe decir:
Private Sub cmdComoSeLlame_Click()
Worksheets("Hoja1").ComboBoxXX.Visible=True
End Sub

En el modulo de ThisWorkbook escribir en el evento Open:
Private Sub ThisWorkbook_Open()
Worksheets("Hoja1").ComboBoxXX.Visible=False
End Sub

Con ésto, al abrirse el libro el Combo no aparece y lo hace duando se oprime el botón de comando.
El Combo ya queda visible siempre. Si lo queres hacer desaparecer deberas poner otro cmdButton con un código igual al escrito en el evento ThisWorkbook_Open()

Buena suerte
Carlos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:agregar combobox en excel

Publicado por carina tapia (2 intervenciones) el 27/11/2006 23:32:07
gracias pero eso no es lo que necesito, porque el combo ya debe estar en la hoja. Me pasaron una macrio que hace lo que necesito, claro que es estática....pero yo veo como la hago dinamica....

Sub macro()
ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=122, Top:=100, Width:=126, Height:= _
19).Select
Application.CommandBars("Exit Design Mode").Visible = False

End sub

De todas formas gracias por contestar.....
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar