Macro crear gráfico según datos variados de una tabla
Necesito macro para crear el gráfico en una nueva hoja pero no se como recorrer la tabla con datos descontinuos, también los datos varían entre filas y columnas.
Macro grabado
Sub Makro3()
'
' Makro3 Makro
'
'
Range("J11").Select
ActiveSheet.Shapes.AddChart2(240, xlXYScatterSmooth).Select
Application.CutCopyMode = False
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(1).Name = "=Blad1!$B$3"
ActiveChart.FullSeriesCollection(1).XValues = "=Blad1!$B$4:$B$20"
ActiveChart.FullSeriesCollection(1).Values = "=Blad1!$A$4:$A$20"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(2).Name = "=Blad1!$C$3"
ActiveChart.FullSeriesCollection(2).XValues = "=Blad1!$C$5:$C$20"
ActiveChart.FullSeriesCollection(2).Values = "=Blad1!$A$5:$A$20"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(3).Name = "=Blad1!$D$3"
ActiveChart.FullSeriesCollection(3).XValues = "=Blad1!$D$7:$D$20"
ActiveChart.FullSeriesCollection(3).Values = "=Blad1!$A$7:$A$20"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(4).Name = "=Blad1!$E$3"
ActiveChart.FullSeriesCollection(4).XValues = "=Blad1!$E$9:$E$20"
ActiveChart.FullSeriesCollection(4).Values = "=Blad1!$A$9:$A$20"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(5).Name = "=Blad1!$F$3"
ActiveChart.FullSeriesCollection(5).XValues = "=Blad1!$F$11:$F$20"
ActiveChart.FullSeriesCollection(5).Values = "=Blad1!$A$11:$A$20"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(6).Name = "=Blad1!$G$3"
ActiveChart.FullSeriesCollection(6).XValues = "=Blad1!$G$12:$G$20"
ActiveChart.FullSeriesCollection(6).Values = "=Blad1!$A$12:$A$20"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(7).Name = "=Blad1!$H$3"
ActiveChart.FullSeriesCollection(7).XValues = "=Blad1!$H$14:$H$20"
ActiveChart.FullSeriesCollection(7).Values = "=Blad1!$A$14:$A$20"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(8).Name = "=Blad1!$I$3"
ActiveChart.FullSeriesCollection(8).XValues = "=Blad1!$I$17:$I$20"
ActiveChart.FullSeriesCollection(8).Values = "=Blad1!$A$17:$A$20"
Range("I3").Select
ActiveChart.PlotArea.Select
ActiveChart.FullSeriesCollection(1).Select
Range("J7").Select
End Subcomparto del archivo con ejemplos en 2 hojas
https://drive.google.com/file/d/1nLmFO0fVLNY1PN0q4p_Tfdya0NVtiq0c/view?usp=sharing
