تعديل الماكرو بحيث يتكرر لعدد معين من الصفوف

[Eng. Mohamed Abdelaziz]

السلام عليكم

كيفية تعديل الماكرو بحيث يتكرر لعدد معين من الصفوف

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

تم تعديل نوفمبر 30, 2012 بواسطه Eng. Mohamed Abdelaziz

[ياسر خليل أبو البراء]

أخي الفاضل ارفق الملف لكي يستطيع الأخوة مساعدتك

[Eng. Mohamed Abdelaziz]

اعتذر ظننته مجرد اضافة للكود

مرفق الملف

LOB.rar

[أبو حنــــين]

السلام عليكم

LOB.rar

[ياسر خليل أبو البراء]

بسم الله ما شاء الله يا أبو حنين

بارك الله فيك

[أبو حنــــين]

السلام عليكم أخي الحبيب ياسر