ترحيل الصفوف الظاهرة فقط بعد الفلترة الى شيت اخر

[mounir3403]

السلام عليكم 

ارجو المساعدة 

لدي شيت رئيسي اسمو data 

 

اريد لما اعمل فلترة في تاريخ الايداع يتم ترحيل الاسطر الظاهرة فقط الي الشيت الثاني 

 

 

هذا هو الشيت الثاني 

 

ارجو المساعدة وجزاكم الله خيرا 

Book11.xlsx

[عبدالفتاح في بي اكسيل]

جرب هذا  الماكرو

Sub CopyFiltered1()
    Dim src As Worksheet
    Dim tgt As Worksheet
    Set src = ThisWorkbook.Sheets("data")
    Set tgt = ThisWorkbook.Sheets("Sheet2")
    src.AutoFilter.Range.Offset(1, 1).Resize(, 5).Copy tgt.Range("B5")
End Sub

 

mounir.xlsm

[mounir3403]

عبدالفتاح في بي اكسيل 

الف الف الف شكر 

الكود شغال الف في المية وزي ما كنت حابب 

الله يحفظك ويسعدك 

الف شكر استاذ 

والله العظيم دورت لتعبت بس مالقيت شي 

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

مليون ترليون شكر 

عبدالفتاح في بي اكسيل 

الف شكر 😊😊

[ابايوسف]

السلام عليكم

عند ترحيل البيانات المفلترة - وعمل فلترة ثانية وثالثة واكثر - جعل البيانات المرحلة اسفل بعض

 

[mounir3403]

ابايوسف

جربت الكود اكثر من 10 مرات لم تواجهني هذه المشكلة 

[ابايوسف]

السلام عليكم

اعتذر - ما وصلت الفكرة بشكل صحيح

قصدي 

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

وعند عمل فلترة اخرى 

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