إستفسار بخصوص كود الترحيل من الفورم إلى الشيت

[عبد العزيز البسكري]

أعزائي أساتذتي الكرام .. السلام عليكم و رحمة الله و بركاته

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

كل ما أريده هو شرح ليس لكل الكود ..وإنما للأرقام المسؤولة بالكود على رقم الصف و العمود الأول لبداية إدخال البيانات..حسب الملفين ما هو موضع الرقم في الكود المسؤول عن الخلية باللون الأزرق في الملف 1 و 2

جزاكم الله خيرا و بارك الله فيكم أحبّائي مقدّمًا.

 

الملف.rar

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

أخي الفاضل عبد العزيز البسكري

'[Feuil1] تعيين قيمة للمتغير تساوي رقة العمل المسماة
Set ws = Worksheets("Feuil1")
'تحديد آخر صف به بيانات
'تعني عدد صفوف ورقة العمل بالكامل[Rows.Count]الجملة
'[C]الرقم 3 يمثل رقم العمود وهو هنا العمود الثالث أي العمود
'تعني الإراحة بمقدار 5 صفوف إلى أسفل بعد الوصول لآخر خلية بها بيانات[Offset]الجملة
iRow = ws.Cells(Rows.Count, 3).End(xlUp).Offset(5, 0).Row

تقبل تحياتي

[عبد العزيز البسكري]

أخي الفاضل عبد العزيز البسكري

'[Feuil1] تعيين قيمة للمتغير تساوي رقة العمل المسماة
Set ws = Worksheets("Feuil1")
'تحديد آخر صف به بيانات
'تعني عدد صفوف ورقة العمل بالكامل[Rows.Count]الجملة
'[C]الرقم 3 يمثل رقم العمود وهو هنا العمود الثالث أي العمود
'تعني الإراحة بمقدار 5 صفوف إلى أسفل بعد الوصول لآخر خلية بها بيانات[Offset]الجملة
iRow = ws.Cells(Rows.Count, 3).End(xlUp).Offset(5, 0).Row

تقبل تحياتي

بارك الله فيك أستاذي الغالي ياسر خليل على المساعدة و الشرح ..هل ممكن أستاذي الفاضل تطبيق هذا الكود على هذا الملف ولتكن الخلية الأولى لبداية الادخال H15 مثلا فقط لأفهم مواضع تغيير الأرقام الأولى بالكود ..

الفورم1.rar

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

أخي الكريم جرب الكود بهذا الشكل :

Private Sub CommandButton1_Click()
Dim iRow As Long
Dim ws As Worksheet
Dim T As Long

Set ws = Worksheets("Feuil1")
iRow = ws.Cells(Rows.Count, 8).End(xlUp).Row + 1

ws.Cells(iRow, 8).Value = Me.TextBox1.Value
ws.Cells(iRow, 9).Value = Me.TextBox2.Value
ws.Cells(iRow, 10).Value = Me.TextBox3.Value
ws.Cells(iRow, 11).Value = Me.TextBox4.Value
ws.Cells(iRow, 12).Value = Me.TextBox5.Value


Me.TextBox1 = ""
Me.TextBox2 = ""
Me.TextBox3 = ""
Me.TextBox4 = ""
Me.TextBox5 = ""


T = ws.Cells(Rows.Count, 8).End(xlUp).Row
TextBox1 = Val(Cells(T, 8)) + 1
Me.TextBox1.SetFocus
End Sub
Private Sub UserForm_activate()

Dim ws As Worksheet
Dim T As Long
Set ws = Worksheets("Feuil1")
T = ws.Cells(Rows.Count, 8).End(xlUp).Row
TextBox1 = Val(Cells(T, 8)) + 1
Me.TextBox2.SetFocus
End Sub

تقبل تحياتي

[عبد العزيز البسكري]

أخي الكريم جرب الكود بهذا الشكل :

Private Sub CommandButton1_Click()
Dim iRow As Long
Dim ws As Worksheet
Dim T As Long

Set ws = Worksheets("Feuil1")
iRow = ws.Cells(Rows.Count, 8).End(xlUp).Row + 1

ws.Cells(iRow, 8).Value = Me.TextBox1.Value
ws.Cells(iRow, 9).Value = Me.TextBox2.Value
ws.Cells(iRow, 10).Value = Me.TextBox3.Value
ws.Cells(iRow, 11).Value = Me.TextBox4.Value
ws.Cells(iRow, 12).Value = Me.TextBox5.Value


Me.TextBox1 = ""
Me.TextBox2 = ""
Me.TextBox3 = ""
Me.TextBox4 = ""
Me.TextBox5 = ""


T = ws.Cells(Rows.Count, 8).End(xlUp).Row
TextBox1 = Val(Cells(T, 8)) + 1
Me.TextBox1.SetFocus
End Sub
Private Sub UserForm_activate()

Dim ws As Worksheet
Dim T As Long
Set ws = Worksheets("Feuil1")
T = ws.Cells(Rows.Count, 8).End(xlUp).Row
TextBox1 = Val(Cells(T, 8)) + 1
Me.TextBox2.SetFocus
End Sub

تقبل تحياتي

بارك الله فيك أستاذي الفاضل ..جزاك الله خيرًا و زادها بميزان حسناتك ..كفيت و وفيت ..زادك الله من علمه و فضله يا ياسر يا خليل يا أبا البراء

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

الحمد لله أن تم المطلوب أخي الحبيب

ومشكور على اختيارك للمشاركة كأفضل إجابة ليظهر الموضوع منتهي

تقبل تحياتي