DÊVIDA VBA

SIDNEISCR 09/09/2017 17:09:29
#476406

Boa tarde.

Preciso de ajuda nos códigos abaixo constantes no arquivo anexo.
Basicamente quero criar um gráfico de linhas com diversos segmentos representando um avanço físico de obra, ou seja, como se fosse um gráfico de gantt, mas com as informações de Km segmentadas, conforme planilha anexa e por serviço.
Elaborei uma macro (Macro05) que utilizei a opção gravar macro, no entanto, ela realiza a operação para somente 1 intervalo de dados, necessito que a operação seja realizada para mais intervalos de forma automática conforme macro com problema (Sub GerarAvancoFisico()).

Desde já agradeço.

------------------------------------------------------------- (macro com problema)----------------------------------------------------
Sub GerarAvancoFisico()

Dim Lin As Integer

Dim Contador As Integer

Dim Serie As Integer

Lin = 14

Contador = 1

Serie = 1

Do

Lin = Lin + Contador
Serie = Serie + Contador
ActiveSheet.ChartObjects([Ô]Gráfico 6[Ô]).Activate
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(Serie).Name = ThisWorkbook.ActiveSheet.Cells(Lin, 12).Value
ActiveChart.FullSeriesCollection(Serie).XValues = ThisWorkbook.ActiveSheet.Range(Cells(Lin, 7), Cells(Lin, 8)).Select
ActiveChart.FullSeriesCollection(Serie).Values = [Ô]={1,1}[Ô]
ActiveWorkbook.Save

Loop Until ThisWorkbook.ActiveSheet.Cells(Lin, 12).Value = Empty



End Sub

----------------------------------------------------------------------(macro com objetivo que quero, porém, limitada a somente 1 operação)---------------------------

Sub Macro5()
[ô]
[ô] Macro5 Macro
[ô]

[ô]
ActiveSheet.ChartObjects([Ô]Gráfico 6[Ô]).Activate
ActiveSheet.ChartObjects([Ô]Gráfico 6[Ô]).Activate
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(1).Name = [Ô]=[ô]4906[ô]!$L$15[Ô]
ActiveChart.FullSeriesCollection(1).XValues = [Ô]=[ô]4906[ô]!$G$15:$H$15[Ô]
ActiveChart.FullSeriesCollection(1).Values = [Ô]={1,1}[Ô]
Range([Ô]Q4[Ô]).Select
ActiveWorkbook.Save
End Sub