زر بأسم جديد وحفظ الجديد في الفورم عند التشغيل تظهر رسالة خطأ

[ولد الحجاز]

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

برنامج عبارة عن اضافة اسم بالجدول بالترتيب

يوجد مرفق

Book1.rar

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

جرب المرفق

Book1 (3).rar

[ولد الحجاز]

مشكور والله يا استاذ عبدالله

لقد اضفت تكست رقم 3

ووضعت هذا الكود اللي بالاسفل ولكن ظهر خطأ

Private Sub CommandButton1_Click()

If TextBox1.Text = "" Then

If TextBox3.Text = "" Then

MsgBox "íÑÌì ÇßãÇá ÇáÈíÇäÇÊ ", vbInformation, "ÈíÇäÇÊ ÛíÑ ßÇÝíÉ"

Exit Sub

Else

Cells([A1000].End(xlUp).Row + 1, 1) = TextBox2.Value

Cells([b1000].End(xlUp).Row + 1, 2) = TextBox1.Value

Cells([c1000].End(xlUp).Row + 1, 3) = TextBox3.Value

End If

Unload Me

End Sub

[ولد الحجاز]

<p>استاذ عبدالله وضعت فقط هذا الكود ونجحت</p>

<p> </p>

<p> </p>

<div>Cells([A1000].End(xlUp).Row + 1, 1) = TextBox2.Value</div>

<div> Cells([b1000].End(xlUp).Row + 1, 2) = TextBox1.Value</div>

<div> Cells([c1000].End(xlUp).Row + 1, 3) = TextBox3.Value</div>

<div>        </div>

<div>Unload Me</div>

<div> </div>

[ولد الحجاز]

استاذ عبدالله كيف يمكنني ان اضع كود التاريخ بدل من التسلسل

[ولد الحجاز]

استاذ عبدالله لقد نجحت في وضع التاريخ بدل من التسلسل

ولكن عندي مشكلة لم اتمكن من ايجاد الحل لها

وهي في الفورم اريد ان يبدا في الصف الرابع او الخامس عند الترحيل الى الورقة

[ولد الحجاز]

استاذ عبدالله

عند كتابة النص في تكست 1 وعدم كتابة النص النص في تكست 2 وعند الترحيل يتم ذلك في الخلية تكون احد الخلية فيها النص المرحل والاخرى تكون فارغة

ولكن عند كتابة نص جديد بعد الترحيل تنتقل الى الخلية الفارغة في الصف الاول والخلية الاخرى الى الصف الثاني

[الزير]

ضع مرفق لما وصلت اليه

[ولد الحجاز]

هذا المرفق

Book2.rar

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

استاذ عبدالله

عند كتابة النص في تكست 1 وعدم كتابة النص النص في تكست 2 وعند الترحيل يتم ذلك في الخلية تكون احد الخلية فيها النص المرحل والاخرى تكون فارغة

ولكن عند كتابة نص جديد بعد الترحيل تنتقل الى الخلية الفارغة في الصف الاول والخلية الاخرى الى الصف الثاني

هذا بسبب اختيار تحديد الصف الاخير الى نفس العمود

Cells([B1000].End(xlUp).Row + 1, 2) = TextBox1.Value

Cells([c1000].End(xlUp).Row + 1, 3) = TextBox3.Value

يمكنك تحديد العمود B فقط هكذا

Cells([B1000].End(xlUp).Row + 1, 2) = TextBox1.Value

Cells([B1000].End(xlUp).Row + 1, 3) = TextBox3.Value

[ولد الحجاز]

استاذ عبدالله مازالت الخلية الفارغة في الصف الاول تنتظر التعبيئة

المطلوب ان تاريخ امس يضل فارغ

وتاريخ اليوم تتم التعبيئة فيه وهكذا في بقية التواريخ وبقية الخلايا

ومشكور يا استاذ عبدالله بالتواصل معانا