مطلوب تعديل كود الوقوف على اول واخر اسم في الصف

[سيد الأكـرت]

السلام عليكم ورحمة الله وبركاته اخوتي الكرام في الملف المرفق كودان للوقوف على اول اسم واخر اسم في الصف والكودان يعملان بامتياز وعند عمل نسخة من الشيت عن طريق المعادلات ( الصفحة الثانية درجات 2 ) نجد ان الكود الثاني الخاص بالوقوف على اخر اسم يصل للنهاية لان المعادلة بالطبع تجعل الخلية غير فارغة كيف يمكننا جعل الكود في الملف الثاني يقف على اخر اسم مكتوب بالفعل في وجود المعادلة وشكرا 

كود اول واخر اسم.xlsm

[أبوأحـمـد]

عدل صف الإزاحة من 1 إلى 0

ليكون بهذا الشكل

ActiveSheet.Range("c" & Rows.Count).End(xlUp).Offset(0, 0).Select

 

[محمد هشام.]

وعليكم السلام ورحمة الله تعالى وبركاته 

Sub lastname() ' اخر  اسم على الجدول
Dim ws As Worksheet: Set ws = ActiveSheet
Dim myRng As Range
Set myRng = ws.Range("C4", Range("c" & Rows.Count).End(4)).SpecialCells(xlCellTypeFormulas, 2)
With myRng
myRng.Cells(myRng.Rows.Count, 1).Select
End With
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''

Sub lastname2() ' اخر صف  في الجدول
  Columns("C").Find(What:="*", LookIn:=xlValues, SearchDirection:=xlPrevious).Select
End Sub

 

كود اول واخر اسم.xlsm

تم تعديل يوليو 5, 2023 بواسطه محمد هشام.

[سيد الأكـرت]

ما شاء الله ربنا يحفظك ويبارك فيك ويزيدك علما ونفعا للجميع وجزاك الله كل الخير