عندي مشكلة في كود التعديل في الوارد
اذ عدلت يسحب لليمين كل البيانات مثلا
هنا رقم الوارد 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 من جهاز الكمبيوتر