マクロでキー入力

質問

いつもお世話になっています
データを偶数行（４～１４）のＫ列からＱ列に入力する為に下記のコードで処理できたのですが、このシートで別なマクロを実行すると、１行目のデータを扱う所でエラーになってしまいます。
イベントプロシ－ジャを使わずにModule1の中で入力処理をする方法とか、何か良い方法はないでしょうか？
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 17 Then
ActiveCell.Offset(1, -6).Select
Else: ActiveCell.Offset(-1, 1).Select
End If
End Sub
よろしくお願いします。

回答No.1

hana-hana3 · ベストアンサー

＞このシートで別なマクロを実行すると

どのようなマクロを動かしているのか解りませんが、そちらのマクロの最初と最後でイベントを制御すれば問題は起きないでしょう。

sub macro1
Application.EnableEvents = False
'処理
Application.EnableEvents = True
end sub

お礼

回答ありがとうございます。
おかげさまでうまくいきました。

回答No.2

fujillin

何が起きているのかは、ご質問文からでは不明ですが…
こうしてみたら、直ったりしませんか？

Private Sub Worksheet_Change(ByVal Target As Range)
　If Target.Column = 17 Then
　　Target.Offset(2, -6).Select
　Else
　　Target.Offset(0, 1).Select
　End If
End Sub

お礼

回答ありがとうございます
データ入力は"ENTER"でやりたい為に、このようにしてます