ترحيل بيانات

[mohamadhaje]

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

كيف يمكن ترحيل بيانات من ورقة إلى أخرى عن تحقق شرط معين 

مثلا في المرفق اريد تحويل الطلبات المنفذة إلى ورقة أخرى وهل يمكن تطبيق الدالة نفسها في كوكل شئت

ولكم جزيل الشكر

طلبات.xlsx

[محي الدين ابو البشر]

Sub Transfer()
    Dim rg As Range
    With Sheets("ورقة1")
        Set rg = .Range(.Range("A1:D1"), .Range("A1:D1").End(xlDown))
        With rg
            .AutoFilter Field:=1, Criteria1:="منفذ"
            .Offset(1).Copy Sheets("ورقة2").Range("A2")
            .AutoFilter
        End With
    End With
End Sub

 

تم تعديل يوليو 20 بواسطه محي الدين ابو البشر