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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز
المشرف المتميز
المراقب المتميز
المدير المتميز
الموضوع المتميز
القسم المتميز
khaled alborene Eslam Abdullah لا تميز خلال هذه الفترة YasserKhalil شيت كنترول ابتدائى 2019 ـ برنامج كنوز اكسيل اسئله واجابات




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





حذف موظف عن طريق الليست بوكس

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



07-11-2018 11:27 مساء
ashraf_hertlion
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 540
المشاركات : 114
الجنس : ذكر
تاريخ الميلاد : 7-11-1971
يتابعهم : 9
يتابعونه : 1
قوة السمعة : 145
الاعجاب : 66
 offline 

السلام عليكم كل عباقرة ونوابغ ومبدعين هذا الجروب المتميز
عندى مشكلة بسيطة ومحتاج الى مساعدتكم كما تعودت من حضارتكم دائماً
بإختصار شديد عندى فورمه بها بيانات تظهر فى الليست بوكس عند اختيارى احد الموظفين من الليست بوكس لكى احذفه يتم حذفه وايضا يتم حذف موظفين آخرين  رغم اننى محدد السطر اللى انا محتاج ان احذفه فما هى المشكلة وما هو الحل ؟
وياريت بعد عملية الحذف يتم عمل مسلسل بالموظفين الموجودين الحاليين بالشيت وياريت يكون تكويد المسلسل عن طريق ال vba وليس بالمعادلة الحالية بالشيت ويتم تلقائى كل ما احذف موظف يعيد التسلسل الصحيح من البداية .
راجى من حضراتكم الرد على فى حل هذه المشكلة لو تكرمتم لأننى محتاج هذه الفورمه فى مشروعى بالعمل .
شكراً مقدماً لكل من يقوم بالرد او بحل هذه المشكلة تقبلوا تحياتى
مرفق الملف وبه البيانات المراد تطبيق الحل عليها   142
 
 
  حذف عن طريق الليست بوكس.rar   تحميل rar مرات التحميل :(6)
الحجم :(180.486) KB



تم تحرير الموضوع بواسطة :ashraf_hertlion
بتاريخ:08-11-2018 12:16 صباحا







08-11-2018 03:23 مساء
مشاهدة مشاركة منفردة [1]
ashraf_hertlion
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 540
المشاركات : 114
الجنس : ذكر
تاريخ الميلاد : 7-11-1971
يتابعهم : 9
يتابعونه : 1
قوة السمعة : 145
الاعجاب : 66
 offline 
look/images/icons/i1.gif حذف موظف عن طريق الليست بوكس
اعزائى الكرام النوابغ ..... فين مروركم العطر الجميل 
ارجوا من حضراتكم الرد على حل مشكلتى لأننى محتاجها جداً فى شغلى 
شاكر جداً لكم ولكل اعضاء المنتدى الكبير   111





08-11-2018 06:20 مساء
مشاهدة مشاركة منفردة [2]
ابونور
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-09-2017
رقم العضوية : 576
المشاركات : 73
الجنس : ذكر
تاريخ الميلاد : 14-11-1974
يتابعهم : 3
يتابعونه : 3
قوة السمعة : 407
الاعجاب : 133
 offline 
look/images/icons/i1.gif حذف موظف عن طريق الليست بوكس
وعليكم السلام ورحمة الله وبركاته
لجعل كودك صالح للعمل تم عمل التعديلات الآتيه

أولا تغيير معادلة المسلسل 
=IF(B10="","",ROW()-9)

لأن المعادله الأولى تأتى بخطأ عند الحذف
ثانيا تغيير معرفة آخر رقم صف به بيانات من العمود A الى العمود B
لأنه فى العمود الأول يأتى بأخر صف ممتد أليه معادلة المسلسل
أما بالعمود الثانى يأتى بأخر صف به بيانات
Range("b1000").End(xlUp).Row
ولسرعة عمل الكود تم إضافة هذا السطر للخروج من الحلقه التكراريه لعدم الفائده من أكمالها
Exit For

وهذا الكود كاملا
Private Sub CommandButton3_Click()
On Error Resume Next
        Dim i As Integer
        UserForm3.TextBox9.Text = ListBox1.Column(1, ListBox1.ListIndex)
        UserForm3.TextBox10.Text = ListBox1.Column(2, ListBox1.ListIndex)
        If MsgBox("åá ÊÑíÏ ÝÚáÇð ÍÐÝ ÈíÇäÇÊ ÇáßæÏ/ " & TextBox9.Value & "  ÈÅÓã /" & TextBox10.Value, vbYesNo + vbQuestion, "ÑÓÜÇáÉ ãä ÇáãÈÑãÌ ÃÈæÔÜÑæÞ") = vbYes Then
        For i = 10 To Range("b1000").End(xlUp).Row
        If Cells(i, 1) = ListBox1.List(ListBox1.ListIndex) Then
        Rows(i).Select
        Selection.Delete
        Exit For
        End If
        Next i
        End If
    TextBox9.Text = ""
    TextBox10.Text = ""
End Sub


ومرفق الملف بعد التعديل

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  حذف عن طريق الليست بوكس.rar   تحميل rar مرات التحميل :(8)
الحجم :(72.869) KB


أثارت هذه المشاركة إعجاب: ali mohamed ali، ashraf_hertlion، YasserKhalil، Eslam Abdullah، Yasser Elaraby،




08-11-2018 07:21 مساء
مشاهدة مشاركة منفردة [3]
ali mohamed ali
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 614
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 28
قوة السمعة : 2966
الاعجاب : 952
 offline 
look/images/icons/i1.gif حذف موظف عن طريق الليست بوكس
أحسنت استاذ ابو نور بارك الله فيك عمل رائع

أثارت هذه المشاركة إعجاب: ابونور، Eslam Abdullah،


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


08-11-2018 11:33 مساء
مشاهدة مشاركة منفردة [4]
ashraf_hertlion
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 540
المشاركات : 114
الجنس : ذكر
تاريخ الميلاد : 7-11-1971
يتابعهم : 9
يتابعونه : 1
قوة السمعة : 145
الاعجاب : 66
 offline 
look/images/icons/i1.gif حذف موظف عن طريق الليست بوكس
3الف مليون شكر يا استاذنا /  أبو نور  يا مبدع لك منى الف سلام والف تحية
جزاك الله خير الجزاء على هذه المعلومه المفصلة وشرحك السلس والميسر
زادك الله علماً ونور الله لك به طريقاً الى الجنة ..... تقبل تحياتى  111142

أثارت هذه المشاركة إعجاب: ابونور، Eslam Abdullah، YasserKhalil،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
مراقبة سلف الموظفين - حسام خطاب الصقر
48 2816 اسلام الفتح
برنامج حضور وانصراف الموظفين - حسام خطاب الصقر
217 22869 altomi
بحث كامل عن محاسبة سلف الموظفين - حسام خطاب الصقر
38 742 abdulwahed catran
شيت حضور وانصراف الموظفين - حسام خطاب الصقر
37 2137 abdulwahed catran
برنامج شئون الموظفين خالد عيسى
41 1891 رشدى محمود

الكلمات الدلالية
موظف ، طريق ، الليست ، بوكس ،


 







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



الساعة الآن 05:47 مساء

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