Excel VBAで質問です

sheet1のセルA1にa001またはa002
同じくsheet1のセルA1にb001またはb002
を入力した時に、

a001,a002だった場合sheet2へ
b001,b002だった場合sheet3へ
という形で入力したら自動的に行うものを作りたいのですが、初心者が故にうまく行きません

どうか教えてください!!

No.2 回答者： GooUserラック 回答日時： 2016/05/19 12:05

こんな感じでしょうか？

シートモジュールに
--------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

If Target = Range("A1") Then
Select Case Range("A1").Value
Case "a001", "a002"
Sheet2.Select
Case "b001", "b002"
Sheet3.Select
End Select
End If

End Sub
--------------------------------------------------------------

No.1 回答者： くんこば 回答日時： 2016/05/18 21:04

ワークシートのチェンジイベントに記述。

セルの一文字目が○の場合、sheet１へコピー、みたいな。