اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

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

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

أخوك بن علية

كود تعديل بيانات.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

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

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

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

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

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

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.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information