السلام عليكم
كيفية تعديل الماكرو بحيث يتكرر لعدد معين من الصفوف
Sub Macro2()
'
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.Axes(xlValue).MajorGridlines.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(11).Name = "='Output'!$B$15"
ActiveChart.SeriesCollection(11).XValues = "='Output'!$C$15,'Output'!$E$15"
ActiveChart.SeriesCollection(11).Values = "='Output'!$I$15,'Output'!$J$15"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(12).Name = "='Output'!$B$15"
ActiveChart.SeriesCollection(12).XValues = "='Output'!$D$15,'Output'!$F$15"
ActiveChart.SeriesCollection(12).Values = "='Output'!$I$15,'Output'!$J$15"
End Sub