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

(طلب) كيفية اختيار قيمة من ComboBox تدخل قيمة اخرى فى خلية معينة

Recommended Posts

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

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

كان لى طلب حتى اتمكن من استكمال برنامجى الاول وهو كالتالى

الطلب الاول هو عندما اختار قيمة " اسم العميل " من الكومبوكس الاول واضغط على زر ادخال يتم ادخال كود العميل وليس اسمه

وكل الثانى هو عند اخال قيمة فى التكستب بوكس 1 والضغط على زر ادخال فهى تدخل فى الورقة 2 خلية A3 وتاريخ الميلاد يدخل فى الخلية B2

ما اريده هو ان يظهر التكستب بوكس الثانى القيمة التى فى الخلية B2

والمثال فى المرفقات

New ورقة عمل Microsoft Excel.rar

شارك هذه المشاركه


رابط المشاركه
شارك

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

أخي الكريم

هل يمكن التكرم بوضع شرح المطلوب على ورقة العمل المقصودة ( كل ورقة ما هو المطلوب ظهوره فيها ) ?

أعتقد أنك نسيت أضافة زر أمر في الصفحة الأولة رغم أنك وضعت له الكود الخاص به و هو إظهار userform1

شارك هذه المشاركه


رابط المشاركه
شارك

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

شكر اخوانى العزاء على الرد والتعاون واعتذر ان لم اتمكن من توضيح طلبى واليكم هذا المرفق بعد التوضيح معه صور للتوضيح اكثر

472484427.png

239296749.png

اختيار الاسم ويدخل الكود.rar

شارك هذه المشاركه


رابط المشاركه
شارك

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

الاخ الكريم ahmedbakr بارك الله فيك هذا اشبه بما اريد ولكن انا اريد شئ ابسط من هذا بكثر

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

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

ولكن لى طلب بسيط اخر هل يمكنك شرح الاكواد داخل الكود وجزاك الله خير

شارك هذه المشاركه


رابط المشاركه
شارك

تحياتى وتقديرى لك

وهذا شرح الكود

:fff:

image109.jpg

image226.jpg

--- أى تغير يقوم بكتابتة فى ورقة 3 فى الخلية BQ1 ---

-------------------------------------------------------------------------------------

image227.jpg

image228.jpg

فى حالة اختيار CheckBox1

تكون الخانة التى يتم ادراج بها تاريخ الميلاد غير ظاهرة textbox2

وكذلك Label3 غيرظاهرة اللى هى أسم تاريخ الميلاد

وكذلك Checkbox2 غيرمفعلة اللى هى رقم البطاقة

---------------------------------------------------------------------------------------

image200.jpg

image201.jpg

فى حالة اختيار CheckBox2

يكون فيه الخانة التى يتم ادراج بها تاريخ الميلاد ظاهرةtextbox2

وكذلك Label3 ظاهرة اللى هى أسم تاريخ الميلاد

وكذلك Checkbox2 غيرمفعلة اللى هى رقم البطاقة

-------------------------------------------------------------------------------------------

image203.jpg

image202.jpg

اى تغير يقوم بكتابتة فى ورقة3 فى الخلية br2

-----------------------------------------------------------------------------

image204.jpg

image206.jpg

اى تغير يقوم بكتابتة فى ورقة3 فى الخلية bs2

-------------------------------------------------------------------

لتصبح على هذا الشكل

image207.jpg

------------------------------------------------------------------------------------------

زر الادخال

image208.jpg

الجزء الاول

image209.jpg

الذهاب الى ورقة 3

فى الخلية br1

استخدام if & VLookup للبحث عن كود الصيدلية المختارة والتى كتبت فى الخلية BQ1

المعادلة هى

image229.jpg

------------------------------------------------------------------------------------------------------------------

الجزء الثانى

image230.jpg

- الذهاب الى ورقة 3

- اذا ComboBox1.Value أو TextBox1.Value لا تساوى , قيمة = "" اعطاء رسالة برجاء اكمال البيانات

- ورقة 1هى التى يتم نقل البيانات الية بالخلية التى تلى اخرخلية بها بيانات بالعمود الاول a50000").End(xlUp).Row + 1

نقل محتوى الخلية br1 الى ورقة 3 اللى هى كود الصيدلية

ورقة 1 فى العمود الاول azsh, 1 حيث واحد هى تريب العمود اذا تريد b مثلا يبقى تغيرها الى 2

---------------------------------------------------------------------------------------------------------------

الجزء الثالث من كود زر الادخال والاخير

image231.jpg

يقوم بنقل الخليتين

br2 اللى هى رقم الجواز أو البطاقة على حسب الاختيار

bs2 اللى هى تاريخ الميلاد

Range("BQ1:BS3").Select

Selection.ClearContents

تعنى مسح المجال من bq1:bs3

وفى النهاية اعطاء رسالة تم بنجاح

MsgBox " "

-------------------------------------------------------------------------------------------------------

وفى النهاية اتمنى لك دوام الصحة والتوفيق

  • Thanks 1

شارك هذه المشاركه


رابط المشاركه
شارك

بسم الله ماشاء الله

قد اعجز عن الشكر على هذا الشرح الوافى الجميل لكن يمكننى الدعاء لك ولمن دخل من اجل المساعده والافاده لوجه الله تعالى

تقبل تحياتى

شارك هذه المشاركه


رابط المشاركه
شارك

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 اعضاء متواجدين الان

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

×
×
  • اضف...