a.kawkab قام بنشر يناير 15, 2023 مشاركة قام بنشر يناير 15, 2023 (معدل) السلام عليكم مطلوب ترحيل بيانات الخمسيين تكست بوكس مرة واحدة للشيت فى مدى مطاط من(a:e"& lr") بحيث يبدا من a2فى الادخال الاول ثم من(lr+1)فى الادخال التالى وهكذا بمعنى لو تم ملئ بيانات الخمسين تكست بوكس يكون ادخال البيانات فى الخلايا من (a2:e10)ثم من (a11:e20) وهكذا Book101.xlsm تم تعديل يناير 15, 2023 بواسطه a.kawkab رابط هذا التعليق شارك More sharing options...
أفضل إجابة a.kawkab قام بنشر يناير 15, 2023 الكاتب أفضل إجابة مشاركة قام بنشر يناير 15, 2023 السلام عليكم تم التوصل الى الكود باقتباس من احد اعمال العلامة خبور تم رفع الشيت بالكود للاستفادة وشكرا لكم 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 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها