اين الخطأ في هذا الكود ؟؟؟

[UNFOOAAN]

اخواني الاعزاء تحية طيبة لكم 

انا جديد على برمجة vba 

وبعد محاولات كثيرة صنعت فورم بالاعتماد على كثير من الشروحات 

كل شي تمام الا زر تعديل البيانات اين الخطأ الذي وقعت فيه ؟ 

علما ان التعديل يتم عند تنفيذ الامر فقط في العامود الاول A

Dim userindex As Long

userindex = Me.ListBox1.ListIndex
rownum = UserForm1.ListBox1.List(userindex, 0) + 1


If UserForm1.year.Value = "" Or UserForm1.folder.Value = "" Or UserForm1.issue.Value = "" Or UserForm1.ndate.Value = "" Or UserForm1.printed.Value = "" Or UserForm1.Section.Value = "" Or UserForm1.datet.Value = "" Or UserForm1.Articletitle.Value = "" Or UserForm1.keywords.Value = "" Or (UserForm1.Byes.Value = False And UserForm1.Bno.Value = False) Then
MsgBox "الرجاء ادخال كافة البيانات"

Else

lastrow = WorksheetFunction.CountA(Sheets("data").Range("A:A"))


Sheets("data").Cells(rownum, 2).Value = UserForm1.year.Value
Sheets("data").Cells(rownum, 3).Value = UserForm1.Month.Value
Sheets("data").Cells(rownum, 4).Value = UserForm1.folder.Value
Sheets("data").Cells(rownum, 5).Value = UserForm1.issue.Value
Sheets("data").Cells(rownum, 6).Value = UserForm1.ndate.Value
Sheets("data").Cells(rownum, 7).Value = UserForm1.pagenum.Value
Sheets("data").Cells(rownum, 8).Value = UserForm1.printed.Value
Sheets("data").Cells(rownum, 9).Value = UserForm1.Section.Value
Sheets("data").Cells(rownum, 10).Value = UserForm1.datet.Value
Sheets("data").Cells(rownum, 11).Value = UserForm1.Articletitle.Value
Sheets("data").Cells(rownum, 12).Value = UserForm1.Articletitle2.Value
Sheets("data").Cells(rownum, 13).Value = UserForm1.keywords.Value

If UserForm1.Byes = True Then
Sheets("data").Cells(rownum, 14).Value = "???"
Else
Sheets("data").Cells(rownum, 14).Value = "?C"
End If
Sheets("data").Cells(rownum, 15).Value = UserForm1.note.Value
End If

 

[أ / محمد صالح]

هذا كود زز التعديل تقريبا صحيح

ما المشكلة التي تواجهها؟ وما نص رسالة الخطا؟ وما سطر الخطأ؟

[UNFOOAAN]

 

 @أ / محمد صالح 

شكرا لك على الاستجابة اخي محمد 

لا يوجد خطأ 

لكن لا يتم تعديل البيانات الا "فقط في العامود الأول" 

باقي البيانات لا يحدث تغيير 

طبعا انا اعمل ترحيل للبيانات من خلال ضغط على الليست بوكس 

وعند الضغط على سطر على الليست بوكس يتم استعادة البيانات داخل التكست بوكس عندما اقوم بتعديل البيانات والحفظ يحصل التغيير فقط في العامود الأول باقي الاعمدة تبقى البيانات القديمة 

 

تم تعديل سبتمبر 14, 2023 بواسطه UNFOOAAN

[حسونة حسين]

السلام عليكم وبها نبدأ

ارفق ملف اخى @UNFOOAAN