Userform is not working.

Hi!
Im trying to extract specific data between two dates into another sheet with userform. But I dont know what im doing wrong..
all help is welcome.


error.JPG

 Private Sub CommandButton1_Click()

Dim lrow As Long, i As Long, x As Date, y As Date, erow As Long

x = TextBox1
y = TextBox2

'Find the Last Row (data filled row) of Sheet1
lrow = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row

'start counting from row 2 to last row
For i = 2 To lrow
' here the date balue is converted as numeric value by multiplying with number 1
If Cells(i, 1) * 1 >= x * 1 Then
If Cells(i, 1) * 1 >= y * 1 Then

' here i,3(the column number where Artikel found
If Trim(Cells(i, 3)) = Trim(TextBox3.Text) Then

'if above conditions matched then select the matched range or entire row
Sheet1.Range(Cells(i, 1), Cells(i, 4)).Select
'to copy the selected row
Selection.Copy
'to make sheet2 active where we want to paste the selected row
Sheets("Sheet2").Activate
'to find the empty row from where the copide row of sheet1 to be pasted in sheet2
erow = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
'to activate or select the empty row of sheet2
ActiveSheet.Cells(erow, 1).Select
'to paste the copied row
ActiveSheet.Paste
'to deselect the copy and selected mode
Application.CutCopyMode = False
'for above the if we need 3 end if to close if conditions
End If
End If
End If
'finally to activate sheet1 for searching the mached data
Sheets("Sheet1").Activate
'now to continue for look until above matched found
Next i
End Sub

Code tags added by OP

Try this...

Private Sub CommandButton1_Click()
Dim sDt As Date, eDt As Date
sDt = TextBox1.Value: eDt = TextBox2.Value
With Sheet1.Cells(1).CurrentRegion
    .AutoFilter 1, Criteria1:=">=" & CDbl(sDt), Operator:=xlAnd, Criteria2:="<=" & CDbl(eDt)
    .Offset(1, 0).Copy Sheet2.Range("A" & Sheet2.Cells(Rows.Count, 1).End(xlUp).Row + 1)
    .AutoFilter
End With
End Sub

...................................................
Thanks.gif