ترحيل أعمدة محددة عن طريق صناديق الاختيار

[أبو إلياس السوري]

السلام عليكم ورحمة الله وبركاته

 

قبل قليل وضعت موضوع ولكنه حذف لا أعلم لماذا ؟؟

 

التفاصيل في الملف الملحق

Microsoft Excel Worksheet جديد.rar

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

مزيد من التوضيح لإزالة أي لبس .. الترحيل من أين وإلى أين ؟ وعلى أي أساس يتم الترحيل ؟ وما هي شكل النتائج المتوقعة بعد تنفيذ الترحيل ؟ وهل الترحيل جزئي أم كلي لأني لاحظت وجود صناديق اختيار ؟ و و و الكثير من الأسئلة التي لابد من الإجابة عليها بدون السؤال عنها ...

راجع رابط التوجيهات أخي الفاضل

[أبو إلياس السوري]

أستاذي الفاضل ..

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

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

رابط اليوتيوب لترحيل أعمدة مختارة. عبدالله المجرب 

https://www.youtube.com/watch?v=mN8CzblAsZ0

 

أعتذر عن الإختصار في الطلب ولكنني إعتقدت أن الطلب واضح ... وشكرا للمتابعة أستاذي الفاضل

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

الأخ الفاضل أبو إلياس

إليك الكود بعد التصحيح ..

من الأخطاء الظاهرة الخفية في الكود الذي قمت بكتابته كتابة رقم 1 بدلاً من حرف L في جملة xlup

ويرجع ذلك إلى أنه عند كتابة حرف الـ L صغير بهذا الشكل l فإنه يشبه إلى حد كبير رقم 1 في محرر الأكواد ..

 

وكذلك رقم 1 بدلاً من المتغير i

 

يراعى عند كتابة الأكواد الدقة التااااااااامة ثم الدقة التامة .. التصحيح أصعب عندي من بناء الكود !!

استغرق الأمر مني حوالي نصف ساعة لمعرفة الخطأ .. ظللت أنظر للكود ثم أنظر مرة أخرى ثم أنظر ولم ألاحظ أن حرف الـ L قد كتب بدلاً منه رقم 1

عموماً الحمد لله تم تدارك الخطأ .. ومعرفة مكمن المشكلة

إليك الكود بعد التعديل

Private Sub CommandButton1_Click()
    Dim MySH As Worksheet
    Dim I As Long, K As Long, R As Long, LR As Long
    
    Set MySH = Sheets("البيانات")
    K = 1
    
    Columns("A:J").ClearContents
    
    For I = 3 To MySH.Cells(Rows.Count, 1).End(xlUp).Row
        LR = Cells(Rows.Count, 1).End(xlUp).Row + 1
        For R = 1 To 10
            If Me.Controls("CheckBox" & R) Then
                Cells(LR, K) = MySH.Cells(I, Me.Controls("CheckBox" & R).Caption)
                K = K + 1
            End If
        Next R
        K = 1
    Next I
    
    Unload Me
End Sub

لا تنسى أن تحدد أفضل إجابة .. كما لا تنسى أن تضغط على كلمة "أعجبني هذا"

تقبل تحياتي :fff:

Transfer Specific Columns By CheckBoxes On UserForm.rar

[أبو إلياس السوري]

كالعادة أيها الأستاذ الكبير فإنك تبدع في الرد ....بارك الله فيك وفي علمك ورحم والديك...

مشكووووووووووووووووووووووووووووووووووووووووور

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

أخي الكريم أبو إلياس السوري

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

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

تقبل تحياتي وكل عام وأنت بخير

[احمد السيد سليمان]

عمل رائع ولكن حاولت ان اصل الى مكان الكود ولم اجده

 

المرجو الايضاح  ، وهل يمكن اضافة اختار اختيار جميع الاعمدة المحددة فى النموذج

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

الأخ الكريم هوفن

يرجى تغيير اسم الظهور للغة العربية

وعليك بالبدء من البدايات لتعرف كيف تصل للكود

ادخل على هذا الرابط

http://www.officena.net/ib/index.php?showtopic=60147

[احمد السيد سليمان]

اشكرك على الاهتمام ولكن دخلت على التعليمات البرمجية ولم اجد الكود الموجود فى المشاركة 4 حتى يمكن الاستفادة فى زيادة عدد الاعمدة

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

كليك يمين على الفورم ثم الأمر View Code للإطلاع على الكود

[احمد السيد سليمان]

دخلت على View Code للإطلاع على الكود ولكن لم اجده ضمن Module

المرجو الافادة

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

ببساطة أخي أحمد

اضغط Alt + F11 من لوحة المفاتيح للدخول للمحرر

هتلاقي نافذة اسمها نافذة المشروع Project window

هتلاقي كلمة UserForm1 اعمل عليها كليك يمين ثم View Code

[احمد السيد سليمان]

شكرا استاذ ياسر على الايضاح