أوقف لصق النسخ إذا كان النطاق المفلتر لا يحتوي على بيانات (excel VBA)

مرحبا،

أنا أعمل في Excel 2013 ،

أحتاج إلى عامل التصفية التلقائي "# N / A" في العمود "F" ، إذا كانت تصفية "# N / A" لا توجد بيانات بالعنوان ، فإن الكود "الانتقال إلى 0:" يفعل ...

لكن ، الكود الخاص بي لا يعمل ، انتقل إلى 0:

الاختبارات الفرعية ()
إدراج مرشح و # N / A نسخ ولصق
'VBA - إيقاف تشغيل التصفية التلقائية من الرمز
إذا كان ActiveSheet.AutoFilterMode ثم
ActiveSheet.AutoFilterMode = False 'ActiveSheet.Range ("A1"). التصفية التلقائية ---> تشغيل التصفية التلقائية
إنهاء حالة

مرشح تلقائي للخلايا الفارغة في العمود الثاني
خافت الصف الأخير بطول
LastRow = النطاق ("B" & Rows.Count). النهاية (xlUp). الصف

في خطأ ، استئناف التالي 'إذا كان التصفية ، فلن تنتقل البيانات بعد ذلك
ActiveSheet.Range ("$ A $ 1: $ F" & LastRow). حقل AutoFilter: = 6 ، Criteria1: = "# N / A" "مرشح الخلايا غير القابلة للتطبيق ، ثم حدد الخلايا المرئية
Range ("$ A $ 2: $ F" & LastRow) .SpecialCells (xlCellTypeVisible). اختر

إيقاف لصق النسخ إذا كان النطاق المفلتر لا يحتوي على بيانات
If Range ("A1: F" & LastRow) .SpecialCells (xlCellTypeVisible). العد> 1 ثم
النطاق ("$ B $ 2: $ D" & LastRow) .SpecialCells (xlCellTypeVisible). اختر
الاختيار
'افعل شيئا .........
Application.CutCopyMode = خطأ
آخر
ActiveSheet.AutoFilterMode = خطأ
الذهاب إلى 0:
إنهاء حالة

'افعل شيئا .........

0:
نهاية الفرعية


الرجاء مساعدتي ، شكرا مقدما
  أوقف لصق النسخ إذا كان النطاق الذي تمت تصفيته لا يحتوي على data.zip   أوقف لصق النسخ إذا كان النطاق الذي تمت تصفيته لا يحتوي على data.zip