تجميع اكواد التكست بوكس في كود واحد لترحيل البيانات

[mra63]

ارجوا من الاساتذة الكرام اختصار عدد التكسات في كود واحد خاصة وانه لدي 30 تكست ومرشحة للزيادة وهذا الكود كمثال 

Dim Last As Integer
Last = Sheet4.Range("A100000").End(xlUp).Row + 1
Sheet4.Cells(Last, "A").Value = Me.TextBox2.Value
Sheet4.Cells(Last, "B").Value = Me.TextBox3.Value
Sheet4.Cells(Last, "C").Value = Me.TextBox4.Value
Sheet4.Cells(Last, "D").Value = Me.TextBox5.Value
Sheet4.Cells(Last, "E").Value = Me.TextBox6.Value
Sheet4.Cells(Last, "F").Value = Me.TextBox7.Value
Sheet4.Cells(Last, "G").Value = Me.TextBox8.Value

 

[lionheart]

Sub Test()
    Dim Last As Long, i As Long
    Last = Sheet4.Range("A100000").End(xlUp).Row + 1
    For i = 1 To 7
        Sheet4.Cells(Last, i).Value = Me.Controls("TextBox" & i + 1).Value
    Next i
End Sub

 

[mra63]

شكراً وبارك الله فيك . جعله الله في ميزان حسناتك . وزادك علماً ومعرفة .

[محمد يوسف ابو يوسف]

اخي  mra63

 

لماذا لا تعطي من ساعدك حقة

بألضغط علي افضل اجابه

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