اخواني الاعزاء تحية طيبة لكم
انا جديد على برمجة 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
