Excel VBA質問箱 IV

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

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


26360 / 76732 ←次へ | 前へ→

【55703】Re:Find検索からFindNext が作動できない
お礼  yukio  - 08/5/16(金) 11:10 -

引用なし
パスワード
   ▼kanabun さん:
    
> データ > フィルタオプションの設定(AdvancedFilter)
>の機能を利用すると思いますが?

AdvancedFilter 利用のご提案有難うございました。
初めて目にするフィルタオプションですので早速コードを作ってみました。
データの少ないサンプルでコードを作り動かしてみたら問題がなかったので、現在使っているファイルに利用したところ、項目だけが横に並ぶのですがデータが抽出されてきません。いろいろいじったのですが原因が掴めません。アドバイスをお願いいたします。
 Sub ADF抽出()
   Dim MaxRows As Long
   Dim y As Integer
  
    Worksheets("CD目録").Range("T1").Value = "種別"
    Worksheets("CD目録").Range("T2").Value = "交響曲"
    Worksheets("CD目録").Range("U1").Value = "作曲者名"
    Worksheets("CD目録").Range("U2").Value = "ハイドン"
  
   MaxRows = Sheets("CD目録").UsedRange.Rows.Count
   y = MaxRows
  
  Worksheets("仮抽出").Range("A:E").Clear

  Union(Range("E2:H2"), Range("K2")).Select
  Application.CutCopyMode = xlCut
  Selection.Copy
  Sheets("仮抽出").Select
  Range("A1").Select
  ActiveSheet.Paste
  
  Worksheets("CD目録").Range("C2:K" & y).AdvancedFilter _
     Action:=xlFilterCopy, _
     CriteriaRange:=Worksheets("CD目録").Range("T1:U2"), _
     CopyToRange:=Worksheets("仮抽出").Range("A1:E1"), _
     Unique:=False
 End Sub
   無理な注文なのかコードに間違いがあるのか分かりません。
   よろしくご指導のほどお願いします。

0 hits

【55513】Find検索からFindNext が作動できない yukio 08/5/9(金) 10:20 質問
【55517】Re:Find検索からFindNext が作動できない ひげくま 08/5/9(金) 10:50 回答
【55531】Re:Find検索からFindNext が作動できない yukio 08/5/9(金) 19:29 お礼
【55533】Re:Find検索からFindNext が作動できない kanabun 08/5/9(金) 19:46 発言
【55541】Re:Find検索からFindNext が作動できない yukio 08/5/10(土) 14:36 お礼
【55543】Re:Find検索からFindNext が作動できない kanabun 08/5/10(土) 15:31 発言
【55703】Re:Find検索からFindNext が作動できない yukio 08/5/16(金) 11:10 お礼
【55704】Re:Find検索からFindNext が作動できない kanabun 08/5/16(金) 11:29 発言
【55714】Re:Find検索からFindNext が作動できない kanabun 08/5/16(金) 15:41 発言
【55733】Re:Find検索からFindNext が作動できない yukio 08/5/17(土) 13:44 お礼
【55735】Re:Find検索からFindNext が作動できない kanabun 08/5/17(土) 13:50 発言
【55534】Re:Find検索からFindNext が作動できない ひげくま 08/5/9(金) 19:47 発言
【55542】Re:Find検索からFindNext が作動できない yukio 08/5/10(土) 15:00 お礼
【55591】Re:Find検索からFindNext が作動できない ひげくま 08/5/12(月) 14:37 回答
【55699】Re:Find検索からFindNext が作動できない yukio 08/5/16(金) 9:12 お礼
【55705】Re:Find検索からFindNext が作動できない テト 08/5/16(金) 11:43 発言
【55737】Re:Find検索からFindNext が作動できない yukio 08/5/17(土) 14:16 お礼

26360 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free