[[20230918212532]]　『セルの値が変わったら実行したいマクロ』（れい）　ページの最後に飛ぶ

『セルの値が変わったら実行したいマクロ』（れい）

こんばんは。
お世話になります。

ネットで検索したこのコードを使って、
転記シートのz10セルの値が変更になったら実行する
ようにしたいと思ってます。
最初の部分を
Private Sub Worksheet_Change(ByVal Target As Range)
に変えて転記シートのモジュールに貼り付けてみましたが
うまく、作動しませんでした。
最初の部分を変える以外にどうしたらいいのか教えてください。

Private Sub Worksheet_Change(ByVal Target As Range)

'Sub オートフィルタ抽出データを別シートにコピー()

Dim Sh1 As Worksheet
Dim Sh2 As Worksheet

    'シートを変数へ格納
    Set Sh1 = Sheets("リスト")
    Set Sh2 = Sheets("転記")

    'フィルターでデータ抽出
    Sh1.Range("A1").CurrentRegion.AutoFilter _
        Field:=3, _
        Criteria1:="埼玉県"

    'フィルター抽出結果を別シートへ転記
    Sh1.Range("A1").CurrentRegion.Copy Sh2.Range("A1")

End Sub

＜使用 Excel：Microsoft365、使用 OS：unknown ＞

 こんな風にして、「転記」のシートモジュールにコピペする(標準モジュールではない。これ重要)

 Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Address(0, 0) <> "Z10" Then
         Exit Sub
     End If

     Dim Sh1 As Worksheet
     Dim Sh2 As Worksheet

     'シートを変数へ格納
     Set Sh1 = Sheets("リスト")
     Set Sh2 = Sheets("転記")
     'フィルターでデータ抽出
     Sh1.Range("A1").CurrentRegion.AutoFilter _
     Field:=3, _
     Criteria1:="埼玉県"

     'フィルター抽出結果を別シートへ転記
     Application.EnableEvents = False 'イベント発生を一時停止
     Sh1.Range("A1").CurrentRegion.Copy Sh2.Range("A1")
     Application.EnableEvents = True
 End Sub

（半平太） 2023/09/18(月) 22:14:43

半平太さん、ありがとです。
早速試してみます！

そうか、標準モジュールではないんですね。

（れい） 2023/09/19(火) 18:17:19

出来ました！！
ありがとございましたー！
（れい） 2023/09/20(水) 19:43:39

コメント返信：

[ 一覧(最新更新順) ]

[[20230918212532]] 『セルの値が変わったら実行したいマクロ』（れい） ページの最後に飛ぶ

[[20230918212532]]　『セルの値が変わったら実行したいマクロ』（れい）　ページの最後に飛ぶ