Excel VBA質問箱 IV

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

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


47410 / 76732 ←次へ | 前へ→

【34279】Re:データの抽出
発言  福神漬  - 06/1/30(月) 16:04 -

引用なし
パスワード
   お世話になります。
ようやく、元表へのコードの設定ができました。
いろいろとお世話になりありがとうございました。
Statis さんに頂いた1番目と2番目のコードを組み合わせ、
下記のコードにしました。

ちゃんと、抽出はされますが、なぜか元表にはない日付を入れても
“抽出データはありません”のメッセージボックスが出てきません。

Else
     MsgBox "抽出データがありません。", vbInformation
このコードの設定場所がおかしいのでしょうか?
ご教授頂ければ幸いです。

Private Sub CommandButton1_Click()
Dim Da As Date, Da1 As Date
With Worksheets("元表")
  If IsDate(Me.TextBox1.Value) And IsDate(Me.TextBox2.Value) Then
   Da = Format(Me.TextBox1.Value, .Range("Q6").NumberFormat)
   Da1 = Format(Me.TextBox2.Value, .Range("Q6").NumberFormat)
   Worksheets("一覧表").Range("A6:AP65536").Clear
   If .AutoFilterMode = False Then
     .Rows(5).AutoFilter
   End If
   .Columns(6).AutoFilter Field:=17, Criteria1:=">=" & Da, Operator:=xlAnd, _
              Criteria2:="<=" & Da1
   If .Range("Q65536").End(xlUp).Row > 1 Then
     .AutoFilter.Range.Copy Worksheets("一覧表").Range("A5")
   Else
     MsgBox "抽出データがありません。", vbInformation
   End If
   .AutoFilterMode = False
  Else
   MsgBox "抽出日を確認", vbCritical
  End If
End With
End Sub
Private Sub CommandButton2_Click()
Unload UserForm1

End Sub

よろしくお願い致します。
0 hits

【33383】データの抽出 福神漬 06/1/10(火) 12:49 質問
【33385】Re:データの抽出 Jaka 06/1/10(火) 13:39 発言
【33387】Re:データの抽出 福神漬 06/1/10(火) 14:08 発言
【33386】Re:データの抽出 Statis 06/1/10(火) 13:45 発言
【33389】Re:データの抽出 福神漬 06/1/10(火) 14:13 発言
【33392】Re:データの抽出 Statis 06/1/10(火) 15:00 回答
【34111】Re:データの抽出 福神漬 06/1/26(木) 16:14 お礼
【34114】Re:データの抽出 福神漬 06/1/26(木) 16:43 質問
【34115】Re:データの抽出 Statis 06/1/26(木) 16:46 発言
【34134】Re:データの抽出 福神漬 06/1/27(金) 10:13 発言
【34136】Re:データの抽出 多分 06/1/27(金) 10:25 発言
【34140】Re:データの抽出 Statis 06/1/27(金) 10:47 発言
【34145】Re:データの抽出 福神漬 06/1/27(金) 12:18 質問
【34149】Re:データの抽出 Statis 06/1/27(金) 13:24 発言
【34162】Re:データの抽出 福神漬 06/1/27(金) 15:20 発言
【34164】Re:データの抽出 Statis 06/1/27(金) 15:33 発言
【34165】Re:データの抽出 福神漬 06/1/27(金) 15:58 発言
【34167】Re:データの抽出 Statis 06/1/27(金) 16:11 発言
【34211】Re:データの抽出 Hiro 06/1/28(土) 21:18 質問
【34265】Re:データの抽出 Statis 06/1/30(月) 9:56 回答
【34279】Re:データの抽出 福神漬 06/1/30(月) 16:04 発言
【34282】Re:データの抽出 Statis 06/1/30(月) 16:31 回答
【34284】Re:データの抽出 福神漬 06/1/30(月) 16:49 発言
【34286】Re:データの抽出 Statis 06/1/30(月) 17:12 回答
【34293】Re:データの抽出 Hiro 06/1/30(月) 21:12 質問
【34310】Re:データの抽出 Statis 06/1/31(火) 9:08 発言
【34333】Re:データの抽出 Hiro 06/1/31(火) 20:42 発言
【34313】Re:データの抽出 福神漬 06/1/31(火) 9:53 お礼
【34314】Re:データの抽出 Statis 06/1/31(火) 10:02 回答
【34315】Re:データの抽出 福神漬 06/1/31(火) 10:49 お礼

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