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

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


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



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





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

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



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

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

 
 
  حذف عن طريق الليست بوكس.rar   تحميل rar مرات التحميل :(9)
الحجم :(180.486) KB



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







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





08-11-2018 06:20 مساء
مشاهدة مشاركة منفردة [2]
ابونور
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-09-2017
رقم العضوية : 576
المشاركات : 93
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 14-11-1974
يتابعهم : 3
يتابعونه : 5
قوة السمعة : 557
الاعجاب : 32
 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 مرات التحميل :(10)
الحجم :(72.869) KB






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



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


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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
شيت حضور وانصراف الموظفين - حسام خطاب الصقر
110 7548 omdaomda55
عمل برنامج موظفين alhwity
8 170 محمد الدسوقى
برنامج حضور وانصراف الموظفين - حسام خطاب الصقر
410 36534 حسين195480
طلب مساعدة في حساب الراتب الحالي للموظفين ali244
2 190 ali mohamed ali
عمل كلمة مرور وصلاحية للموظفين Abo Sohaib
0 119 Abo Sohaib

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


 







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



الساعة الآن 02:38 صباحا

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