hi all,
I have a code filtering my database table by dates actually between two dates, but it's not workin with me
and i dont know WHY
please, anyone reviews that
the code in userform2
Private Sub filter_Click()
Sheet2.Activate
Sheet1.[i3] = TextBox1.Value
Sheet1.[j3] = TextBox2.Value
Sheet1.Range("j2").FormulaR1C1 = "=If(AND(R[5]C>=R3C9,R[5]C<=R3C10),TRUE,"""")"
Sheet1.Range("C6:R65536").AdvancedFilter Action:=xlFilterCopy, CopyToRange:= _
Sheet2.Range("C6:R6"), CriteriaRange:=Sheet1.Range("C1:R2"), Unique:=False
End Sub
Bookmarks