ترحيل البيانات لشيت اخر بناءا على شرط بين تاريخين

[امجد عبدالحليم]

اخواني واساتذتي الكرام ..........

لكم مني تحية الاسلام

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

محتاج مساعدتكم في حل للشيت المرفق حيث اريد ترحيل البيانات بناءا على شرط بين تاريخين

 

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

المصاريف.rar

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

جرب هذه الملف

الكود

Sub filter_for_ME()
    With Application
     .ScreenUpdating = False
     .Calculation = xlCalculationManual
    End With
Dim S_sh As Worksheet: Set S_sh = Sheets("Details")
Dim T_sh As Worksheet: Set T_sh = Sheets("Statement")
Dim My_Table As Range: Set My_Table = S_sh.Range("A4").CurrentRegion
 With T_sh
.Range("a10").CurrentRegion.ClearContents
.Range("q2").Formula = _
"=AND(Details!B5>=$B$6,Details!B5<=$B$7,Details!C5=$B$5)"
   My_Table.AdvancedFilter Action:=xlFilterCopy, _
   CriteriaRange:=.Range("Q1:Q2"), _
   CopyToRange:=.Range("A10")
.Range("q2").ClearContents
.Columns("B:G").AutoFit
End With
    With Application
     .ScreenUpdating = True
     .Calculation = xlCalculationAutomatic
    End With
End Sub

الملف مرفق

المصاريف.xlsm

[Ali Mohamed Ali]

احسنت استاذ سليم بارك الله فيك

كود ممتاز

[امجد عبدالحليم]

17 ساعات مضت, سليم حاصبيا said:

جرب هذه الملف

الكود

Sub filter_for_ME()
    With Application
     .ScreenUpdating = False
     .Calculation = xlCalculationManual
    End With
Dim S_sh As Worksheet: Set S_sh = Sheets("Details")
Dim T_sh As Worksheet: Set T_sh = Sheets("Statement")
Dim My_Table As Range: Set My_Table = S_sh.Range("A4").CurrentRegion
 With T_sh
.Range("a10").CurrentRegion.ClearContents
.Range("q2").Formula = _
"=AND(Details!B5>=$B$6,Details!B5<=$B$7,Details!C5=$B$5)"
   My_Table.AdvancedFilter Action:=xlFilterCopy, _
   CriteriaRange:=.Range("Q1:Q2"), _
   CopyToRange:=.Range("A10")
.Range("q2").ClearContents
.Columns("B:G").AutoFit
End With
    With Application
     .ScreenUpdating = True
     .Calculation = xlCalculationAutomatic
    End With
End Sub

الملف مرفق

المصاريف.xlsm

استاذي / سليم 

احسنت ووفيت جزاكم الله خيرا بالفعل هو المطلوب

 

جزيت خيرا

تم تعديل أكتوبر 8, 2018 بواسطه امجد عبدالحليم

[Gmal samy]

في ٨‏/١٠‏/٢٠١٨ at 10:42, امجد عبدالحليم said:

"=AND(Details!B5>=$B$6,Details!B5<=$B$7,Details!C5=$B$5)"

ممكن شرح للجزء ده