اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

وبه نستعين

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

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

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

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

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

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

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

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

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

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

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

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

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

تم تعديل بواسطه سعيد بيرم
رابط هذا التعليق
شارك

اخى سعيد

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

تم تعديل بواسطه سعيد بيرم
رابط هذا التعليق
شارك

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

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

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

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

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

فوروم بحث وحذف موظفين_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 وفى ذات اللحظة يتم

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

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

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

تم تعديل بواسطه سعيد بيرم
رابط هذا التعليق
شارك

السلام عليكم

اخي سعيد بيرم

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

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

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

رابط هذا التعليق
شارك

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

ايه الجمال ده

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

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

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

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

تم تعديل بواسطه سعيد بيرم
رابط هذا التعليق
شارك

 

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

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

ايه الجمال ده

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

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

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

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

 

أخي إبراهيم

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

تم تعديل بواسطه أبو حنين
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

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

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

1327426108356.gif

70769_1219358626.gif

تم تعديل بواسطه سعيد بيرم
رابط هذا التعليق
شارك

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

وبه نستعين

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

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

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

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

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

رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

تم تعديل بواسطه سعيد بيرم
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information