مساعدة فى الترحيل

[محمد 2024]

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

مرفق ملف يحتوى على بيانات مجموعة من الطلاب احتاج إلى كود VBABook1.xlsx  يقوم بترحيل الطلاب من صفحة بيانات إلى سجل القيد ويكون سريع فى الترحيل لأنه للأسف جربت أكثر من كود ولكنهم يأخذون وقت طويل جدا لترحيل البيانات

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

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

[محمد 2024]

Book1.xlsx

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

اذا  اردت  بالكود  وجب  عليك  ارفاق ملف xlsm

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

حتى  تجد  تفاعل اكثر  ضع  النتائج  المتوقعة  في  الشيتات المستهدفة .

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

هذا مجرد  تخمين  واذاكان  هناك  شيء  نسيته  او  شرحته  بطريقة  خاطئة وجب  عليك تطويع  الكود بنفسك .

Sub CopyData()
    Application.ScreenUpdating = False
    Dim ws1 As Worksheet, ws2 As Worksheet
    Set ws1 = ThisWorkbook.Sheets("بيانات")
    Set ws2 = ThisWorkbook.Sheets("سجل قيد")
    Set ws3 = ThisWorkbook.Sheets("سجل حالات")
    With ws1
        .Range("A1").AutoFilter 10, ""
        .AutoFilter.Range.Copy
        With ws2
            .Range("A1").PasteSpecial xlPasteValues
        End With
        .Range("A1").AutoFilter
    End With
    With ws1
        .Range("A1").AutoFilter 10, "<>"
        .AutoFilter.Range.Copy
        With ws3
            .Range("A1").PasteSpecial xlPasteValues
        End With
        .Range("A1").AutoFilter
    End With
    Application.ScreenUpdating = True
    End Sub

 

Book1.xlsm

[محمد 2024]

عذرا أخى الفاضل عبدالفتاح في بي اكسيل لقد قمت بترتيب الملف كما أشرت وأضفت  كود الترحيل الذى لدى .

فمعذرة هل هذا الكود يفى بالغرض أم يوجد ما هو أفضل وأسرع منه .

النقطة الأخرى فى شيت سجل القيد أريد كود ترحيل لكل حالة على حسب الزر الخاص بها بناءا على البيان الموجود أمامها فى العمود N . فهل أجد لمطلبى إجابة ؟؟

وشاكر جدا لمجهودكم والرد على أخى الكريم

Book111.xlsm

تم تعديل أغسطس 26, 2023 بواسطه محمد 2024

[محي الدين ابو البشر]

عليكم السلام

وبالاذن

ربما 

 

Book111_1.xlsm

تم تعديل أغسطس 26, 2023 بواسطه محي الدين ابو البشر

[محمد 2024]

شكرا  لك أخى محي الدين ابو البشر على الاهتمام والرد

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