مساعة في تعديل كود ترحيل من اليوزرفورم إلى ورقة العمل

[عبدالفتاح محمد]

السلام عليكم 

تواجهني مشكلة في  نقل البيانات   هنا اريد ان اتناول جزئية من اليوزرفورم   حيث اريد  ترحيل بيانات اليوزرفورم  التي تبدا من ر.م الى الاجمالي  بحيث يتم ترحيل بيانات التيكست بوكس  والكومبوكس الى ورقة العمل بحيث يبدا المدى للخلايا من a23:g23     هنا  لقد تعمدت عدم ادراج صفوف  تحت المدى a23  بحيث  عندما  يتم ترحيل  البيانات التي اقوم بتعبئتها   يقوم بادراج  صف تحته مباشرة بنفس التنسيق بدون  وجود اي صفوف فارغة 

ارفق لكم الكود والملف 

Private Sub CommandButton1_Click()
 Dim lastRow As Integer
    
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row + 1
    æÑÞÉ4.Range(Cells(lastRow - 1, 1), Cells(lastRow - 1, 7)).Copy
    æÑÞÉ4.Cells(lastRow, 1).PasteSpecial Paste:=xlPasteFormats
    
    If lastRow < 23 Then lastRow = 23 'I added this line <------------

    Cells(lastRow, "A").Value = TextBox45.Value
    Cells(lastRow, "b").Value = ComboBox1.Value
    Cells(lastRow, "c").Value = ComboBox2.Value
    Cells(lastRow, "d").Value = ComboBox3.Value
    Cells(lastRow, "e").Value = TextBox14.Value
    Cells(lastRow, "f").Value = TextBox15.Value
    Cells(lastRow, "g").Value = TextBox16.Value
    

    'If you want to clear the objects after sending the info:
    ComboBox1.Value = ""
    ComboBox2.Value = ""
    ComboBox3.Value = ""
    TextBox14.Value = ""
    TextBox15.Value = ""
    TextBox16.Value = ""
    TextBox45.Value = ""
     end sub

 

of.xlsm