الاخوه المحترمين
ارجوا منكم ايضاح الخطأ في هذا الكود لكي نتعلم منكم .
وشكرا ،،،
()Private Sub cmdnext_click
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = "" Then
"MsgBox "last row
ActiveCell.Offset(-1, 0).Select
Exit Sub
Else
Call GetTextBoxData
Call getoptionbuttonvalue
Call getimag
End If
End Sub