商品管理のためにＶＢＡを利用しようとしているのですが、わからないことが多すぎでこまっています。
Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2007/12/1 ユーザー名 : 101
'
Dim meiend As Integer
Dim code As Integer
Sheets("商品名").Select
Range("A4").Select
Selection.End(xlDown).Select
meiend = Selection.Row()
For l = 4 To meiend Step 2
For r = 2 To 3
code = Cells(l, r).Value
Select Case code
Case 1 To 1999
sheet_neme = "1000"
Case 1 To 1999
sheet_neme = "2000"
Case 1 To 1999
sheet_neme = "3000"
Case 1 To 1999
sheet_neme = "4000"
Case 1 To 1999
sheet_neme = "5000"
End Select
Next
Next
End Sub
このように、商品番号がエクセル上の（Ｂ４、Ｂ５） （Ｃ４、Ｃ５）（Ｄ４，Ｄ５）（・・）（・・）
というようにきさいされているのですが、（この順序は変更できないようになっています）ＶＢＡを使い商品番号が１０００番台ならばシートの1000をセレクトし、２０００番台ならばシート2000をセレクトするＶＢＡを作りたいのですが、目的のシートに移動しません。
どなたか、お詳しい方教えていただけないでしょうか？
かってですが、基本的な構文は変更せずにどこに問題があってシート移動しないのか教えていただければありがたいです。
Select Caseは条件分岐をするだけです。
つまり、codeの変数と移動したいシート名を対応させているだけで、シートを選択する命令がありません。
この部分を
-----
End Select
Next
Next
-----
こうすれば動作すると思います。
-----
End Select
Sheets(sheet_neme).Select
Next
Next
-----
お礼
ありがとうございます！ うまく動きました。 助かりましたありがとうございます。 本日色々質問するかも知れませんが、もしお時間があればまた教えてください。