برجاء المساعدة فى هذا الكود ... خاص بربط ما فى التيكيست بوكس بمجموعة بيانات

[Mohammad Shawkey]

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

عيد سعيد على الجميع ان شاء الله .. وكل عام وحضراتكم بخير

برجاء المساعدة فى اعطائى كود استطيع من خلالة ربط كل ما اقوم بكتابتة فى التيكست بوكس بمجموعة من البيانات فى ملف اخر ...

باختصار اريد عندما يظهر لى هذا اليوزر فورم واكتب داخل التيكست بوكس شىء ما واضغط على زر انتر تنتقل هذة البيانات لورقة رقم 1 عمود A صف رقم 1 واذا اردت اضافة قيمة اخرى تدخل فى نفس العمود A فى الصف الذى يلية وهو رقم 2 وهكذااا

مرفق لسيادتكم ملف للعمل من خلالة لمن ارد مساعدتى ...

اسم المستحدم : Ahmed

الرقم السرى : 123

بعد الضغط على انتر سوف تظهر اليوزر فورم المراد العمل من خلالها ..

وفقكم الله

Book1.rar

Book1.rar

[Mohammad Shawkey]

هل من مسااااااااعد؟؟

[رجب جاويش]

تفضل أخى

Book1.rar

[Mohammad Shawkey]

تفضل أخى

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

[رجب جاويش]

أخى الفاضل

السطر التالى

LR = Sheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row + 1

وظيفته ايجاد رقم الصف لأول خليه فارغة ( جاهزه لادخال بيانات ) فى sheet1 فى العمود الأول A السطر التالى

Sheets("sheet1").Cells(LR, 1).Value = UserForm2.TextBox1.Value

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

UserForm2.TextBox1.Value = ""

يقوم بمسح محتويات التكست بوكس بعد الادخال لاستقبال أى نص جديد

[Mohammad Shawkey]

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

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

End(xlUp).Row + 1 على سبيل المثال

ولحضرتك جزيل الشكر وبجد ربنا يوفقك ويكرمك

[رجب جاويش]

أخى الفاضل

أى معلومة أنا تعلمتها عن الأكواد كانت من هذا المنتدى وأساتذته الكرام

ولكى تبدأ بداية صحيحة عن الأكواد عليك بهذا الرابط

http://www.officena.net/ib/index.php?showtopic=39323

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

وكل عام وانتم بخير