فضلا برجاء التعديل على كود حذف من خلال فورم بحث

[أبو سجده]

بسم الله الرحمن الرحيم

وبه نستعين

الساده الزملاء الافاضل

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

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

بالمرفق فوروم بحث وحذف عن موظفين

عند اختيار اسم الموظف من الليست بوكس لحذفه

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

فضلا من حضراتكم التفضل

 بتعديل كود الحذف على نحو يتم فيه الحذف من الشيت DATA وsheet2

عند اختيار الاسم المراد حذفه هذه واحده

اما الامرالاخر نرجو العمل على إضافة كود ترحيل لتلك البيانات بموجب زرادخال

والسىؤال هنا هل يمكن بمجرد الظغط على زر ادخال البيانات بشيت DATA

يتم إدراك صف جديد بنفس التنسيقات والمعادلات بـــ sheet2 بذات اللحظة ؟

تقبلوا وافراحترامى وتقديرى وجزاكم الله خيرا

تم تعديل أكتوبر 26, 2013 بواسطه سعيد بيرم

[إبراهيم ابوليله]

اخى سعيد

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

فقط قم بتعديل الكود على النحو الاتى

Private Sub CmbDelete_Click()

With Sheet7

Rows(CmbSearch.ListIndex + 2 & ":" & CmbSearch.ListIndex + 2).Select

Selection.Delete Shift:=xlUp

With Sheets("SHEET2").Select

Rows(CmbSearch.ListIndex + 2 & ":" & CmbSearch.ListIndex + 2).Select

Selection.Delete Shift:=xlUp

End With

End With

Sheet7.Select

End Sub

[إبراهيم ابوليله]

اخى سعيد

اليك المرفق

فوروم بحث وحذف موظفين.rar

[أبو سجده]

بسم الله الرحمن الرحيم

اخى العزيز الاستاذ // ابراهيم ابو ليله

بداية جزاكم الله خيرا ... وبارك الله فيكم 

جارى الاطلاع ومن ثم إخباركم بالنتيجه

تم إضافة استفسارأخر بالمشاركة رقم 1

نرجو المتابعه من جميع الساده الزملاء الافاضل

تقبل وافراحترامى

تم تعديل أكتوبر 26, 2013 بواسطه سعيد بيرم

[أبو حنــــين]

السلام عليكم اخي سعيد بيرم

تم عمل المطلوب الاول

المطلوب الثاني غير واضح

هل الزر يكون في الشيت او في الفورم

و ما هي البيانات التي ترحل

فوروم بحث وحذف موظفين_1.rar

[أبو سجده]

بسم الله الرحمن الرحيم

وبه نستعين

أخى العزيز المحترم // ابو حنين

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

بداية جزاكم الله خيرا وبارك الله فيكم

أرجو اتساع صدركم لاهمية الموضوع

اولا تم مناقشة الموضوع سابقا بالمشاركة رقم 5 على الرابط

http://www.officena.net/ib/index.php?showtopic=49426&hl=

وكانت النتيجة بسم الله ماشاء لاقوة الابالله بفضل الله تعالى أولا وبفضلكم وبفضل أخى العزيز/ عبدالله المجرب

والهدف الرئيسى هو عند حذف اى موظف من الشيت DATA يتم حذفة من sheet2  لتطابق عملية الجمع بين الشيتن

المرفق التالى يبين تطابق عملية الجمع بين الشيتين عند الحذف " حذف سجلات بين اوراق العمل "

ومع عمل فوروم يحث وحذف كما هو موضح  بالمشاركة رقم 1

حدث خلل فى تركيب الكود الامرالذى كان يتوجب رفع الموضوع

لجميع الساده الزملاء لوضع حلا أمثل لتفعيل هذا الكود بالفوروم المطروح بذات المشاركة

فيما يتعلق بالشق الثانى من الموضوع 

هو عمل زرادخال لترحيل نفس البيانات  بشيت DATA على ذات الفوروم 

اما عن سىؤالى ......... هل يمكن بمجرد الظغط على زر ادخال البيانات بشيت DATA

يتم إدراك صف جديد بنفس التنسيقات والمعادلات بـــ sheet2 بذات اللحظة ؟

فهناك موضوع لاخى العزيزالاستاذ / عبدالله باقشير " بارك الله فيكم جميعا "

ألا وهو 

كود ادراج صفوف بنفس التنسيقات والمعادلات على الرابط

http://www.officena.net/ib/index.php?showtopic=44936&hl=

فهل من الممكن ربط هذا الكود بمجرد الضغط على زر ادخال بيانات بشيت DATA وفى ذات اللحظة يتم

ادراك صف جديد بنفس التنسيقات والمعادلات كما هو مبين بمرفق اخى الاستاذ // عبدالله باقشير

أشكركم جميعا إخوانى الاعزاء الافاضل 

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

تم تعديل أكتوبر 26, 2013 بواسطه سعيد بيرم

[أبو حنــــين]

السلام عليكم

اخي سعيد بيرم

الملف المرسل في المشاركة رقم 6 لا يحتوي على فورم

أما الملف الذي ارسلته لك في المشاركة رقم 5 يقوم بحذف الاسم من الشيتين كما طلبت

و ان كان هناك توضيح آخر او شرط للحذف ارجو ذكره

[إبراهيم ابوليله]

اخى واستاذنا ابو حنين

ايه الجمال ده

كود فى غايه الاتقان

وفكره ظهور الرساله تدل على ان من وضع الكود ليس بهاوى

بل هو اكثر من محترف

بارك الله لنا فيك

[أبو سجده]

أخى العزيز الاستاذ // ابو حنين

جزاكم الله خيرا على سرعة الاستجابه

ادرك تماما أن الملف المطروح بالمشاركة رقم 6

ليس به فوروم ولكنى أردت التوضيح ان الملف بدون فورم

يعمل بشكل جيد وخصوصا أن عملية الجمع متطابقه بين الشيتن

حال الحذف من الشيت  DATA  

ولكن مع عمل الفوروم حدث هناك خلل بتركيب الكود الامر

الذى جعل الحذف من الشيت DATA فقط الامر الذى يؤثر سلبا على عملية الجمع

فالمطلوب هو تفعيل الكود بالملف المطروح بالمشاركة رقم 6

من خلال الفوروم وليس من خلال CommandButton 

أو كما يترأى لسيادتكم نحو رؤية أفضل للموضوع ... فربما يوجد ما أغفواعنه

تقبل وافراحترامى ... وبارك الله فيكم

تم تعديل أكتوبر 26, 2013 بواسطه سعيد بيرم

[أبو حنــــين]

السلام عليكم

تم استدراك الخطأ

بالنسبة للطلب الثاني

هل البيانات تضاف للشيت الأول فقط أو الأول و الثاني

2حذف سجلات بين اوراق العمل.xlsx.rar

[أبو حنــــين]

 

تاريخ المشاركة اليوم, 12:02 ص

اخى واستاذنا ابو حنين

ايه الجمال ده

كود فى غايه الاتقان

وفكره ظهور الرساله تدل على ان من وضع الكود ليس بهاوى

بل هو اكثر من محترف

بارك الله لنا فيك

 

أخي إبراهيم

جزاك الله خيرا

تم تعديل أكتوبر 26, 2013 بواسطه أبو حنين

[أبو سجده]

بسم الله الرحمن الرحيم

أخى الحبيب الغالى المحترم// ابو حنين

يامعلم الصبر  ....... هو كذلك تماما

 فيما يتعلق بسؤال حضرتك

بالنسبة للطلب الثاني

هل البيانات تضاف للشيت الأول فقط أو الأول و الثاني

البيانات تضاف للشيت الاول  DATA  فقط كترحيل بيانات

مع امكانية ربط كود أخى الاستاذ / عبدالله باقشير كما هو موضح بالمرفق المذكوراعلاه

بزرادخال البيانات على نحوعندما يتم ادخال بيانات جديده بشيت DATA فى ذات اللحظة

يتم ادراك صف جديد بنفس التنسيقات والمعادلات بــ sheet2

والشكر موصول لاخى العزيزالاستاذ // ابراهيم أبوليله فجزاه الله تعالى عنى خير الجزاء

تم تعديل أكتوبر 27, 2013 بواسطه سعيد بيرم

[أبو حنــــين]

السلام عليكم

اخي سعيد جرب المرفق

 

33حذف سجلات بين اوراق العمل.xlsx.rar

[أبو سجده]

بسم الله الرحمن الرحيم

وبه نستعين

أخى العزيزالغالى // ابوحنين

بارك الله فيكم

ومتعكم الله بالصحة والعافية

جارى الاطلاع ....  ولنا لقاء بحول الله تعالى 

جزاكم الله خيرا

[أبو حنــــين]

السلام عليكم

لقد اضفت في المشاركة الأخيرة ادراج تنيبقات الصف الأخير في DATA فقط و ان اردت كليهما او الشيت الثاني فأخبرني بذلك

[أبو سجده]

السلام عليكم

لقد اضفت في المشاركة الأخيرة ادراج تنيبقات الصف الأخير في DATA فقط و ان اردت كليهما او الشيت الثاني فأخبرني بذلك

نعم أخى العزيزالاستاذ // ابو حنين

أريد كلا الشيتين

وجزاكم الله خيرا

تم تعديل نوفمبر 1, 2013 بواسطه سعيد بيرم