اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by عبدالفتاح في بي اكسيل,

الردود الموصى بها

السلام عليكم 

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

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

 

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

 

p_1664lns652.png

 

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

p_1664bammz3.png

 

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

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

  • Like 1
  • Thanks 2
رابط هذا التعليق
شارك

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

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

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

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

الف شكر استاذ 

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

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

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

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

الف شكر 😊😊

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

السلام عليكم

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

قصدي 

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information