ComboBox
Publicado por mak (1 intervención) el 06/08/2007 16:36:30
hola!, mi problema es que una vez hecha la combox, y guardados los cambios en el libro correspondiente, cuando lo vuelvo a abrir, tengo que ir al editor de VBA y activar desde alli la ComboBox. Cómo puedo hacer, que cuando vuelva a abrir el libro no tenga que pasar por el editor de VBA, para que me funcione la ComboBox?
esta es mi rutina, es muy sencillita, pero es lo que quiero. lo que hice fue crear el objeto en una hoja de excel, hacer doble click, que me iba directamente al editor de VBA, y escribir lo siguiente:
Private Sub ComboBox1_Change()
ComboBox1.List = Array("AA", "BB", "CC")
If ComboBox1.Value = "AA" Then
Worksheets("Hoja2").Range("C4:C6").Value = Worksheets("Hoja1").Range("A4:A6").Value
End If
If ComboBox1.Value = "BB" Then
Worksheets("Hoja2").Range("C4:C6").Value = Worksheets("Hoja1").Range("B4:B6").Value
End If
If ComboBox1.Value = "CC" Then
Worksheets("Hoja2").Range("C4:C6").Value = Worksheets("Hoja1").Range("C4:C6").Value
End If
End Sub
Gracias!!
esta es mi rutina, es muy sencillita, pero es lo que quiero. lo que hice fue crear el objeto en una hoja de excel, hacer doble click, que me iba directamente al editor de VBA, y escribir lo siguiente:
Private Sub ComboBox1_Change()
ComboBox1.List = Array("AA", "BB", "CC")
If ComboBox1.Value = "AA" Then
Worksheets("Hoja2").Range("C4:C6").Value = Worksheets("Hoja1").Range("A4:A6").Value
End If
If ComboBox1.Value = "BB" Then
Worksheets("Hoja2").Range("C4:C6").Value = Worksheets("Hoja1").Range("B4:B6").Value
End If
If ComboBox1.Value = "CC" Then
Worksheets("Hoja2").Range("C4:C6").Value = Worksheets("Hoja1").Range("C4:C6").Value
End If
End Sub
Gracias!!
Valora esta pregunta


0