طلب كود خاص لادخال البيانات ( رجاء المساعدة )

[mmtronic]

الاخوة الكرام

كل ما اريدة كود لكى يقوم بنقل البيانات من الـ text box الموجود بالفورم الى الخلية A1 فاذا وجدها مشغولة او بها بيانات انتقل الى الخلية A2 فاذا وجدها مشغولة انتقل الى الخلية A3 و هكذا الى اخر النطاق من A1 الى A10 حتى يضع البيانات فى خلية فارغة

و لكم جزيل الشكر وو التقدير

test.rar

[طارق محمود]

السلام عليكم

أخي الفاضل

تفضل المرفق

test2.rar

[ابو اسامة العينبوسي]

السلام عليكم

اخى طارق

دخلت الى المشاركة وانشغلت كثيرا لكن كنت احب ان اشارك لانى منذ فترة لم اشارك

Dim MyTarget As Integer

MyTarget = Range("a100").End(xlUp).Row + 1

  Cells(MyTarget, "A") = Val(Me.TextBox1)

test2.rar

[طارق محمود]

ياأهلا ثم أهلا

نورت يا أبوأسامة

أنا لازم أترك الآن

إذا حضر الماء

السلام عليكم

[mmtronic]

شاكر افضالك و بارك الله لك

و هو المطلوب تماما لاستكمال ما اريدة

[mmtronic]

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

[ياسر خليل أبو البراء]

تسلم الأيادي والأرجل وكل عضو في أعضاء جسديكما وفي كل عضو بالمنتدى.....

فأعضاء هذا الصرح ما هم إلا أجزاء في جسدٍ صلب وثابت وراسخ

إلى الأمام يا أوفيسنا

إلى الأمام

أبو البراء عضو صغير في الجسد الشامخ