مساعد فى ضبط كود رسم بيانى

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

ارجو المساعده

هل يمكن جعل اخر خليه بها مدخلات ... هى الحد المستخدم فى كود رسم بيانى

بمعى اذا كان اخر مدخل هى الخليه B20 و C20 و D20

واذا تغير واصبح اخر مدخل هى الخليه B30 و C30 و D30

فهل يمكن جعل ذلك يتغير فى الكود تلقائى

 

 

 

Private Sub OptionButton1_click()
ChartObjects("Chart 1").Chart.SetSourceData Source:=Sheets("Sheet1").Range("B4:B20,c4:c20,d4:d20")
End Sub

[۩◊۩ أبو حنين ۩◊۩]

للرفع اكرمكم الله

[حمادة عمر]

السلام عليكم

الاخ الكريم / ۩◊۩ أبو حنين ۩◊۩

بارك الله فيك

 

دائما اخي الكريم ... ارفاق ملف يوضح الصورة لمن يريد المساعدة اكثر

ولتعديل الكود المذكور ليعمل حتي ( آخر خلية بها بيانات في هذا النطاق ) ... وعلي حسب فهمي لطلبك

سيكون تعديل الكود كالتالي

Private Sub OptionButton1_click()
Dim LR As Long
LR = Range("B" & Rows.Count).End(xlUp).Row
ChartObjects("Chart 1").Chart.SetSourceData Source:=Sheets("Sheet1").Range("B4:D" & LR)
End Sub

ارجو ان يفي بطلبك

تقبل خالص تحياتي

 

 

كود رسم بياني لآخر صف به بيانات.rar

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى حماده عمر

اولا سلمت يداك .. لم اوضح الطلب بصوره صحيحه

هل يمكن جعل اخر خليه بها مدخلات ... هى الحد المستخدم فى كود رسم بيانى

اخر خليه فى نطاق B  لان لها رسم بيانى منفصل وكذلك اخر خليه فى نطاق C لان لها رسم بيانى منفصل وكذلك اخر خليه فى نطاق D لان لها رسم بيانى منفصل 

 

Private Sub OptionButton1_click()
ChartObjects("Chart 1").Chart.SetSourceData Source:=Sheets("Sheet1").Range("B4:B20,c4:c20,d4:d20")
End Sub

 

 

مرفق الملف .. اعتزر على عدم ايصال المطلوب بصورة وافية

 

تعديل أكواد أزرار الاختيارات1.rar

تم تعديل مايو 9, 2014 بواسطه ۩◊۩ أبو حنين ۩◊۩

[۩◊۩ أبو حنين ۩◊۩]

للرفع

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخوه الافاضل للرفع