Loss1003
03-28-2016, 11:24 AM
Having trouble fixing the attached userform/code to search by a date format.
I can search fine by the Account Name, Number, Department or Requestor. However, I cannot search by the report order date. The code I’m currently appears to be failing to pick up the date format. I’ve tried switching to general formats or setting the format (date) after exiting the OrderD1 comb box. But nothing has worked. Any help is appreciated
If OrderDAnd.Value = True Then
If OrderD1.ListIndex > -1 Then .Range("H4") = "=" & """" & OrderD1.Value & """"
If OrderD2.ListIndex > -1 Then .Range("I4") = "=" & """" & OrderD2.Value & """"
Else 'It's or
If OrderD1.ListIndex > -1 Then .Range("H4") = "=" & """" & OrderD1.Value & """"
If OrderD2.ListIndex > -1 Then .Range("H5") = "=" & """" & OrderD2.Value & """"
End If
.Range("D1", .Range("D65536").End(xlUp)).AdvancedFilter _
Action:=xlFilterCopy, CriteriaRange:="", CopyToRange:=Sheet6.Range("BA1"), Unique:=True
Sheet6.Range("BA1").CurrentRegion.Offset(1, 0).Name = "OrderDat1"
Range("OrderDat1").Sort Key1:=Range("OrderDat1").Cells(1, 1), Order1:=xlDescending, Header:=xlNo
OrderD1.RowSource = "OrderDat1"
OrderD2.RowSource = "OrderDat1"
I can search fine by the Account Name, Number, Department or Requestor. However, I cannot search by the report order date. The code I’m currently appears to be failing to pick up the date format. I’ve tried switching to general formats or setting the format (date) after exiting the OrderD1 comb box. But nothing has worked. Any help is appreciated
If OrderDAnd.Value = True Then
If OrderD1.ListIndex > -1 Then .Range("H4") = "=" & """" & OrderD1.Value & """"
If OrderD2.ListIndex > -1 Then .Range("I4") = "=" & """" & OrderD2.Value & """"
Else 'It's or
If OrderD1.ListIndex > -1 Then .Range("H4") = "=" & """" & OrderD1.Value & """"
If OrderD2.ListIndex > -1 Then .Range("H5") = "=" & """" & OrderD2.Value & """"
End If
.Range("D1", .Range("D65536").End(xlUp)).AdvancedFilter _
Action:=xlFilterCopy, CriteriaRange:="", CopyToRange:=Sheet6.Range("BA1"), Unique:=True
Sheet6.Range("BA1").CurrentRegion.Offset(1, 0).Name = "OrderDat1"
Range("OrderDat1").Sort Key1:=Range("OrderDat1").Cells(1, 1), Order1:=xlDescending, Header:=xlNo
OrderD1.RowSource = "OrderDat1"
OrderD2.RowSource = "OrderDat1"