倉庫の管理で困っています

質問

• 無謀な試み？倉庫の商品管理をエクセルで行っているが、問題が発生している。入庫に関しての質問。
• VBAを使って入庫操作を自動化したい。具体的には、Sheet1に入力した商品をSheet2の倉庫に配置したい。
• 具体的な操作手順や問題点についてアドバイスを求めている。範囲指定や条件分岐、商品の移動などを考慮する必要がある。

回答No.7

TAKA_R · ベストアンサー

あまり変なものは使っていないので（基本的なものばかり）バージョンによるエラーは起こりづらいだろうなと思っています。
むしろシートやセルの名前が違うとか（完全一致しないと半角全角スペースの有無の違いでもだめ）、データ型が違うとかのようなエラーは起こっているかもしれません。
シート名の箇所をわかりやすく（というかそのまま使えるように）して、お隣の列に移るようにしてみました。
ちなみに全くスピードは追求しておりません。

Sub 入庫()
Dim l As Long 'コースの列場所
Dim d As Long '段積み数
Dim s As Long 'シートを確定するための変数
Dim k As Long, c As Long, j As Long, t As Long, n As Long '計算のための変数
Dim data As Variant
Dim ws As Worksheet
data = Sheets("Sheet1").Range("a1:g" & Range("a1000").End(xlUp).Row)
For j = 2 To UBound(data) 'シート1の行分だけ繰り返す
s = (Int(Val(data(j, 7) - 1) / 10) + 1) * 10
Set ws = Sheets(CStr(s - 9) & "-" & CStr(s))　
’新しい約束事でのシート名。存在しないとエラーに
l = ((Val(data(j, 7)) - 1) Mod 10) * 5 + 2
Select Case data(j, 5)
Case "中"
d = 3
Case "小" 'パレット種による場合わけ
d = 5
End Select
c = data(j, 6) 'ループで書き込むたびにパレット数を減らす
k = 2 '書き始めの行位置
Do
If ws.Cells(k, l).Value = "" Then '記入があるか確認して
t = d
If c < d Then t = c 'ｔはコピペする行数
For n = 1 To 4
ws.Range(ws.Cells(k, l + n - 1), ws.Cells(k + t - 1, l + n -1)) = data(j, n)
Next
c = c - d '残りのパレット数
End If
If c <= 0 Then Exit Do 'パレット残数が０になったらループを抜ける
k = k + 6
if k>91 then '91行目を超えると次のコースの頭に移る
k=2
l=l+5
end if
Loop
Next
End Sub

お礼

動きました！
ありがとうございました。
解決というわけではありませんが、参考にさせていただいて、もっと深めていこうと思います。
なんとか、仕事が軽減できればいいのですが・・・
ありがとうございました。