Variables dentro de la funcion Range en vba Excel
Publicado por Juan Martin Velez (1 intervención) el 12/02/2018 20:27:53
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub CommandButton1_Click()
'Definicion de Variables
Dim Tipo_Grafico, Flujo As String
Dim Año, Mes As Integer
Dim Grafico As ChartObject
'Valor Variables
Tipo_Grafico = Worksheets("GRAFICAS").Cells(4, 3).Text
Año = Worksheets("GRAFICAS").Cells(5, 5).Value
Mes = Worksheets("GRAFICAS").Cells(6, 3).Value
Flujo = Worksheets("GRAFICAS").Cells(7, 3).Text
'Condicional para la creacion del grafico
If Tipo_Grafico = "Linea Saldo Final" Then
'Creacion Grafico de linea solo de 2017 a 2031 pero para todos los flujos
Set Grafico = Worksheets("GRAFICAS").ChartObjects.Add(Left:=400, Width:=600, Top:=50, Height:=250)
Grafico.Name = "Grafico_1"
Grafico.Chart.ChartType = xlLine
Grafico.Chart.SetSourceData Source:=Worksheets(Flujo).Range(Cells(37, Año - 2013), Cells(37, Año - 2002))
Grafico.Chart.SetElement (msoElementPrimaryValueAxisNone)
Grafico.Chart.SetElement (msoElementPrimaryValueGridLinesNone)
Grafico.Chart.SetElement (msoElementChartTitleNone)
Grafico.Chart.SetElement (msoElementDataLabelTop)
Grafico.Chart.SetElement (msoElementDataLabelTop)
Grafico.Chart.SetElement (msoElementLegendNone)
Grafico.Chart.PlotArea.Select
Grafico.Chart.ChartArea.Select
Grafico.Chart.FullSeriesCollection(1).XValues = Worksheets(Flujo).Range(Cells(4, Año - 2013), Cells(4, Año - 2002))
ActiveSheet.Shapes("Grafico_1").Line.Visible = msoFalse
End If
End Sub
La parte que esta en negrilla me presenta un error. Lo que quiero es que por medio de una variable el rango de datos usados para crear el gráfico cambien. Alguien me puede ayudar por favor.
Valora esta pregunta
0