Excelにて、ユーザーフォームで、日付けの範囲を指定し、検索しデーターを抽出し 別シートへ転記した

Excelにて、ユーザーフォームで、日付けの範囲を指定して、検索しデーターを抽出し
別シートへ転記したいのですが、VBAコードが分からず困っております。
お分かりになる方がおりましたら　ご教授願います。


＜やりたいこと＞
・ユーザーフォームで、日付けの範囲を指定して、検索しデーターを抽出して、
別シートへ転記したい。


ユーザーフォーム（UserForm6）内の
TextBox1の入力日付～TextBox2入力日付の範囲のデーターを
検索ボタン（CommandButton1）をクリックすると検索しデータを
抽出して、別シート（日付）へ転記したい。


◇入力データーは、A列からK列まであり、データーは、増減します。
・検索元シート名：日付検索　
・検索：日付検索シートB列
・転記先シート名：抽出
・ユーザーフォーム（UserForm6）
・範囲指定⇒「TextBox1」の入力日付～「TextBox2」入力日付
・「検索」ボタンは、オブジェクト名：CommandButton2

添付写真参照願います。
ユーザーフォームを表示した状態です。


御教授よろしくお願いいたします。

No.2 ベストアンサー 回答者： tom04 回答日時： 2020/03/25 09:21

こんにちは！

一例です。

Private Sub CommandButton2_Click()
　Dim i As Long
　Dim wS As Worksheet

　　Set wS = Worksheets("抽出")
　　　With Worksheets("日付検索")
　　　　For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
　　　　　If .Cells(i, "B") >= DateValue(TextBox1) And .Cells(i, "B") <= DateValue(TextBox2) Then
　　　　　　wS.Cells(Rows.Count, "A").End(xlUp).Offset(1).Resize(, 11).Value =.Cells(i, "A").Resize(, 11).Value
　　　　　End If
　　　　Next i
　　　End With
End Sub

こんな感じではどうでしょうか？

※　質問分では
＞検索ボタン（CommandButton1）をクリックすると
と
＞・「検索」ボタンは、オブジェクト名：CommandButton2
のようにどちらのコマンドボタンかが不明なので、コードの最初の1行は無視してもらっていいかも・・・

※　シート名などは再確認してください。m(_ _)m

この回答へのお礼

早々に、対応して頂きありがとうございます。
思い通りの結果となりました。
参考に、少しずつ勉強していきます。

誠にありがとうございました。

お礼日時：2020/03/25 11:43

No.1 回答者： iothes00 回答日時： 2020/03/25 08:57

マクロの記録で

一時セルに

（オート）フィルタオプション
をかけてみては

この回答へのお礼

アドバイスありがとうございました。

お礼日時：2020/03/25 11:44