تعديل على كود

[yasser_w_2010]

Sub Macro1()
' Macro1 ماكرو'
    Sheets("data").Range("A3:DM150").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("P3:P4"), CopyToRange:=Range("A5:DM5"), Unique:= _
        False
   End Sub

هل يمكن عمل هذا الكود بحيث ريحل البيانات كل مره في اخر صف فيه بيانات 

بدون مسح البيانات المرحله مسبقا

 

[Saleh Ahmed Rabie]

**بالتأكيد، يمكن تعديل الكود بحيث يرحل البيانات إلى آخر صف فارغ في نطاق النتيجة دون مسح البيانات المرحّلة مسبقًا.**

**إليك الكود المعدّل:**

`
Sub Macro1()
' ماكرو Macro1
    Dim LastRow As Long

    ' تحديد آخر صف في نطاق النتيجة
    LastRow = Sheets("data").Range("A:A").Find("*", , xlFormulas, , xlPrevious).Row

    ' إضافة 1 إلى آخر صف لتحديد الصف التالي الفارغ
    LastRow = LastRow + 1

    ' تطبيق فلتر متقدم ونسخ النتائج إلى الصف التالي الفارغ
    Sheets("data").Range("A3:DM150").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("P3:P4"), CopyToRange:=Sheets("data").Range("A" & LastRow & ":DM" & LastRow), Unique:= _
        False
End Sub
```

**ملاحظات:**

* تم تعريف متغير `LastRow` لتخزين رقم الصف الأخير في نطاق النتيجة.
* تتم إضافة 1 إلى `LastRow` لتحديد الصف التالي الفارغ.
* تم تعديل نطاق `CopyToRange` في دالة `AdvancedFilter` لنسخ النتائج إلى الصف التالي الفارغ.

**باستخدام هذا الكود المعدّل، سيتم ترحيل البيانات المفلترة إلى آخر صف فارغ في نطاق النتيجة دون مسح البيانات المرحّلة مسبقًا.**

 

تم تعديل مايو 27 بواسطه 2024

[Saleh Ahmed Rabie]

.

تم تعديل مايو 27 بواسطه 2024