fayez_MrExcel
Active Member
- Joined
- Oct 29, 2005
- Messages
- 439
- Office Version
- 365
- Platform
- Windows
I don't know why my data is not sorting: I used ActiveX button named 'FilterBtn' to filter the data from sheet1 by date range...help please
Private Sub FilterBtn_Click()
Range([C8], [F65536].End(xlUp)).ClearContents
Dim Crit1 As String 'From date filter criterion
Dim Crit2 As String 'To date filter criterion
Crit1 = [E4].Text
Crit2 = [G4].Text
With Worksheets("Sheet1")
With .AutoFilter.Range
'Filter date range
.AutoFilter field:=1, Criteria1:=">=" & Crit1, _
Operator:=xlAnd, Criteria2:="<=" & Crit2
'Filter Status
.AutoFilter field:=2, Criteria1:=[E3]
End With
'Copy filtered range
.Range(.[A2], .[D65536].End(xlUp)).Copy
'Paste to Sheet2 (still the active worksheet)
[C8].PasteSpecial xlValues
End With
End Sub
Private Sub FilterBtn_Click()
Range([C8], [F65536].End(xlUp)).ClearContents
Dim Crit1 As String 'From date filter criterion
Dim Crit2 As String 'To date filter criterion
Crit1 = [E4].Text
Crit2 = [G4].Text
With Worksheets("Sheet1")
With .AutoFilter.Range
'Filter date range
.AutoFilter field:=1, Criteria1:=">=" & Crit1, _
Operator:=xlAnd, Criteria2:="<=" & Crit2
'Filter Status
.AutoFilter field:=2, Criteria1:=[E3]
End With
'Copy filtered range
.Range(.[A2], .[D65536].End(xlUp)).Copy
'Paste to Sheet2 (still the active worksheet)
[C8].PasteSpecial xlValues
End With
End Sub