よねさんのWordとExcelの小部屋　なんでも掲示板

HOME HELP 新規作成 新着記事 ツリー表示 トピック表示 検索 過去ログ

■13486 / 親階層) 　エラー　400
□投稿者/ たけこ -(2020/12/14(Mon) 13:45:49)
    よねさん様

    すみません。

    またお世話になります。



    下記のコードを実行すると、×400のエラーが出ます。



    Sheets("抽出").Select

    Range("A1").Select

    の個所が間違っているのかと思いますが、間違いに気付けないでいます。

    教えていただけると助かります。



    よろしくお願いいたします。



    Sub 抽出()

    Dim S As Long, E As Long



    S = Range("Q1").Value2

    E = Range("S1").Value2



    With ActiveSheet.Range("A1").CurrentRegion.Range("A:N")

    .AutoFilter Field:=12, Criteria1:=">" & S, Operator:=xlAnd, Criteria2:="<=" & E

    .Copy Worksheets("抽出").Range("G2")

    End With









    If ActiveSheet.FilterMode = True Then



    ActiveSheet.ShowAllData



    End If



    Sheets("抽出").Select

    Range("A1").Select



    End Sub

記事引用 削除キー/

前の記事(元になった記事) 次の記事(この記事の返信)
親記事 →Re[1]: エラー　400 /よねさん
　
上記関連ツリー

Nomal エラー　400 / たけこ (20/12/14(Mon) 13:45) #13486 ←Now
└Nomal Re[1]: エラー　400 / よねさん (20/12/14(Mon) 15:21) #13487
  └Nomal Re[2]: エラー　400 / たけこ (20/12/14(Mon) 15:43) #13488
    └Nomal Re[3]: エラー　400 / よねさん (20/12/14(Mon) 16:13) #13491
      └Nomal Re[4]: エラー　400 / たけこ (20/12/14(Mon) 17:03) #13492

All 上記ツリーを一括表示 / 上記ツリーをトピック表示
　
上記の記事へ返信
Pass/

HOME HELP 新規作成 新着記事 ツリー表示 トピック表示 検索 過去ログ

- Child Tree -