Como hago para manejar combobox desde un macro
Buen día soy bastante inexperto en esta área, la pregunta es la siguiente como hago para cargar un conjunto de datos (Nombres de áreas) de unas celdas (A3 hasta A47) en un combo box, ademas que cada vez que seleccione (de clic) alguno de los datos (Nombre de un área), me grafique los datos del área... Millones de gracias y agradecido por su tiempo..
1 Respuesta
Respuesta de Elsa Matilde
1
La rutina que te adjunto trabaja sobre un gráfico que ya lo tendrás armado en la hoja, y al seleccionar el nombre del área en el combo se actualizan los datos de origen.
Para esto le asigné a las distintas áreas un nombre de rango (menú Insertar, nombre, definir) y coloqué la lista de nombres por ej de G1:G5.
Con la barra 'Cuadro de controles' dibujá un combo, clic derecho, propiedades, ListfillRange = G1:G5 (según mi ejemplo)
Clic derecho, ver código y allí en el Editor colocá esta rutina:
Private Sub ComboBox1_Click()
Dim area
area = ComboBox1.Value
'ajustar el nombre del gráfico
ActiveSheet.ChartObjects("Gráfico 2").Activate
ActiveChart.ChartArea.Select
'ajustar nbre de hoja
ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range(area), PlotBy:= _
xlColumns
End Sub
Espero se haya entendido y puedas adaptar la idea a tu ejemplo. Cualquier dificultad escribirme nuevamente.
Saludos
Elsa
**Todas las soluciones en manuales Excel, desde:
Para esto le asigné a las distintas áreas un nombre de rango (menú Insertar, nombre, definir) y coloqué la lista de nombres por ej de G1:G5.
Con la barra 'Cuadro de controles' dibujá un combo, clic derecho, propiedades, ListfillRange = G1:G5 (según mi ejemplo)
Clic derecho, ver código y allí en el Editor colocá esta rutina:
Private Sub ComboBox1_Click()
Dim area
area = ComboBox1.Value
'ajustar el nombre del gráfico
ActiveSheet.ChartObjects("Gráfico 2").Activate
ActiveChart.ChartArea.Select
'ajustar nbre de hoja
ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range(area), PlotBy:= _
xlColumns
End Sub
Espero se haya entendido y puedas adaptar la idea a tu ejemplo. Cualquier dificultad escribirme nuevamente.
Saludos
Elsa
**Todas las soluciones en manuales Excel, desde:
