ボタンに割り当てられたときのVBAの動作が異なります

Question

品質チェックシートを設定して、結果をデータの行として「データ」という別のシートに保存し、チェックシートのアーカイブバージョンを別のワークブック。 私はVBAの初心者ですが、私は仕事が必要なものを手に入れました。チェックシートに含まれているボタンにマクロを割り当てると、私の問題が発生します。私はボタンを押すと、間違ったシートをコピーし、マクロを手動で実行するときには基本的には何もしません。誰でも何か提案してもらえますか？

おかげ

私のコードは次のとおりです。

Sub SaveForm() 

' SaveForm Macro 
' Saves form data to the Data Sheet 

'Checks for completion of mandatory fields 

If IsEmpty(Range("b3").Value) = True Then 
    MsgBox "Please complete 'Agent Name' before saving" 
    Exit Sub 

ElseIf IsEmpty(Range("b4").Value) = True Then 
    MsgBox "Please complete 'Call ID' before saving" 
    Exit Sub 

ElseIf IsEmpty(Range("b5").Value) = True Then 
    MsgBox "Please complete 'Call Length' before saving" 
    Exit Sub 

ElseIf IsEmpty(Range("D3").Value) = True Then 
    MsgBox "Please complete 'Business Name' before saving" 
    Exit Sub 

ElseIf IsEmpty(Range("D4").Value) = True Then 
    MsgBox "Please complete 'Date of Call' before saving" 
    Exit Sub 

ElseIf IsEmpty(Range("D5").Value) = True Then 
    MsgBox "Please complete 'Time of Call' before saving" 
    Exit Sub 

ElseIf IsEmpty(Range("b7").Value) = True Then 
    MsgBox "Please complete 'Assessor Name' before saving" 
    Exit Sub 

ElseIf IsEmpty(Range("b8").Value) = True Then 
    MsgBox "Please complete 'Date of Assessment' before saving" 
    Exit Sub 


End If 

'Copies a range contained within the "Checksheet" and pastes 
'it into the next available row on the "Data" sheet 

'The reason it is in a straight row as opposed to sporadic cell 
'references is because I have set the sheet up this way for simplicity 

Range("M14:BP14").Copy 

Sheets("Data").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues 
ActiveWindow.ScrollRow = 1 
Workbooks("Call Feedback Form V0.42.xlsm").Sheets("Checksheet").Activate 

Call CopyRenameWorksheet 

Workbooks("Call Feedback Form V0.42.xlsm").Sheets("Checksheet").Activate 

End Sub 

。

Sub CopyRenameWorksheet() 

'This renames the worksheet based on cell references and archives to another workbook 

Dim ws As Worksheet 
Set wh = Worksheets(ActiveSheet.Name) 
ActiveSheet.Copy After:=Worksheets(Sheets.Count) 
If wh.Range("B3").Value <> "" Then 
ActiveSheet.Name = wh.Range("B3").Value & " " & Format(wh.Range("D4").Value, ("yymmdd")) & " " & wh.Range("B4").Value 
ActiveSheet.Move After:=Workbooks(_ 
"Archived Quality Forms.xlsx").Sheets(1) 

End If 

Answer 1

あなたの問題は、誤ったシートを参照していることが原因だと思います。別の用紙を使用する場合は、必ず完全に資格を取得するようにしてください。

私は

dim ws as worksheet 
set ws = Worksheets("Sheetname") 

で潜水を開始すると、あなたはws.range("A1")

のように、彼らは常に正しいシートに範囲を参照します。この方法であるとの範囲のすべてを変更することができます。

まず、コードを調べ、範囲への参照がすべてワークシートとそのワークシートの範囲を参照していることを確認します。

希望すると助かります！

Answer 2

あなたの問題は、あなたが明示的にyoureのがあまりにも言及何枚述べる必要があるコード

Range("M14:BP14").Copy 

のこの行です。 like：

ThisWorkbook.Sheets("Sheet1").Range("M14:BP14").Copy