اخر خلية بعمود بعد التصفية

[يوسف السيد]

السلام عليكم

(a)عند تواجد أرقام مفلترة (تم عمل تصفية لها) بالعمود

هل من معادلة للاتيان بأخر رقم في العمود

اخر خلية بعد الفلترة.rar

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

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

Sub GetLast_Value()
       If Not (ActiveSheet.AutoFilterMode) Then
        Range("a1").AutoFilter
     End If
   Set filter_range = ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
         b = Split(filter_range.Address, "$")
       LastRow = Val(b(UBound(b)))
      Range("c1").Value = Range("a" & LastRow)
End Sub

الملف مرفق (بالكود و بواسطة المعادلات)

 

اخر خلية بعد الفلترة salim.rar

تم تعديل أبريل 8, 2017 بواسطه سليم حاصبيا

[يوسف السيد]

ما شاء الله 
حلول اكثر من رائعة تفي بالمطلوب وتزيد

بارك الله لك ونفعك بك ورزقك من حيث لا تدري