Textbox yerine Hücre kullanma

[seddur]

Kullanılabilir kod ile iki tarih aralığında veri listeliyorum.Yapmak istediğim Textbox1 ve Textbox2 yerine hücre aralığı kullanarak veri listelemek.Gerekli düzeltmeyi yapacak arkadaşa teşekkürler.

Set s1 = ThisWorkbook.Worksheets("Liste")
Set s2 = ThisWorkbook.Worksheets("Rapor")

s1.AutoFilterMode = False
s2.AutoFilterMode = False

Call s1.Range("a1").AutoFilter(2, ">=" & CDbl(CDate(TextBox1.Text)), xlAnd, "<=" & CDbl(CDate(TextBox2.Text)))
s1.UsedRange.SpecialCells(xlCellTypeVisible).Copy

s2.Paste s2.Range("a1")
Application.CutCopyMode = False
s1.AutoFilterMode = False
s2.Select

 

[Korhan Ayhan]

Filtre yapan satırdaki PARANTEZ içinde bulunan bahsettiğiniz nesne isimlerini hücre adresleri ile değiştirmeniz yeterli olacaktır.

Örnek; CDbl(CDate(TextBox1.Text)) yerine CDbl(CDate(Range("A1").Value)) yazıp deneyiniz.