تكرار الترحيل

[Akram Galal]

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

تحية طيبة لجميع أعضاء المنتدى

اريد كود يقوم بترحيل البيان الذي سوف يتم كتابته في Textbox1 الي العمود B طبقاً للبيانات الموجودة في العمود A

بمعنى اذا كانت البيانات في العمود A حتى الخلية A5 يتم ترحيل محتويات Textbox1 في العمود B من الخلية B1 الي الخلية B5 وهكذا

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

ترحيل.rar

 

[ابراهيم الحداد]

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

استخدم هذا الكود

Private Sub CommandButton1_Click()
Dim ws As Worksheet, x As Integer
Dim L1 As Long, L2 As Long
Set ws = Sheets("Sheet1")
L1 = ws.Range("A" & Rows.Count).End(3).Row
L2 = ws.Range("B" & Rows.Count).End(3).Row
x = L1 - L2
If x = 0 Then Exit Sub
ws.Range("B" & L2 + 1).Resize(x) = Me.TextBox1.Value
End Sub

 

[Akram Galal]

جزاك الله كل الخير
كود خفيف وممتاز

أ/ / ابراهيم الحداد

من فضلك ممكن تشرح الكود

أ/ ابراهيم الحداد

اريد تطبيق نفس الفكرة ولكن في وجود Textbox1 و Textbox2

بمعني انه يقوم بترحيل البيانات الموجودة في Textbox1 الي العمود B

وترحيل البيانات الموجودة في Textbox2 الي العمود C

ترحيل 2.rar

[حسونة حسين]

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

اضف هذا السطر قبل end sub

ws.Range("C" & L2 + 1).Resize(x) = Me.TextBox2.Value

 

[Akram Galal]

L1 = ws.Range("A" & Rows.Count).End(3).Row
L2 = ws.Range("B" & Rows.Count).End(3).Row

 

ما المقصود بالرقم (3) بعد كلمة End

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

[حسونة حسين]

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

 

[Akram Galal]

في 10‏/12‏/2022 at 04:34, hassona229 said:

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

 

أ/ حسونة قراء الموضوع اعلاه ولم اجد ضالتي

ارجوا من حضرتك ومن السادة الأفاضل المساعدة في الأتي:

L1 = ws.Range("A" & Rows.Count).End(3).Row
L2 = ws.Range("B" & Rows.Count).End(3).Row

ما المقصود بالرقم (3) بعد كلمة End