Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

941 / 76735

←次へ　｜　前へ→


	【81454】For Next とオートフィルタ

やまちゃん - 20/8/12(水) 1:31 -


	引用なし

	パスワード

こんばんは。VBA初心者です。
詳しく教えていただけると助かります。

店舗別の発注書を自動作成したい。

Sheet1のセルA：Iの列には一定のフォーマット（全商品アイテム）があり、同一シート内のL：AGの列には店舗一覧とその店舗に対応した商品がO12：AG12以下の行に○、×、空白などの情報が入っています。

O9：AG9に記載している店舗コードを1店舗づつH6　に転記すると同時にオートフィルタ―で○だけを表示したら、最後に店舗コードに対応した店舗名がH7に記載されているので、その店舗名で保存。
これをAG列に記載の店舗コードまで19店舗分繰り返す。

For a = 14 To 32 Step 1　　

　
　　Sheets("Sheet1").Select
　
　　Range("H6").Value = Cells(9, a + 1)
　
　　Sheets("Sheet1").Range("$O$11:$AG$74").AutoFilter Field:=1, Criteria1:=○

　　　・
　　　・　（省略）
　　　・

Application.Dialogs(xlDialogSaveAs).Show Arg1:=Range("H7").Value
　　
　　　
　　Sheets("Sheet1").Range("$O$11:$AG$74").AutoFilter

Next a

ここからが質問です。

1.上記のように記述してみたところ、途中までは次々の店舗コードを呼んでくれるのですが、4～5店舗過ぎたあたりから次の店舗コードを読み取れなくなりました。
何故？どこがおかしいのでしょうか？

2.オートフィルタ―を列が1つずれる毎に同列のオートフィルタ―をかけ直したい。
Sheets("Sheet1").Range("$O$11:$AG$74").AutoFilter Field:=1, Criteria1:=○
この記述のAutoFilter Field:=1←この部分は一回ずつField:=2、Field:=3　…
なんてナンセンスですよね？
もっと画期的な方法があればご教授願います。

以上宜しくお願いします。

1 hits

▼

【81454】For Next とオートフィルタ やまちゃん 20/8/12(水) 1:31