Excel - Variables dentro de la funcion Range en vba Excel

 
Vista:

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder