filtre kriterini inputbox ile atama

[mustafaine1]

Activesheet.ListObjects("Table_Query_vw").Range. _
AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(1, _
"7/31/2010")

Arkadaslar bu sekilde bir tablo filter islemim var yalniz buradaki kriterin inputbox ile atanmasini istiyorum, yapilabilirmi acaba?

 

[Korhan Ayhan]

Selamlar,

Mustafa bey örnek dosya ekleme imkanınız varsa ekleyip yapmak istediğinizi açıklarmısınız.

 

[mustafaine1]

Korhan Bey ilginiz icin tesekkur ederim, ben dun sorunumu cozdukten sonra siteyle paylasamadim calismaya dalmisim..

su sekilde birseyler bulup calistirdim..

 Dim myDate
    Dim myDateVerify As Boolean
    myDateVerify = False
    Do Until myDateVerify
        myDate = InputBox("Calistiginiz Tarihin Girisini mm/dd/yy formatinda yapiniz")
        If IsDate(myDate) And (myDate > 0) Then
            myDateVerify = True
      

s1.ListObjects("Table_Query_from_suez_afra_vw_freight69").Range. _
AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(1, _
 [COLOR="Red"]myDate[/COLOR])

   Else
            MsgBox "Taninmayan data girisi yaptiniz, tekrar deneyiniz.."
        End If
    Loop