vba シートコピーの不具合

ws_tdata.Select
gyo = 3
gyo1 = 3
count = 1
mm = ws_tdata.Cells(gyo, 2).Value
Do Until Cells(gyo, 2).Value = ""
If mm = ws_tdata.Cells(gyo, 2).Value Then
count = count + 1
Else
ws_tdata.Select
Cells(gyo1, 1).Resize(count - 1, 11).Select
Selection.Copy
Sheets(mm & " 月").Select
ActiveSheet.Unprotect
Sheets(mm & " 月").Select
Sheets(mm & " 月").Cells(3, 1).Resize(count - 1, 11).Select
Selection.PasteSpecial　←
Application.CutCopyMode = False
ActiveSheet.Protect　
count = 1
gyo1 = gyo
End If
ws_tdata.Select
mm = ws_tdata.Cells(gyo, 2).Value
gyo = gyo + 1
Loop

ws_tdataのシート　の　Cells(gyo1, 1).Resize(count - 1, 11)を　Sheets(mm & " 月") のシートの
Cells(3, 1).Resize(count - 1, 11)　へコピーしようとしているのですが　←の行でエラーとなってしまいます。アクティヴシートも明記していると思うのですが不適合箇所をご指摘お願いします。
よろしくお願いいたします。

No.1 ベストアンサー 回答者： Qchan1962 回答日時： 2022/06/25 18:15

こんばんは

CutCopyMode 中（貼り付け実行前）にActiveSheet.Unprotectを実行すると
CutCopyModeが解除されます

コピー前に実施するなどロジックを検討してください

ローカルで確認する方法、ステップインや
自動記録実施　でコピー後（ペースト前）に
　シート保護などの処理を行い記録コードを見ると
Application.CutCopyMode = False　が記録されます
シート上のコピー範囲も解除されている事で確認できます。

この回答へのお礼

ご回答ありがとうございます。
解決致しました。
今後共よろしくお願いします。

お礼日時：2022/06/25 18:30