Excel VBA質問箱 IV

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

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


44494 / 76735 ←次へ | 前へ→

【37257】メッセージボックスの出し方
質問  福神漬  - 06/4/27(木) 11:17 -

引用なし
パスワード
   昨日はありがとうございました。
オートフィルタの複数条件で抽出するコードを作りました。
抽出データがないときにメッセージボックスで"抽出データはありません"
と表示したいのですが、下のコードではメッセージボックスが出てきませんでした。
どこに入れればメッセージボックスは出てきますか?
ご教授下さい。
      
      If IsDate(Me.TextBox1.Value) And IsDate(Me.TextBox2.Value) Then
      Da1 = Format(Me.TextBox1.Value, .Range("BG6").NumberFormat)
      Da2 = Format(Me.TextBox2.Value, .Range("BG6").NumberFormat)
        If AutoFilterMode = False Then
          With .Range("M3:BG" & r2)
          .AutoFilter field:=47, Criteria1:=">=" & Da1, Operator:=xlAnd, _
          Criteria2:="<=" & Da2
          End With
          With .Range("M3:BG" & r2)
          .AutoFilter field:=1, Criteria1:="=保守*"
          End With
          .Range("B4:K" & r2).Copy
          With ThisWorkbook.Worksheets("保守期限一覧表").Range("B5")
          .PasteSpecial xlValues
          End With
          .Range("M4:W" & r2).Copy
          With ThisWorkbook.Worksheets("保守期限一覧表").Range("L5")
          .PasteSpecial xlValues
          End With
          .Range("AZ4:BU" & r2).Copy
          With ThisWorkbook.Worksheets("保守期限一覧表").Range("W5")
          .PasteSpecial xlValues
          End With
        End If
      Else
      MsgBox "抽出データはありません"
      End If

0 hits

【37257】メッセージボックスの出し方 福神漬 06/4/27(木) 11:17 質問
【37258】Re:メッセージボックスの出し方 Statis 06/4/27(木) 11:33 回答
【37260】Re:メッセージボックスの出し方 福神漬 06/4/27(木) 12:34 質問
【37261】Re:メッセージボックスの出し方 Statis 06/4/27(木) 12:58 回答
【37265】Re:メッセージボックスの出し方 福神漬 06/4/27(木) 13:41 質問
【37288】Re:メッセージボックスの出し方 Statis 06/4/28(金) 8:04 回答
【37300】Re:メッセージボックスの出し方 福神漬 06/4/28(金) 14:29 質問
【37303】Re:メッセージボックスの出し方 Statis 06/4/28(金) 14:45 回答
【37307】Re:メッセージボックスの出し方 福神漬 06/4/28(金) 15:39 質問
【37308】Re:メッセージボックスの出し方 Statis 06/4/28(金) 15:49 回答
【37259】Re:メッセージボックスの出し方 Kein 06/4/27(木) 11:40 回答
【37266】Re:メッセージボックスの出し方 福神漬 06/4/27(木) 13:43 お礼

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