help " Scroll"

[باديس بيبو]

السلام عليكم ، هل من كود لإجبار السكرول في شيت معين ان يعمل فقط في نطاق محدد مثلا "a1:a50"
و شكرا   

[سليم حاصبيا]

جرب هذا الماكرو

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Me.ScrollArea = Range("a1:a50").Address

End Sub

 

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

أخي سليم

الكود تمام وممتاز ولكن أرى عدم وضع في حدث ورقة العمل لأن ذلك يثقل التعامل مع الملف .. الأفضل وضعه في موديول عادي وتنفيذه مرة واحدة فقط

[سليم حاصبيا]

منذ ساعه, ياسر خليل أبو البراء said:

أخي سليم

الكود تمام وممتاز ولكن أرى عدم وضع في حدث ورقة العمل لأن ذلك يثقل التعامل مع الملف .. الأفضل وضعه في موديول عادي وتنفيذه مرة واحدة فقط

لك ما تريد اخي الحبيب ياسر

 

Scroll_Area.rar

[باديس بيبو]

18 ساعات مضت, سليم حاصبيا said:

لك ما تريد اخي الحبيب ياسر

 

Scroll_Area.rar

عمل رائع ياأخ سليم ، لكن أريد  ان أضع الكود في شكل من الأشكال العادية و ليس في ToggleButton 

المطلوب ستجده في الملف المرفقScroll_Area.rar

تم تعديل يوليو 21, 2017 بواسطه باديس بيبو