مساعدة في ترحيل بينات بمعلومية خلايا محددة

[علي بطيخ سالم]

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

سداد المصروفات.xls

[Ali Mohamed Ali]

وعليكم السلام

تفضل لك ما طلبت

 

سداد المصروفات.xlsm

[سليم حاصبيا]

بعد اذن اخي علي 

هذا الكود

Option Explicit

Sub filter_for_ME()
    With Application
     .ScreenUpdating = False
     .Calculation = xlCalculationManual
    End With

Dim S_sh As Worksheet: Set S_sh = Sheets("المرحلة الابتدائية")
Dim T_sh As Worksheet
Dim My_Table As Range: Set My_Table = S_sh.Range("A1").CurrentRegion
 For Each T_sh In Worksheets
    If T_sh.Name <> S_sh.Name Then
        With T_sh
         .Cells.ClearContents
         .Range("z1") = "Status": .Range("z2") = T_sh.Name
          My_Table.AdvancedFilter Action:=2, _
          CriteriaRange:=.Range("z1:z2"), _
          CopyToRange:=T_sh.Range("A1")
         .Range("z1:z2") = vbNullString
        End With
    End If
 Next
    With Application
     .ScreenUpdating = True
     .Calculation = xlCalculationAutomatic
    End With
End Sub

الملف مرفق

سداد_Salim.xls

[علي بطيخ سالم]

الله أكبر ما شاء الله عليكم والله مش عارف أرد جميلكم كيف ولا أملك سوى الدعاء لكم بالتوفيق والبركة الدائمة الله آمين جزاكم الله خيراً استاذ علي جزاكم الله خيراً استاذ سليم

جزاك الله خيراً استاذ علي ... لكن هل من شرح بسيط لو أحببت أن أغير من هذه البيانات لبيانات أخرى كيف أنفذها من خلال طريقتك جزاك الله خيراً

[سليم حاصبيا]

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

يجب كتابة كلمة Status في الخلية G1

[علي بطيخ سالم]

ما شاء الله كود ممتاز أستاذنا الاستاذ سليم وجزاك الله خيراً استاذنا... لكن هل من شرح بسيط لو أحببت أن أغير من هذه البيانات لبيانات أخرى كيف أنفذها من خلال هذا الكود جزاك الله خيراً

تمام لكن كيف أطبق هذا الكود على ملفات أخرى أرجوا شرح الطريقة جزاك الله خيراً ... وعذراً أني مبتدئ عندي خلفية متوسطة في التعامل مع الأكواد جزاك الله خيراً