طلب1 مساعدة في يوزرفورم

[محمود الطحاوي]

السلام عليكم ورحمة الله وبركاته تحيه الاسلام وبها نبدأ اي موضوع

اليوزرفورم لا يقوم بترحيل البيانات الى الشيت برغم كتابة الكود

تجربة يوزرفورم.xlsm

[محمود الطحاوي]

عفوا .. سهوت من ضغط شغل فقط فكتبت المضمون مباشرة

[عبدالفتاح في بي اكسيل]

اول شيء  الورقة المشار  اليها   في  الكود  لا يطابق  مع  ما  تريده  اذا  كنت  تريدة  في  الورقة  النشطة  عند  فتح  الملف 

ثانيا  الكود  لن  يقوم  الا  بالنسخ في  الصف  الثاني  ومكرر ارقام  التيكست  بوكس 

بمعنى  اخر  الكود  فوضوي  لابعد  الحدود !!

جرب  هذا  الشيء  مع  التاكد  من  اسم  الشيت  عند  الترحيل 

Private Sub CommandButton1_Click()
Dim lr As Long, SH As Worksheet
Set SH = Worksheets("sheet1")
lr = SH.Cells(Rows.Count, 1).End(xlUp).Row
With SH
.Range("A" & lr + 1) = TextBox1.Value
.Range("B" & lr + 1) = TextBox2.Value
.Range("C" & lr + 1) = TextBox3.Value
.Range("D" & lr + 1) = TextBox4.Value
.Range("E" & lr + 1) = TextBox5.Value
.Range("F" & lr + 1) = TextBox6.Value
.Range("G" & lr + 1) = TextBox7.Value
.Range("H" & lr + 1) = TextBox8.Value
End With
End Sub

 

تم تعديل ديسمبر 20, 2022 بواسطه عبدالفتاح في بي اكسيل

[محمود الطحاوي]

تمام جزاك الله خيرا

ولكن اريد ان يكون الادخال في الخانة الاخيرة وليست الاولى .. هل ممكن؟

[عبدالفتاح في بي اكسيل]

8 دقائق مضت, محمود الطحاوي said:

ولكن اريد ان يكون الادخال في الخانة الاخيرة وليست الاولى .. هل ممكن؟

لم افهم اي  شيء مما تقوله !

[محمود الطحاوي]

ان يكون المعلومات المدرجة في اليوزرفورم توضع في الصف الأخير للشيت وكل ادخال يتم في الصف التالي ، بدلا من ان يكون الإدخال الجديد في الصف الأول

[عبدالفتاح في بي اكسيل]

اقتباس

ان يكون المعلومات المدرجة في اليوزرفورم توضع في الصف الأخير للشيت وكل ادخال يتم في الصف التالي ، بدلا من ان يكون الإدخال الجديد في الصف الأول

 

اقرا  الكود  جيدا  هذا  ما  يفعله بالضبط 

[محمود الطحاوي]

جربت الكود ووجدته يضيف المعلومات الجديدة في أول الشيت 

تم تعديل ديسمبر 20, 2022 بواسطه محمود الطحاوي

[محمود الطحاوي]

تمام ظبط .. بارك الله فيك 

[محمود الطحاوي]

واذا كان المفروض اعمل الطلب في موضوع منفصل انا مستعد لكن لم افعل لعدم عمل زحام في الموضوعات

تم تعديل ديسمبر 29, 2022 بواسطه محمود الطحاوي

[حسونة حسين]

اخي محمود

تم فصل المشاركه فعلا في موضوع جديد 

كل طلب يكون في موضوع منفصل