معادلة نقل وترحيل بيانات بين تاريخين بشرطين( الإسم والصنف)

[هانى محمد]

السلام عليكم ورحمة الله زملاء ومعلمين وأصدقاء النتدى الكرام

أرجو المساعدة فى ايجاد هذه المعادلة ولكم جزيل الشكر وبارك الله فيكم

معادلة ترحيل ونقل.xlsx

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

لحسن العمل مع لغة VBA   تم تغيير اسماء الصفحات الى الاجنبية

الكود

Option Explicit

Sub filter_for_ME()
    With Application
     .ScreenUpdating = False
     .Calculation = xlCalculationManual
    End With
Dim S_sh As Worksheet: Set S_sh = Sheets("MouwariDDin")
Dim T_sh As Worksheet: Set T_sh = Sheets("Search_")
Dim My_Table As Range: Set My_Table = S_sh.Range("A1").CurrentRegion

T_sh.Range("a5").CurrentRegion.ClearContents
T_sh.Range("q2").Formula = "=AND($A2>=Search_!$B$2,$A2<=Search_!$B$3,Search_!$C$2=$B2,Search_!$D$2=$D2)"

My_Table.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=T_sh.Range("Q1:q2"), _
CopyToRange:=T_sh.Range("A5:G5")
T_sh.Range("q2").ClearContents
    With Application
     .ScreenUpdating = True
     .Calculation = xlCalculationAutomatic
    End With
End Sub

الملف

 

معادلة ترحيل ونقل Salim.xls

[هانى محمد]

بارك الله فيك أخى وأستاذى سليم

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

بس هناك بعد اذنك  لو ممكن نقل وترحيل أيضا المبلغ ورقم الإيصال من صفحة النقدية ان كانوا موجودين

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

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

لا يمكن للفلتر ان يعمل على جدولين في نفس الصفحة (كيف اذا كانا في صفحتين مختلفتين..؟؟؟)

[هانى محمد]

شكرا جزيلا أستاذنا الغالى وبارك الله فيك