تصحيح كود الذهاب لآخر أو أول سجل

[عبدالعزيز محمد]

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

نسأل الله العظيم أن يبارك لنا في هذا الصرح الكريم منتدانا الغالي

في المرفق جدول به سجلات كثيرة واختصار للوقت والجهد وجدت كود يقوم بالذهاب إلى أول سجل وآخر سجل ولكن عند التصفية لا يقوم بعمله بشكل واضح حيث لا يظهر الصف الأول خاصة إذا كانت لدينا سجلات كثيرة مصفاة .

نأمل تصحيح الكود بحيث يتم الانتقال إلى أول سجل(ليس صف العناوين) وإلى آخر صف به بيانات عند عملية التصفية.

نأمل أن يكون السؤال واضحا .

Aziz.rar

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

هذا الكود يقوم يظهر لك اول خلية واخر خلية في الجدول بعد التصفية

Sub LastFR()
    Dim FinalRowFiltered As Long, DataRange As Range
    Dim First_Address As String
    Dim Final_Adddres As String
    Dim lr%, i%
       lr = Cells(Rows.Count, 1).End(3).Row
    Set DataRange = Range("A3:c" & lr)
        With DataRange.SpecialCells(xlCellTypeVisible)
                FinalRowFiltered = .Areas(.Areas.Count).Row + .Areas(.Areas.Count).Rows.Count - 1
                 Final_Adddres = Range("a" & FinalRowFiltered).Address
        End With
 For i = 3 To lr
 If Rows(i).Hidden = False Then
  First_Address = Cells(i, 1).Address
  Exit For
  End If
  Next
  MsgBox First_Address
  MsgBox Final_Adddres
End Sub

 

[عبدالعزيز محمد]

السلام عليكم 

بارك الله فيك اخي سليم

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

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

لقد وضعت الكود لطريقة ايجاد أول سجل و اخر سجل 

و لك عمليةالتحديد فقط استبدال 

MsgBox First_Address

بــــــــــــــــــ: 

Range(First_Address).Select  

على كل حال

تم عمل المطلوب

 

 

Aziz Sallim.rar

[عبدالعزيز محمد]

شكرا أخي سليم

هذا هو المطلوب بالتحديد جزاك الله خيراااااااااااااااااااااااااا