บาง macro ไม่ทำงาน แก้ไขอย่างไรคะ

[paveekorn]

กำหนด macro ในปุ่ม "รับออเดอร์" ด้วย macro ClickInput แต่ Sub SaveCash ไม่ทำงาน
ในขณะที่ Sub อื่นๆ ทำงานปกติ และตอนกดเรียกใช้ macro SaveCash ก็ทำงานได้ปกติ
เป็นเพราะอะไร และต้องแก้ไขอย่างไรคะ

Form1.zip

(337.89 KiB) Not downloaded yet

Code: Select all

Sub SaveHistory()
On Error Resume Next
MyVar = [Source]
[Target] = MyVar
End Sub
Sub SaveCash()
    On Error Resume Next
    MyVar = [Source2]
    [Target2] = MyVar
End Sub
Sub InputDBF()
    On Error Resume Next
    MyVar = Range("inputrow")
    Range("inputcustomer") = MyVar
End Sub


Sub ResetIndexFML()
    On Error Resume Next
    Range("V4").Select
    Selection.Copy
    Range("B4").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("V5").Select
    Selection.Copy
    Range("B5").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("V6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("B6").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("B2:C3").Select
    Selection.ClearContents
    Range("B8:B13").Select
    Selection.ClearContents
    Range("C9:C13").Select
    Selection.ClearContents
    Range("B17:B19").Select
    Selection.ClearContents
    Range("B3").Select
End Sub

Sub ClickInput()
    ActiveSheet.Unprotect

    Call InputDBF
    Call SaveHistory
    Call SaveCash
    Call ResetIndexFML
    
    ActiveSheet.Protect
End Sub

[snasui]

แก้ Range Name Scope ให้เป็นระดับ Workbook ครับ

[paveekorn]

เปลี่ยนตรงช่องขอบเขตไม่ได้
ต้องลบอันเดิมออกแล้วเขียนสูตรใหม่เลยใช่ไหมคะ

[paveekorn]

ตอนนี้พิมพ์ชื่อสูตรใหม่เรียบร้อยแล้ว ใช้งานได้แล้วค่ะ
งมหาอยู่หลายวันว่าผิดพลาดตรงไหน ทั้งใน Google และ Youtube ก็ไม่มีคำตอบว่าต้องแก้ยังไง
ขอบพระคุณมากๆ เลยค่ะ