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

[كلمة حلوة]

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

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

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

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

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

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

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

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

[أبو ردينة]

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

أخي الكريم

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

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

[طارق محمود]

السلام عليكم

أخي العزيز

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

تفضل المرفق

عسي أن يكون هو ماتريد

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

[كلمة حلوة]

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

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

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

[أحمد بكر]

حمل من المرفقات عسى ان يكون هو المطلوب

وفقك الله يا أخى الفاضل

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

تم تعديل مايو 19, 2012 بواسطه ahmedbakr

[كلمة حلوة]

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

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

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

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

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

[أحمد بكر]

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

زر الادخال

الجزء الاول

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

فى الخلية br1

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

المعادلة هى

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

الجزء الثانى

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

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

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

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

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

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

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

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

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

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

Range("BQ1:BS3").Select

Selection.ClearContents

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

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

MsgBox " "

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

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

[كلمة حلوة]

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

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

تقبل تحياتى