أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على ali mohamed ali-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة منع ادخال البيانات بعدة شروط اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





كود ترحيل بيانات

السلام عليكم احتاج مساعدتكم في تكوين كود لنقل البيانات عند اختيار checkbox معين من الشيت 1 يقوم بنسخ الخلايا من c , d ,و ..


موضوع مغلق


subject icon تمت الإجابة كود ترحيل بيانات
18-11-2020 11:49 مساء
nayef mohammad
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 18-11-2020
رقم العضوية : 20854
المشاركات : 3
الجنس : ذكر
تاريخ الميلاد : 3-1-1985
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 25
 offline 

السلام عليكم
احتاج مساعدتكم في تكوين كود لنقل البيانات عند اختيار checkbox معين من الشيت 1 يقوم بنسخ الخلايا من c , d ,ونقلها الى الشيت 2 يبدأ من c9
 
 
  تدريب.xlsm   تحميل xlsm مرات التحميل :(12)
الحجم :(35.78) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
وعليكم السلام
جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub Test()
    Dim chk As CheckBox, r As Long, lrow As Long
    lrow = Sheets(2).Range("C" & Rows.Count).End(xlUp).Row + 1
    For Each chk In Sheets(1).CheckBoxes
        If chk = 1 Then
            r = chk.TopLeftCell.Row
            Sheets(2).Range("C" & lrow).Resize(, 2).Value = Sheets(1).Cells(r, 2).Resize(, 2).Value
            lrow = lrow + 1
        End If
    Next chk
End Sub
عرض الإجابة




19-11-2020 06:29 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif كود ترحيل بيانات
وعليكم السلام
جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub Test()
    Dim chk As CheckBox, r As Long, lrow As Long
    lrow = Sheets(2).Range("C" & Rows.Count).End(xlUp).Row + 1
    For Each chk In Sheets(1).CheckBoxes
        If chk = 1 Then
            r = chk.TopLeftCell.Row
            Sheets(2).Range("C" & lrow).Resize(, 2).Value = Sheets(1).Cells(r, 2).Resize(, 2).Value
            lrow = lrow + 1
        End If
    Next chk
End Sub

19-11-2020 07:05 صباحا
مشاهدة مشاركة منفردة [2]
علي بطيخ سالم
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-09-2018
رقم العضوية : 8086
المشاركات : 272
الجنس : ذكر
تاريخ الميلاد : 30-10-1982
الدعوات : 1
يتابعهم : 7
يتابعونه : 3
قوة السمعة : 1084
عدد الإجابات: 12
 offline 
look/images/icons/i1.gif كود ترحيل بيانات
ما شاء الله أحسنت استاذ ياسر  YasserKhalil جزاكم الله خيراً

19-11-2020 12:14 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif كود ترحيل بيانات
أحسن الله إليك أخي العزيز علي ومشكور على مرورك العطر.



الكلمات الدلالية
ارجوا ، المساعدة ،


 










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

الساعة الآن 06:15 صباحا