ترحيل بيانات من ملف الى ملف اخر بنفس الفولدر بشروط في قائمة منسدلة

[dah_med]

السلام عليكم

إخوني في المنتدي

هذا العمل لأخي العيدروس وأخي طارق

أريد التعديل عليه بحث يكون الترحيل حسب الشرط المختار من الخلية L1

تقبلوا شكري

fold.rar

[dah_med]

للرفع

[أبو حنــــين]

السلام عليكم

اخي قم بتغيير  السطر التالي

If Cells(a, 7) = "يعتمد" Then

بهذا السطر

If Cells(a, 7) = Cells(1, 12) Then

و هذا السطر ايضا

If Cells(y, "g").Value = "يعتمد" Then Rows(y).EntireRow.Delete

بهذا السطر

If Cells(y, "g").Value = Cells(1, 12) Then Rows(y).EntireRow.Delete

[dah_med]

أخي أبو حنين

جزاك الله كل خير

[dah_med]

أخي أبو حنين

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

[أبو حنــــين]

السلام عليكم

جرب ان تغير هذه الجزئية

    If Cells(a, 7) = Cells(1, 12) Then
    Range(Cells(a, 1), Cells(a, 7)).Copy
    Workbooks(f2Name).Sheets(1).[A1000].End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues

بهذه الجزئية

If Cells(a, 7) = Cells(1, 12) Then
Range(Cells(a, 1), Cells(a, 7)).Copy Workbooks(f2Name).Sheets(1).[A1000].End(xlUp).Offset(1, 0)

[أبو حنــــين]

مع ايقاف الكلمة End If

[dah_med]

أخي أبو حنين

جزاك الله كل خير