مشكلة كود التعديل

[علي عاي]

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

اذ عدلت يسحب لليمين كل البيانات مثلا 

هنا رقم الوارد 170 اذ عدلته لرقم اخر يروح على اليمن 

الان عدلت 170 إلى 2020/1 راح على اليمن وصار مكان 170 - 180

اذ عدلت في كل الصف يتلخبط 

الكود المستخدم 

 

Private Sub CommandButton2_Click()
'ايقونة تعديل بعد تحديد الجزء الموارد تعدله
    On Error Resume Next
    ii = 4
    For I = 0 To Me.ListBox1.ColumnCount
        Me.ListBox1.List(ListBox1.ListIndex, I) = Me.Controls("TextBox" & ii).Value
        ii = ii + 1
    Next
    With Sheets("incoming mail")
      .Cells(TextBox4, 10).Value = TextBox4.Text
        .Cells(TextBox4, 9).Value = TextBox5.Text
        .Cells(TextBox4, 8).Value = TextBox6.Text
        .Cells(TextBox4, 7).Value = TextBox7.Text
        .Cells(TextBox4, 6).Value = TextBox8.Text
        .Cells(TextBox4, 5).Value = TextBox9.Text
        .Cells(TextBox4, 4).Value = TextBox10.Text
        .Cells(TextBox4, 3).Value = TextBox11.Text
        .Cells(TextBox4, 2).Value = TextBox12.Text
        .Cells(TextBox4, 1).Value = TextBox13.Text
    End With
    MsgBox "تم تعديل بنجاح"
End Sub

الرقم السري 1234

والرقم السري الثاني 1987

وهل ممكن طريقة اضافة ملف PDF من جهاز الكمبيوتر 

 

 

[علي عاي]

شاكر لكم تم حل المشكلة في التعديل