فلترة متقدمة و ترحيل بشرط

[seddiki_adz]

السلام عليكم 

طلب مساعدة في فلترة و ترحيل من الشيت1 الى الشيت 2  القيم الموجودة في الاعمدة,E, F, G A ،C,D

الشرط في الخلية D6

tarhil.xlsx

[tornado_3100]

كود الفلترة

    Dim lngStart As Date
    Dim lngEnd As Date

   With Sheet1.Range("cer")
الفلترة بين تاريخين    .AutoFilter field:=7, Criteria1:=">=" & lngStart, Operator:=xlAnd, Criteria2:="<=" & lngEnd
الفلترة بقيمة مساوية    .AutoFilter field:=22, Criteria1:=Me.ComboBox1.Value, Operator:=xlFilterValues

field:=7 رقم العمود الى هايطبق عليه الفلتر

كود النسخ

المراد نسخة                            Sheet1.Columns("F").Copy
 مكان اللصق      Sheet2.Range("B7").PasteSpecial Paste:=xlPasteValues
 

وشوف الموضوع دا 

 

[omar elhosseini]

اخي شاهد المرفق

tarhil.xlsm

[seddiki_adz]

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

هل يمكن جعل الترقيم عند الفلترة منسق ، يعني اداكان الناتج الترحيل سطرين يرقم فقط سطرين وادا كان اربع اسطر ينسق الحدول على حسب عدد القيم المرحلة

[omar elhosseini]

اخي شاهد المرفق

tarhil.xlsm

[seddiki_adz]

شكر 

لا يمكن ان لا يرحل باقي الجول اقصد التحطيط الزائد؟