Excel VBA質問箱 IV

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

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


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

23562 / 76732

←次へ　｜　前へ→


	【58536】Re:複数シートからの検索・抽出方法

ロシツキー - 08/10/29(水) 10:08 -


	引用なし

	パスワード

▼こぎつねさん：

早速のご回答ありがとうございます。

Aシート検索、Bシート検索と二つのボタンがあり、
ボタンを一つにして、Aシート、Bシート両方を検索して、
検索結果シートに抽出をしたいのですが、できませんか？
わからないのが情けないです。

各ボタンのマクロです。

Sub A検索()
　　
　　Range("C11:O65536").Select
　　Selection.Clear
　　
　　Dim check
　　check = Evaluate("countblank(C4:F4)")
　　
～検索シートの条件入力欄があります～
　　
　　Sheets("A").Range("A1:N65536").Cells.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
　　　　Range("A3:F5"), CopyToRange:=Range("C10:O10"), Unique:=False

　　Range(Cells(5, 1), Cells(5, 4)).Select
　　Selection.Clear
　　Range("C11").Select
　　
End Sub

1 hits

▼

【58532】複数シートからの検索・抽出方法 ロシツキー 08/10/29(水) 1:20