[حل شده] ماکروی رسم نمودار

[ali65e]

با سلام خدمت اساتید عزیز
می بخشید فایل اکسلی دارم که در ان نمرات دانش اموزانم قرار دارد .در ستون u شیت نمرات شکلکی قرار دارد که لینک اجرای ماکروی مورد خواسته بنده است.می بخشید ماکرویی می خواهم که بر اساس نمرات هر دانش ،نمودار ان دانش اموز را در شیت نمودار امتحانات رسم کند

[M_ExceL]

با سلام،
در فایل پیوست سلول های ستون W انتخاب و نتیجه را بررسی کنید

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("$w$7:$w$32")) Is Nothing Then
    nrow = Target.Row
    Sheets(2).Activate
    Sheets(2).ChartObjects(1).Chart.FullSeriesCollection(1).Values = _
    "='نمرات امتحانات'!$C$" & nrow & " :$S$" & nrow
End If
End Sub

[ali65e]

با سلام.با عرض پوزش ارور می دهد

[M_ExceL]

با سلام.با عرض پوزش ارور می دهد[ATTACH=CONFIG]21789[/ATTACH]

سلام
با اکسل 2016 به درستی کار می کنه بگذارید با ورژن دیگری نیز تست کنم و اشکالش رو بررسی کنم.

[M_ExceL]

سلام
اصلاح گردید، فایل پیوست را بررسی کنید
نام گذاری شیت ها بهتر است بصورت انگلیسی باشد.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("$w$7:$w$32")) Is Nothing Then
    nrow = Target.Row
    Sheets(2).Activate
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.SeriesCollection(1).Values = "='Data'!$C$" & nrow & " :$S$" & nrow
End If
End Sub