SaveData เมื่อบันทึกเสร็จ ไม่อยากให้มันเช็ค เซลล์ ต้องตัดตัวไหนออกยังไงครับ

[SuminO]

If Range("Check1") = 0 Then
MsgBox ("Reccord No!!!!")
Exit Sub

Code: Select all

Sub SaveData()
ThisWorkbook.Activate
If Range("Check1") = 0 Then
    MsgBox ("Reccord No!!!!")
    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")
End If
End Sub

[Xcelvba]

ควรแนบไฟล์มาถามตอบทุกครั้ง เพื่อง่ายต่อการตอบคำถาม ของเพื่อนสมาชิกครับ