Excel VBA質問箱 IV

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

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


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

21106 / 76738

←次へ　｜　前へ→


	【61037】Re:オートフィルタ抽出したデータをコピーしたい

aribaba - 09/4/5(日) 10:31 -


	引用なし

	パスワード

>ありがとうございます。一応自動記録しましたが、このような > Sheets("出荷明細_データベース）").Select >　　ActiveWindow.SmallScroll Down:=-6 >　　ActiveSheet.Range("$A$1:$R$1552").AutoFilter Field:=12, Criteria1:="2" >　　Range("A2:L300").Select >　　Selection.Copy >　　Sheets("加工").Select >　　Range("A2").Select >　　ActiveSheet.Paste >　　Sheets("出荷明細_データベース）").Select >　　ActiveSheet.Range("$A$1:$R$1552").AutoFilter Field:=12, Criteria1:="3" >　　Range("A2:L300").Select >　　Application.CutCopyMode = False >　　Selection.Copy >　　Sheets("加工").Select >　　Range("A14").Select >　　ActiveSheet.Paste >　　Range("A24").Select >　　ActiveSheet.Paste >　　Sheets("出荷明細_データベース）").Select >　　ActiveSheet.Range("$A$1:$R$1552").AutoFilter Field:=12, Criteria1:="4" >　　Application.CutCopyMode = False >　　Range("A2:L300").Select >　　Selection.Copy >　　Sheets("加工").Select >　　Range("A34").Select >　　ActiveSheet.Paste >　　Range("A44").Select >　　ActiveSheet.Paste >　　ActiveWindow.SmallScroll Down:=12 >　　Range("A54").Select >　　ActiveSheet.Paste >　　ActiveWindow.SmallScroll Down:=12 >　　Range("A64").Select >　　ActiveWindow.SmallScroll Down:=-57 すみませんが、枚数4の数字ない時は、そのままA2:L300のデータをコピーされます。これはちょっと困る。枚数の数字はない時飛ばして、ある数字に対して、コピーしたいです、いい方法教えていただきませんか？