おしえて

VBA For文とIF文を組み合わせた処理

解決済

質問者：shishim
質問日時：2019/06/25 19:41
回答数：1件

代行倉庫へ出す「出荷指示書」からデータを取り出し、
別ブックの納品書フォーマットに転記し納品書を作成するマクロを作成しています。

具体的に行いたい内容は、
縦に作られた「出荷指示書」はA１１：L６９で構成されており、
商品別に卸60%（I列）卸40%(J列)に数量を入れる箇所があります。
数量が入っていれば納品書に転記というものです。
I列、J列ともに、If Cells(r, c).Value = "-" Then　Exit For　が反応するよう最後のセルに「ー」を入れています。
出荷する商品を全て摘出して１つの納品書にまとめます。

問題の箇所が、
for文とif文の組み合わせでI列を卸60%の計算、J列を卸40%計算で処理するところなのですが、
大まかな部分は完成したのですが、あと一歩上手く動作してくれません。

・J列まで処理してくれない。
・if条件でc=8としても　I列が卸40%計算で処理されてしまう。

が問題になっています。
どなたか、知恵をお貸しください。

For c = 8 To 9

For r = 11 To 1000

If Cells(r, c).Value = "-" Then
Exit For

ElseIf Cells(r, c).Value <> "" And c = 8 Then
転記処理　＋　卸60%の計算（ややこしいので省きます）

ElseIf Cells(r, c).Value <> "" And c = 9 Then
転記処理　＋　卸40%計算（ややこしいので省きます）

Else
End If

Next r

Next c

必要であれば、転記処理部分の補足します。
その他不明部分あれば教えて下さい。