ترحيل بيانات فورمة إلي ورقة عمل

[Akram Galal]

السادة الأفاضل/

ارسل لكم أجمل وأرق تحية .

أرجو منكم ترحيل البيانات التي تظهر في الفورمة الموجودة في ورقة 1 إلي ورقة 2 في الخلية المناسبة

ولكم منا كل الإحترام والتقدير .

وإليكم المرفقات

كارنية.rar

[أبو أنس حاجب]

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

أخي الفاضل حفظك الله

ضع هذه الأسطر في زر ترحيل البيانات لعله المطلوب

Sheets("ورقة2").[b3].Value = TextBox2.Value

Sheets("ورقة2").[f3].Value = TextBox3.Value

Sheets("ورقة2").[d4].Value = TextBox4.Value

Sheets("ورقة2").[b5].Value = TextBox5.Value

Sheets("ورقة2").[b4].Value = ComboBox1.Value

أبو أنس

تم تعديل يوليو 6, 2012 بواسطه أبو أنس حاجب

[Akram Galal]

أستاذي أبو أنس

مجهود رائع

مشكورين علي هذا الحل الجميل

وزادكم الله من علمه وفضله

وجعلكم الله سبباً في إسعاد الناس

ولكم كل الشكر والتقدير .

ولكنني أطمع في طلب أخر إذا سمح وقتكم

هل ممكن الذهاب إلي ورقة2 بعد الضغط علي زر ترحيل البيانات

تم تعديل يوليو 6, 2012 بواسطه Akram Galal

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

ولكنني أطمع في طلب أخر إذا سمح وقتكم

هل ممكن الذهاب إلي ورقة2 بعد الضغط علي زر ترحيل البيانات

سيصبح الكود هكذا

Private Sub CommandButton2_Click()

Sheets("ورقة2").[b3].Value = TextBox2.Value

Sheets("ورقة2").[f3].Value = TextBox3.Value

Sheets("ورقة2").[d4].Value = TextBox4.Value

Sheets("ورقة2").[b5].Value = TextBox5.Value

Sheets("ورقة2").[b4].Value = ComboBox1.Value

Unload Me

Sheets("ورقة2").Select

End Sub

[Akram Galal]

معلمنا الكبير الأستاذ عبد الله

أنا في غاية الشكر لكم علي سرعة ردكم علي

والف الف الف الف شكر علي المجهود الكبير

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

تم تعديل يوليو 6, 2012 بواسطه Akram Galal