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

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


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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





عمل فورم لحذف اي طالب من اي مستوى وترحيله الى شيت ارشيف

السلام عليكم اساتذتي الكرام جزاكم الله خيرا على كل ما تقدمونه في ميزان حسناتكم يارب واليكم طلبي به ملف مرفق للعمل عليه و ..



28-12-2017 09:47 مساء
malik
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 857
المشاركات : 284
الجنس : ذكر
تاريخ الميلاد : 4-7-1985
الدعوات : 5
قوة السمعة : 303
الاعجاب : 0
 offline 
السلام عليكم اساتذتي الكرام جزاكم الله خيرا على كل ما تقدمونه في ميزان حسناتكم يارب
واليكم طلبي به ملف مرفق للعمل عليه وبه التوضيح للاستفادة الجميع  منه 
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
وشكرا 
 
 
  عمل ارشيف عند حذف اي طالب من اي مستوى.rar   تحميل rar مرات التحميل :(17)
الحجم :(116.696) KB





30-12-2017 11:47 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8663
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25520
الاعجاب : 192
 Online 
look/images/icons/i1.gif عمل فورم لحذف اي طالب من اي مستوى وترحيله الى شيت ارشيف
أخي الكريم مالك
هلا وضعت ملف مرفق كنموذج مصغر ليسهل التعامل مع المشكلة حيث أنني أجد صعوبة في التعامل مع ملفاتك بشكل مباشر .. لا أدري هل المشكلة في النسخة لدي أم في تصميم ملفك؟
 




30-12-2017 11:55 مساء
مشاهدة مشاركة منفردة [2]
malik
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 857
المشاركات : 284
الجنس : ذكر
تاريخ الميلاد : 4-7-1985
الدعوات : 5
قوة السمعة : 303
الاعجاب : 0
 offline 
look/images/icons/i1.gif عمل فورم لحذف اي طالب من اي مستوى وترحيله الى شيت ارشيف
 استاذ الفاضل 
انا وضعت ملف مرفق للعمل عليه 
لأني اشتغل على اوفيس 2010
وانت كم عندك




31-12-2017 07:10 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8663
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25520
الاعجاب : 192
 Online 
look/images/icons/i1.gif عمل فورم لحذف اي طالب من اي مستوى وترحيله الى شيت ارشيف
أخي الكريم لا يوجد أي فورم بالملف المرفق .. ليس من المفترض أن يقوم الأعضاء بتصميم الفورم ، حاول أن تجهز الملف بشكل يكون جاهز للعمل عليه
عموماً قم إنشاء فورم وضع عليه زر أمر وضع الكود التالي في حدث الفورم
Private Sub CommandButton1_Click()
    Dim sh As Worksheet
    Dim r As Long
    Dim m As Long
    
    Set sh = ThisWorkbook.Worksheets("ارشيف")
    m = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1
    If ActiveSheet.Name = sh.Name Then Exit Sub
    
    Application.ScreenUpdating = False
       r = Selection.Row
       
       ActiveSheet.Rows(r).Copy sh.Rows(m)
       ActiveSheet.Rows(r).Delete
    Application.ScreenUpdating = True
End Sub




31-12-2017 07:32 مساء
مشاهدة مشاركة منفردة [4]
malik
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 857
المشاركات : 284
الجنس : ذكر
تاريخ الميلاد : 4-7-1985
الدعوات : 5
قوة السمعة : 303
الاعجاب : 0
 offline 
look/images/icons/i1.gif عمل فورم لحذف اي طالب من اي مستوى وترحيله الى شيت ارشيف
شكرا لك استاذ الكريم على الرد جزاك الله كل خير 

لكن سوف اجرب الكود وارد عليك جزاك الله كل خير 
وشكرا
 




31-12-2017 07:49 مساء
مشاهدة مشاركة منفردة [5]
malik
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 857
المشاركات : 284
الجنس : ذكر
تاريخ الميلاد : 4-7-1985
الدعوات : 5
قوة السمعة : 303
الاعجاب : 0
 offline 
look/images/icons/i1.gif عمل فورم لحذف اي طالب من اي مستوى وترحيله الى شيت ارشيف
استاذ ممكن الرد لك بعد تصميم فورم لتكملة طلبي به توضيح اكثر للعمل عليه 
لكي اضع رابط تحميله على موقع مديفار 

انتظر الرد 
وشكرا 




31-12-2017 07:58 مساء
مشاهدة مشاركة منفردة [6]
malik
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 857
المشاركات : 284
الجنس : ذكر
تاريخ الميلاد : 4-7-1985
الدعوات : 5
قوة السمعة : 303
الاعجاب : 0
 offline 
look/images/icons/i1.gif عمل فورم لحذف اي طالب من اي مستوى وترحيله الى شيت ارشيف
اليك رابط تحميل ملف لحذف اي طالب من اي مستوى  مرفق بعد توضيح  طلبي بالفورم 
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب


وشكرا 




01-01-2018 12:45 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8663
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25520
الاعجاب : 192
 Online 
look/images/icons/i1.gif عمل فورم لحذف اي طالب من اي مستوى وترحيله الى شيت ارشيف
أخي الكريم
جرب الكود التالي في حدث الفورم لعله يفي بالغرض 
Dim ws              As Worksheet
Dim sh              As Worksheet

Private Sub ComboBox1_Change()
    Dim ar          As Variant

    Set sh = ThisWorkbook.Worksheets("ارشيف")

    If IsObject(Evaluate("'" & ComboBox1.Value & "'!A1")) Then
        Set ws = ThisWorkbook.Worksheets(ComboBox1.Value)
        ar = ws.Range("A2:H" & ws.Cells(Rows.Count, 1).End(xlUp).Row).Value
        Me.ListBox1.ColumnCount = UBound(ar, 2)
        Me.ListBox1.List = ar
    Else
        MsgBox "The Worksheet Doesn't Exist", vbExclamation
    End If
End Sub

Private Sub CommandButton1_Click()
    Dim m           As Long
    Dim i           As Long
    Dim r           As Long

    Set sh = ThisWorkbook.Worksheets("ارشيف")
    m = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1
    If IsObject(Evaluate("'" & ComboBox1.Value & "'!A1")) Then
        Set ws = ThisWorkbook.Worksheets(ComboBox1.Value)
    Else
        Exit Sub
    End If

    Application.ScreenUpdating = False
        For i = 0 To Me.ListBox1.ListCount - 1
            If Me.ListBox1.Selected(i) Then
                r = Application.Match(Me.ListBox1.List(, 1), ws.Columns(2), 0)
                ws.Rows(r).Resize(, 8).Copy sh.Range("A" & m): ws.Rows(r).Delete
                Call ComboBox1_Change: Exit For
            End If
        Next i
    Application.ScreenUpdating = True
End Sub




01-01-2018 02:51 مساء
مشاهدة مشاركة منفردة [8]
malik
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 857
المشاركات : 284
الجنس : ذكر
تاريخ الميلاد : 4-7-1985
الدعوات : 5
قوة السمعة : 303
الاعجاب : 0
 offline 
look/images/icons/i1.gif عمل فورم لحذف اي طالب من اي مستوى وترحيله الى شيت ارشيف
وعليكم السلام استاذي الفاضل  بحلول السنة الجديدة اتمنى لك عام سعيد ومزيدا من نجاح 
اولا شكرا لك على الكود لقد عمل معي بطريقة ممتازة
لكن عند ظغط على زر مسح  طالب واظافته الى شيت ارشيف ينقص تسلسل ارقام ووضع تاريخ حذف كما بينت على ملف في شيت ارشيف
لكن عند حذف طالب من قائمته كذلك لايوجد تسلسل في قائمة لباقي الطلاب
ممكن تجربت ملف لكي تعرف الخطأ
انتظر الرد

وشكرا 
 




01-01-2018 04:45 مساء
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8663
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25520
الاعجاب : 192
 Online 
look/images/icons/i1.gif عمل فورم لحذف اي طالب من اي مستوى وترحيله الى شيت ارشيف
إن شاء الله أحاول العمل على الملاحظات في أقرب وقت إلا إذا تدخل أحد الأخوة وأكمل الموضوع ..




01-01-2018 04:52 مساء
مشاهدة مشاركة منفردة [10]
malik
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 857
المشاركات : 284
الجنس : ذكر
تاريخ الميلاد : 4-7-1985
الدعوات : 5
قوة السمعة : 303
الاعجاب : 0
 offline 
look/images/icons/i1.gif عمل فورم لحذف اي طالب من اي مستوى وترحيله الى شيت ارشيف
شكرا لك استاذي الفاضل على اهتمام بالموضوع جزاك الله كل خير
وشكرا






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
لاول مرة على اليوتيوب يوزرفورم كامل للحفظ والبحث والحذف والتعديل فى كل اوراق العمل اكسيل vba emad ghazi
23 3134 محمد أبو العنين
ضبط كود الحذف داخل الفورم هانى على
9 727 هانى على
اصلاح كود الحذف فى فورم إضافة عملاء وموردين أحمد يوسف
3 662 أحمد يوسف

الكلمات الدلالية
فورم ، لحذف ، طالب ، مستوى ، وترحيله ، ارشيف ،


 







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

الساعة الآن 08:30 صباحا

أعلن هنا
أعلن هنا
أعلن هنا