|
▼Jaka さん:
>>下記で検索し
>何を検索しているのかわかりませんでした。
>>Do While zaico = " " Or zaico > 0
>の条件もあまりわかりませんでした。
>全体的に内容が解っていませんが、こういうことなのでしょうか?
>
>with ThisWorkbook.Worksheets(3)
> i = 139
>
> '↓条件がわかってないのでそのまま使用
> Do While .Cells(i, 14).Value = " " Or .Cells(i, 14).Value > 0
> i = i + 1
> Loop
> .Range(.Cells(139, 14),.Cells(i, 14)).select 'copy
>end with
返答ありがとうございます。
私の説明が足らなかったようですみません。
表の詳細を説明致します。
全ての項目を入れると入りきらないので簡略しています。
月末に翌月に繰り越される在庫を翌月シートにコピーしたいのです。
(在庫数のみに限らず各項目の検査日、ロット、生産枚数等も含め)
検査日 ロット 生産枚数 出荷先 出荷枚数 在庫数 出荷日
5/25 5-21-1s 4000 大阪 2000 5000 5/28
京都 3000 2000 5/28
東京 2000 0 5/29
5/25 5-21-2s 3000 熊本 1000 2000 5/29
大阪 2000 0 5/30
5/26 5-24-2s 2000 - - 2000 -
5/27 5-25-1s 3000 - - 5000 -
5/28 5-26-2s 4000 - - 9000 -
ロット(5-21-1sは5月21日の昼勤)の早い順に出荷します。
その為、在庫数を最初の行より検索をした場合、0と0以上の数が
混在する為、検索が困難でした。
そこで、在庫数の最終行(空白セルも含め)より、上に向って検索を
はじめれば在庫数0の手前で止まり、その止まったセルを基準に
その行より下をコピーしようと考えました。
上記表の場合、5-24-2sの行より下をコピーすることになります。
表現力が乏しいので、わかって頂けたか解りませんがよろしくお願い
致します。
|
|