الترحيل الى اكثر من صف عن طريق الفورم

[a.kawkab]

السلام عليكم مطلوب ترحيل بيانات الخمسيين تكست بوكس مرة واحدة للشيت فى مدى مطاط من(a:e"& lr") بحيث يبدا من a2فى الادخال الاول ثم من(lr+1)فى الادخال التالى وهكذا بمعنى لو تم ملئ بيانات الخمسين تكست بوكس يكون ادخال البيانات فى الخلايا من (a2:e10)ثم من (a11:e20) وهكذا

Book101.xlsm

تم تعديل يناير 15, 2023 بواسطه a.kawkab

[a.kawkab]

السلام عليكم

تم التوصل الى الكود باقتباس من احد اعمال العلامة خبور

تم رفع الشيت بالكود للاستفادة وشكرا لكم

Private Sub CommandButton1_Click()
' أمر ترحيل بيانات
Dim LR As Long
Dim Adr As String
Dim r As Integer, c As Integer
'''''''''''''''''''''''''''''''
With Sh1
    LR = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
End With
''''''''''
For r = 1 To 10
    Adr = Cells(r, 1).Address(0, 0)
        For c = 1 To 5
            Adr = Cells(r, c).Address(0, 0)
            Sh1.Range("A" & LR).Cells(r, c).Value = Me.Controls(Adr).Value
        Next
Next
''''''
End Sub

 

Book101Add.xlsm