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

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

الاساتذة الكرام

الفكرة باختصار انه يوجد مدى عمود هذا العمود مقسم إلى اقسام معينة كل قسم به بيانات والمطلوب عمل زرار يجعل المؤشر يقف على اخر خلية مستخدمه فى كل مدى على العمود b

تحديداخر خلية مستخدمه فى مدى معين.rar

[الـعيدروس]

السلام عليكم

Public Sub A_Last()
Dim A_Lst As Range
Dim A_Num&
' المدى المراد تحديد اخر خليه ليس بها بيانات
Set Rn = ActiveSheet.Range("B32:D57")
With Rn
    Set A_Lst = .Cells(.Rows.Count, "B").End(xlUp)
    A_Num = A_Lst.Row + 1
    Cells(A_Num, 2).Select
End With
End Sub

تم تعديل أغسطس 24, 2013 بواسطه عباد

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

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

اعمالك قمه فى الروعه وبجد حاجات كنت اظن لن ليس لها حل افاجأ وتتحفنى بحل ولا اجمل من كده وسبق وان اتحفتنى بكود لتغيير تعليق خليه جزاك الله كل خير وجعله فى ميزان حسناتك وانار الله لك بصيرتك وبصرك وحفظك من كل سوء