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ベストアンサー
- 回答日時:
こんばんは
CutCopyMode 中(貼り付け実行前)にActiveSheet.Unprotectを実行すると
CutCopyModeが解除されます
コピー前に実施するなどロジックを検討してください
ローカルで確認する方法、ステップインや
自動記録実施 でコピー後(ペースト前)に
シート保護などの処理を行い記録コードを見ると
Application.CutCopyMode = False が記録されます
シート上のコピー範囲も解除されている事で確認できます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAで、シート間の転記するコードをFOR~NEXTで教えてください。 9 2023/04/30 20:04
- Excel(エクセル) vba 「Nextに対するForが見当たりません」のエラーが発生する原因 1 2022/10/21 15:46
- Visual Basic(VBA) A列B列C列 3 2023/04/26 18:11
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) 抽出結果を別シートに貼り付ける 2 2022/07/09 22:59
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 他のシートからコピーする下記マクロで貼付け位置をWorksheets(1).Range("A3")の 8 2023/01/30 18:48
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) Sheet2からオートフィルターで売上日を抽出した件数をカウントし、その件数をSheet1のセルB1 2 2023/01/12 12:24
- Excel(エクセル) vba 転記するときの最終行について 2 2022/09/03 09:31
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
別のシートから値を取得するとき
-
同じ作業を複数のシートに実行...
-
VBAで大量のファイルをシート名...
-
【ExcelVBA】全シートのセルの...
-
Excel VBA 複数行を数の分だけ...
-
ブック名、シート名を他のモジ...
-
ユーザーフォームに入力したデ...
-
エクセルのマクロについて教え...
-
実行時エラー1004「Select メソ...
-
XL:BeforeDoubleClickが動かない
-
ExcelのVBAを使い、複数シート...
-
IFステートの中にWithステート...
-
【ExcelVBA】動的にボタン、ボ...
-
エクセルのマクロでアクティブ...
-
VBAで指定シート以外の選択
-
エクセルのシート名変更で重複...
-
実行時エラー'1004': WorkSheet...
-
セルの値によって、シート見出...
-
VBA ユーザーフォーム上のチェ...
-
Excel VBA マクロ 先頭行の固定...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のシートから値を取得するとき
-
ユーザーフォームに入力したデ...
-
【ExcelVBA】全シートのセルの...
-
同じ作業を複数のシートに実行...
-
Excelマクロのエラーを解決した...
-
excelのマクロで該当処理できな...
-
ExcelVBA シート名を複数セルか...
-
XL:BeforeDoubleClickが動かない
-
実行時エラー'1004': WorkSheet...
-
VBA 存在しないシートを選...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
ブック名、シート名を他のモジ...
-
ExcelのVBAのマクロで他のシー...
-
【Excel VBA】Worksheets().Act...
-
エクセルのシート名変更で重複...
-
特定の文字を含むシートだけマ...
-
シートが保護されている状態で...
-
Excel マクロについての相談
-
VBA 検索して一致したセル...
おすすめ情報