ارجو المساعدة بكود لتحقيق المطلوب

[فضل حسين]

الى خبراء واعضاء منتداى العزيز والعظيم

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

مرفق ملف موضح به المطلوب

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

كود تعديل بيانات.rar

[طارق محمود]

السلام عليكم

تفضل المرفق

الورقة الثانية محمية لمنع التلاعب بالمعادلات والتنسيق

(باسوورد 1)

كود تعديل بيانات.rar

[بن علية حاجي]

السلام عليكم ورحمة الله

أخي الكريم فضل، أستسمح أخي الكريم طارق لأضيف الملف المرفق وبه كودين كود في حدث الورقة لاستدعاء التسلسل وآخر لتطبيق التعديل على بيانات التسلسل المستدعى في الورقة الأخرى...

أخوك بن علية

كود تعديل بيانات.rar

[بن علية حاجي]

السلام عليكم ورحمة الله

أخي الكريم فضل، بالنسبة لكود حدث الورقة 2 يعطي خطأ في حالة إدخال رقم التسلسل غير موجود ولتصحيح الخطأ يمكن إضافة السطر التالي في بداية الكود:

ON ERROR RESUME NEXT 

ويمكن إضافة رسالة خطأ "الرقم التسلسلي غير موجود" في الكود لإعطائه صفة جمالية... وكود التعديل يمكن تبديله بالكود التالي المبسط:

Sub Modif()

Dim J As Integer

lig = Application.WorksheetFunction.Match(Worksheets("sheet2").Range("A2"), Worksheets("sheet1").Range("A:A"), 0)

For J = 1 To 4

Worksheets("sheet1").Cells(lig, J) = Worksheets("sheet2").Cells(2, J)

Next J

End Sub

أخوك بن علية

[فضل حسين]

البشمهندس / طارق

المبدع / hben

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

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

ولكن تبقى ملحوظة احب ان اوضحها لكم وهى مهمة . وهى اننى فى حالة مثلا قمت باستدعاء مجموعة من الصفوف ينطبق فيهم شرط معين فأريد

مثلا من حل البشمهندس طارق ان تحتوى القائمة المنسدلة الخاصة بحله على الارقام المسلسلة على الصفوف التى ينطبق عليها الشرط فقط لاغير .

ونفس الفكرة للمبدع الكبير hben

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

وحبيب قلبى اللى وحشنى ومن زمان لم نتقابل فى مشاركة المبدع / hben

مرفق الملف

كود تعديل بيانات2.rar

[عبدالله المجرب]

السلام عليكم

اخي فضل

لي طلب عندك اتمنى ان تضع عناوين تدل على الطلب

======

في المرفق كودين

كود لا ستدعاء الاسماء المطابقة للاسم

==

وكود ترحيل البيانات الى مكانها بعد تعديلها

كود تعديل بيانات2.rar

[بن علية حاجي]

السلام عليكم ورحمة الله

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

أخوكم بن علية

كود تعديل بيانات3.rar

[فضل حسين]

حبيب قلبى المايسترو

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

اما بخصوص الحل فياحبيبى ده حل سيمفونى من الطراز الرائع والفن الجميل . تسلم ياباشا وتسلم لنا وللمنتدى ولكل مريدك ومحبيك . وربنا يخليك لنا وللمنتدى وتتحفنا دائما بأعمالك الرائعة والجميلة . ويارب ماتزعلش مننا ابدا علشان احنا بنحبك يامايسترو . الف شكر ياحبيبى وجزاك الله كل خير وبارك الله فيك.

استاذى الكبير المبدع / hben

الرجل الهادى الجميل والمبدع فى جميع اعماله . سعدت جدا بحلولك وبمشاركاتك التى بها افكار رائعة وجميلة مثلك واستفدت وتعلمت منها كثيرا .

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

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

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

[بن علية حاجي]

السلام عليكم ورحمة الله

أخي الكريم فضل، قمت ببعض التعديلات على كود "جلب البيانات" لأخي وحبيبي عبد الله "أبو أحمد" ليقوم بعمله بكل الشروط -أعتقد ذلك- (المسلسل - الاسم - العنوان - الراتب) وبعض التعديلات على الملف... الكود الثاني "تعديل البيانات" بقي على حاله دون أدنى تغيير...

أخوك بن علية

كود تعديل بيانات4.rar

[فضل حسين]

المبدع / بن عليه

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

حبيبى جزاك الله كل خير ودائما ياحبيبى تسعدنى وتنورنى بمشاركاتك الجميلة . وتصبح على خير .