[[20180523161551]]　『フィルターオプション』（ちくわ）　ページの最後に飛ぶ

『フィルターオプション』（ちくわ）

フィルターオプションで困っています。

詳細設定で指定した範囲にチェックを入れ、リスト範囲、検索条件範囲、抽出

範囲など入力しOK。

今まで、こちらのやり方で検索条件範囲に情報を入力しエンターを押すと

抽出範囲にデータが出てきていたのですが。

別のエクセルに同じ物を作ろうと同じように入力していますが

エンターを押しても反映されず、詳細設定で選択範囲内に入っている

チェックを指定した範囲にチェックしなおしOKを押すと反映されます。

何度やっても、うまくいきません。どうしてでしょうか？

＜使用 Excel：Excel2013、使用 OS：Windows8 ＞

 もともとフィルターオプションはダイアログでOKを押したときに実行され、その時に
 検索条件範囲に設定されている条件でデータを抜き出す。
 以前のブックにはマクロが組まれているということはないか？
（ねむねむ） 2018/05/23(水) 16:35

どこで確認したら良いのでしょうか？

（ちくわ） 2018/05/23(水) 16:39

 まずは以前のブックの拡張子はXLSMだろうか？
（ねむねむ） 2018/05/23(水) 17:00

 というか以前のブックを作った人に確認できないのだろうか？
（ねむねむ） 2018/05/23(水) 17:02

おっしゃる通り拡張子は両方とも.xlsmでした。

自分で作ったものか？人が作ってくれたものか？覚えていないので確認できません。

ごめんなさい。
（ちくわ） 2018/05/24(木) 09:46

 ではシートタブを右クリックしてコードの表示を選んで表示されたVBAエディタの画面で何か記入されていないだろうか？

（ねむねむ） 2018/05/24(木) 09:59

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$G$4" Then

  Range("G4").Select
    Range("D1:E2000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
        ("G3:G4"), CopyToRange:=Range("G6:H42"), Unique:=False
End If

End Sub

と表示されました
（ちくわ） 2018/05/24(木) 10:52

新しいシートに貼付け実行でできるようになりました。

本当に、ありがとうございました。助かりました。

又、ご縁がありましたらよろしくお願い致します。
（ちくわ） 2018/05/24(木) 10:54

コメント返信：

[ 一覧(最新更新順) ]

[[20180523161551]] 『フィルターオプション』（ちくわ） ページの最後に飛ぶ

[[20180523161551]]　『フィルターオプション』（ちくわ）　ページの最後に飛ぶ