كيف اتعامل مع الشيتات بحيث اذا تغيرت اسمها لا يؤثر ذلك فى الكود؟؟

[عادل ابوزيد]

الاساتذه الافاضل

اسمحوا لى بسؤال : كيف اتعامل مع الشيت بحيث اذا تغير اسمه لا يستلزم ذلك تغيير الكود

واظن ان السؤال لا يحتاج مرفق فمثلاً الشيت باسم البيع ورقمه بين الشيتات رقم 1 وارغب فى التعامل مع شيت البيع وفيه المدى b16 : b30

فكيف اكتب السطر فى الكود

[الـعيدروس]

استخدم مرجع الورقة بدلاً من المسمى

لمعرفة مرجع الورقة النشطه

Sub An_Sheet()
MsgBox ActiveSheet.CodeName
End Sub

Sub Ali_Rn()
' Sheet1'مثلا مرج الورقة هو
Set Rng = Sheet1.Range("b16:b30")
End Sub

وعند تغير مسمى الورقة لايلزم تغيره من الكود

لان مرجع الورقة ثابت

[عادل ابوزيد]

استاذى العزيز الغالى عباد

افاض الله عليك كما تفيض علينا بارك الله لك وفيك