อยากให้มันบันทึกได้ตลอดโดยไม่ต้องเช็คว่า DATA จะครบทุกช่องหรือไม่ครบก็บันทึกผ่านตลอดต้องแก้ตรงไหนครับ

[Artkitthana12]

Sub SaveData()
'
' SaveData Macro
'

ThisWorkbook.Activate

If Range("Check1") = 0 Then
MsgBox ("Non Save Data")
Exit Sub
Else
Application.ScreenUpdating = False

If Range("Check2") = 1 Then
MyVal2 = [Course_Input]
[Course_New] = MyVal2
End If

MyVal = [Input]
[Target] = MyVal

Application.Goto Reference:="Clear"
Selection.ClearContents
Range("G4").Select
Application.ScreenUpdating = True
MsgBox ("Data Saved Success")
End If
End Sub
Sub ClearData()
Application.Goto Reference:="Clear"
Selection.ClearContents
Range("G4").Select
End Sub

[Artkitthana12]

If Range("Check2") = 0 Then
MsgBox ("Non Save Data")
Exit Sub
Else
Application.ScreenUpdating = False

If Range("Check2") = 1 Then
MyVal2 = [Course_Input]
[Course_New] = MyVal2
End If

[logic]

ใช้ Tag เป็น Tag ปิดโค้ดด้วยตามกติกาข้อ 5 ครับ