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

[الجموعي]

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

اقدم لكم هذا الفورم البسيط للترحيل في العمود A مثلا

وهذا بفضل أساتذتي الكرام في هذا الصرح العظيم

أكواد الترحيل

1

Dim ws As Worksheet
Dim lr As Long
'---------------------------------------------
Set ws = ThisWorkbook.Sheets(1)
'---------------------------------------------
lr = ws.Cells(Rows.Count, "A").End(xlUp).Row
ws.Cells(lr + 1, 1) = Me.TextBox1.Text
'---------------------------------------------

2

Dim ws As Worksheet
Dim lr As Long
'---------------------------------------------
Set ws = ThisWorkbook.Sheets(1)
'---------------------------------------------
lr = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1
ws.Cells(lr, 1) = Me.TextBox1.Text
'---------------------------------------------

3

Dim ws As Worksheet
Dim lr As Long
'---------------------------------------------
Set ws = ThisWorkbook.Sheets(1)
'---------------------------------------------
lr = Range("A65536").End(xlUp).Row
ws.Cells(lr + 1, 1) = Me.TextBox1.Text
'---------------------------------------------

4

Dim ws As Worksheet
Dim lr As Long
'---------------------------------------------
Set ws = ThisWorkbook.Sheets(1)
'---------------------------------------------
lr = Range("A65536").End(xlUp).Row + 1
ws.Cells(lr, 1) = Me.TextBox1.Text
'---------------------------------------------

5

Dim ws As Worksheet
Dim lr As Long
'---------------------------------------------
Set ws = ThisWorkbook.Sheets(1)
'---------------------------------------------
lr = ws.Cells(Rows.Count, 1).End(xlUp).Row - 1
ws.Cells(lr + 2, 1) = Me.TextBox1.Text

6

Dim ws As Worksheet
Dim lr As Long
'---------------------------------------------
Set ws = ThisWorkbook.Sheets(1)
'---------------------------------------------
lr = Cells(Rows.Count, "A").End(xlUp).Row - 1
ws.Cells(lr + 2, 1) = Me.TextBox1.Text
'---------------------------------------------

وفي الأخير ملف مع التجميعية اتمنى ان تفيدكم خاصة للمبتدئين

 

الترحيل من الفورم للشيت بعدة طرق.rar

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

روعة أخي الحبيب اجموعي

هو دا الشغل اللي بجد ..فيد واستفيد

بارك الله فيك وجزاك الله خير الجزاء

[الجموعي]

 

روعة أخي الحبيب اجموعي

هو دا الشغل اللي بجد ..فيد واستفيد

بارك الله فيك وجزاك الله خير الجزاء

 

أستاذي القدير منكم نستفيد

الله لا يحرمنا منكم

اذا فيه استاذي  أكواد أخرى ياريت تشاركنا بها

وبارك الله فيك وفي والديك

ربي يحفظك

[ابو تراب]

بارك الله فيك اخي الجموعي و جزاك الله خيرا عن كل حرف كتبت   

[الجموعي]

بارك الله فيك اخي الجموعي و جزاك الله خيرا عن كل حرف كتبت   

وفيك بارك الله استاذي وجزاك الله خيرا وأثبك الجنة

ودي وتقديري

[جلال الجمال_ابو أدهم]

اخى / الجموعى 
بارك الله فيك

[خزاني]

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

[أبو محمد عباس]

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

الاستاذ والاخ الجموعي الله يبارك فيك

عمل رائع جعله الله في ميزان حسناتكم

زادكم الله علما ومعرفة

وفقكم الله ورعاك