ترحيل بعد التصفبة

[samycalls2020]

السلام عليكم

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

ترحيل بعد التصفبة.rar

[ياسر خليل أبو البراء]

وعليكم السلام

جرب الكود التالي عله يفي بالغرض إن شاء الله (قم بعمل التصفية كما ترغب) ثم نفذ الكود ليتم الترحيل لورقة العمل المسماة "ترحيل" إلى أول خلية فارغة في العمود الرابع D

Sub Test()
    Dim ws As Worksheet
    Dim sh As Worksheet
    Dim lr As Long
    
    Set ws = Sheets("الحركة")
    Set sh = Sheets("ترحيل")
    
    Application.ScreenUpdating = False
        sh.Range("D12:L1000").ClearContents
        lr = sh.Cells(Rows.Count, 4).End(xlUp).Row + 1
        ws.Range("D12:L107").SpecialCells(xlCellTypeVisible).Copy
        sh.Range("D" & lr).PasteSpecial xlPasteValues
        Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

 

[samycalls2020]

السلام عليكم أ/ ياسر

لقد قمت بنسخ الكود وهو يعمل جيداً .. ولكن هناك ملحوظتان * عند الأختيار فى التصفية لرقم مثلاً 5 أو أى رقم أخر وبالضغط على الزر يعطى النتيجة وإذا ضغطنا على الزر مرات ومرات يكرر النتيجة نفسها أسفل منها , وإذا اختارنا رقم أخر فى التصفية يقوم بإدراج النتيجة الثانيه تحت النتيجة الأولى وهكذا .. والمراد تعديله .. عدم تكرار النتيجة نفسها أسفل منها بالضغط المتكرر على الزر وأن يعطى الكود النتيجة الجديدة بعد أن يمسح النتيجة القديمه .. وأيضاُ أرجوا أن يكون ترحيل البيانات بدون تنسيق لأن ورقة ترحيل لها تنسيقها الخاص

تم تعديل يوليو 3, 2017 بواسطه samycalls2020
تصحيح

[ياسر خليل أبو البراء]

وعليكم السلام

تم تعديل الكود السابق ..حسب ما فهمت من تعليقك الأخير حيث تم مسح المحتويات في ورقة الترحيل قبل بدء عملية الترحيل ويتم الترحيل كقيم

[samycalls2020]

أصبح الكود يرجل بدون تنسيق وهذا مطلوب 

أما عملية المسح للقديم وترحيل الجديد مكانه .. فأنه يمسح الفديم وبتكرار الضغط على الزر يكرر التنيجة أسفلها مع مسح النتيجه أعلاها .. يمكنك تجربة الكود بنفسك .. تقبل تحياتى

[ياسر خليل أبو البراء]

تم تعديل الكود حيث يجب وضع السطر الذي يحدد آخر سطر بعد سطر المسح وليس قبله ..

[samycalls2020]

الأخ الكريم / ياسر خليل .. نفعنا الله بعلمك وجعله فى ميزان حسناتك .. كل الشكر

[samycalls2020]

أخى الكريم / ياسر .. هل لك أن تشاركنا مع الأخ الفاضل / زيزو ..  فى موضوع هذا الرابط 

لنثرى معاً فائدة هذا الموضوع والدعوة لكل الأعضاء

[ياسر خليل أبو البراء]

بارك الله فيك أخي الكريم ..

بالنسبة للموضوع الآخر أرى مشاركات كثيرة فيه وإن شاء الله الأخ زيزو سيصل معك لنهاية الموضوع حيث أنني غير متابع له من البداية ..

تقبل تحياتي