none
Grafico com variavel RRS feed

  • Pergunta

  • Pessoal me ajude por favor... preciso construir gráficos baseados em uma planilha que é aumenta tanto de linhas como de colunas, assim precisei montar uma variavel para calcular linhas e colunas, só que na hora de montar o gráfico via VBA, não consigo escrever o range com a variavel. me ajudem por favor !

    segue o código

    IDENTIFICANDO TABELAS
    lin_col = 1
    col_col = 1
    lin_set = 1
    col_set = col_col + 1

    While Cells(1, col_col) <> ""
    col_col = col_col + 1
    Wend
    While Cells(lin_col, 1) <> ""
    lin_col = lin_col + 1
    Wend
    'gráfico de média.col
    Sheets("Relatório").Select
    Cells(1, 1000).Select
    Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).Name = "Média.Col"
    'assim que tenho tentado montar
    ActiveChart.SeriesCollection(1).Values = "=Relatório!" & Range(Cells(2, col_col - 1), Cells(lin_col - 1, col_col - 1))
    'seria esse o range atual, mas para frente ele mudaria 'K2:K4"
    'assim ele da certo, mas preciso que seja sem o range fechado
    ActiveChart.SeriesCollection(1).XValues = "=Relatório!B2:B4"
    ActiveChart.Location where:=xlLocationAsNewSheet, Name:="Nota Méd.Col"
    ActiveChart.HasTitle = True
    ActiveChart.ChartTitle.Text = "Nota Média Por Colaborador"
    ActiveChart.Axes(xlValue).Select
    ActiveChart.Axes(xlValue).MaximumScale = 10
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SetElement (msoElementDataLabelOutSideEnd)
    ActiveChart.ClearToMatchStyle
    ActiveChart.ChartStyle = 26
    ActiveChart.ClearToMatchStyle
    segunda-feira, 7 de abril de 2014 17:16