User Form For Dates

[longytravel]

I have the following code (kindly produced by Weaver)

I want to design a user form (userform2) that has two text boxes to add two dates - i want to pull the information from those two dates

How do i get the dates inputted by the user into the code?

As ever - grateful for your views

Sub Macro1()
    date1 = "01 jan 2010"
    date2 = "01 jan 2011"
    With Sheets("data")
        lr = .Cells(Rows.Count, "B").End(xlUp).Row
        With .Range("B1")
            .AutoFilter
            .AutoFilter Field:=2, Criteria1:=">=" & date1, Operator:=xlAnd _
            , Criteria2:="<=" & date2
        End With
        .Range("B1:B" & lr).EntireRow.Copy Sheets("reports").Range("A1")
    End With
End Sub

 

[Comfy]

Sub Macro1()
    date1 = Me.TextBox1.Text
    date2 = Me.TextBox2.Text
    With Sheets("data")
        lr = .Cells(Rows.Count, "B").End(xlUp).Row
        With .Range("B1")
            .AutoFilter
            .AutoFilter Field:=2, Criteria1:=">=" & date1, Operator:=xlAnd _
            , Criteria2:="<=" & date2
        End With
        .Range("B1:B" & lr).EntireRow.Copy Sheets("reports").Range("A1")
    End With
End Sub

You should probably put in some validation though.

 

[longytravel]

Top stuff. Thank you.

I already have another userform with those text box names - can i just change the name to a text box number i dont have in use?

I'm new to all this so apoliogies for the stupid questions - how would validate all this?

Cheers

 

[Comfy]

Yeah you can change the Textbox names in the code.

This is one way to validate the Dates:

Private Sub TextBox1_AfterUpdate()
If Not IsDate(Me.TextBox1.Value) Then
    Me.TextBox1.Text = ""
    MsgBox "please type a valid date!"
    Exit Sub
End If
End Sub
Private Sub TextBox2_AfterUpdate()
If Not IsDate(Me.TextBox2.Value) Then
    Me.TextBox2.Text = ""
    MsgBox "please type a valid date!"
    Exit Sub
End If
End Sub

02/08/2011 would be ok.
02.08.2011 would not.