Excel VBA質問箱 IV

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

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


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

73538 / 76807

←次へ　｜　前へ→


	【7744】オートフィルタで検出した値を別シートに貼り付け

tamago - 03/9/16(火) 20:39 -


	引用なし

	パスワード

いつもお世話になります。

ブック調査
部品コード　　物質名　　含有の有無
1234　　　　　鉛　　　　　○
1234　　　　　金
1234　　　　　アンモニア　　　　

エクセルブック“調査”でオートフィルタを使って含有が○のものを抽出してその結果をまとめブックの最終行にはりつけたいのです。（抽出結果はその都度違います）自動記録を使うと下記のようなコードになりました。これの２個あるRangeのところをなおせばよいのだろうとはおもうのですが、どう直したらよいかわかりません。よろしくお願いします。

ActiveWindow.SmallScroll Down:=-21
　　Selection.AutoFilter
　　Selection.AutoFilter Field:=3, Criteria1:="○"
　　Range("A19:C19").Select
　　Selection.Copy
　　Windows("貼り付け.xls").Activate
　　ActiveWindow.SmallScroll Down:=-3
　　Range("A2").Select
　　ActiveSheet.Paste

1 hits

▼

【7744】オートフィルタで検出した値を別シートに貼り付け tamago 03/9/16(火) 20:39

≪