Subrutina para gráficos
Hola, soy bastante novel en esto del VBA y me gustaría hacer algo y no se como. Me gustaría coger un rango determinado (q seria variable) de celdas para luego hacer una gráfica. Al no ser un rango fijo, es decir, empieza siempre en f16 pero puede acabar en cualquier f, 20, 30 o f35. No se como hacerlo.
1 respuesta
Respuesta de valedor
1
Prueba esta macro, estoy suponiendo que tienes algo así
F15 = Ventas
F16 = 100
F17 = 80
Public Sub CrearGrafico()
Dim strRango As String
Dim strHoja As String
strRango = "F15:F" & Format(Range("F15").End(xlDown).Row)
strHoja = ActiveSheet.Name
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets(strHoja).Range(strRango), PlotBy _
:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:=strHoja
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Ventas"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Cantidad"
End With
End Sub
Después ve agregando valores a las siguiente celdas y veraz como el gráfico las toma en cuenta...
F15 = Ventas
F16 = 100
F17 = 80
Public Sub CrearGrafico()
Dim strRango As String
Dim strHoja As String
strRango = "F15:F" & Format(Range("F15").End(xlDown).Row)
strHoja = ActiveSheet.Name
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets(strHoja).Range(strRango), PlotBy _
:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:=strHoja
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Ventas"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Cantidad"
End With
End Sub
Después ve agregando valores a las siguiente celdas y veraz como el gráfico las toma en cuenta...
