اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

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

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

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

طلبات.xlsx

  • 2 weeks later...
قام بنشر (معدل)
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

 

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

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information