Texbox ki süzmeyi tarihe göre uyarlama..!

[sensizsoldum]

Merhaba,
Aşağıdaki kod ile istediğim özellikte süzme işlemini yapıyorum. Bu kodu aynı zamanda tarihe göre de süzmek için kullanmak istiyorum. Örneğin 28.03.2012 ait verileri kısa yoldan 2803 olarak yazarak getirsin istiyorum. nasıl uyarlaya biliriz. Yardımcı olurmusunuz. iyi akşamlar dilerim.








Private Sub TextBox2_Change()
On Error Resume Next
metin = TextBox2.Value
If metin = "" Then
Range("g2:g65536").AutoFilter
Exit Sub
End If
Set BUL = Range("g3:g65536").Find(What:=metin)
Application.GoTo Reference:=Range(BUL.Address), Scroll:=False
Range("g2:g65536").AutoFilter Field:=1, Criteria1:=TextBox2.Value & "*"
End Sub

 

[hamitcan]

Linki inceleyin.
http://www.excel.web.tr/f48/tarihe-gore-autofilter-i-lemi-t37391.html

 

[sensizsoldum]

Merhaba,
Sayın Hamitcan, linki inceledim zaten linkteki arkadaşlarda konunun da tam olarak çözüme gittiğini sanmıyorum. ben bir kaç değişiklik yaptım. süzme yapıyor ama benim kodumun özelliği de gidiyor. Texboxta veri yoksa süzme kapalı veri varsa açık. ayrıca istediğim gibi de süzme olmadı.

Tekrardan teşekkür ederim ilgi ve alakanıza.

 

[Emir Hüseyin Çoban]

. . .

Merhaba.

Excel filtrenin, 2012 yılında tüm ayların 28. gününü filtrele gibi bir özelliği yok.
Sorunuz için yardımcı bir sütun kullanılabilir.
Örnek dosya eklerseniz, üzerinde denemeler yapabiliriz.

. . .

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki linkteki 16 nolu mesajdaki örnek dosyayı inceleyin.

Tablo içinde arama yapmak

 

[sensizsoldum]

Merhaba
İlk yazdığım mesajdaki texbox a ait süzmeyi tarihe göre uyarlaya bilirsek eminim sorun kalamayacaktır.
Teşekkür ederim iyi akşamlar.

 

[Emir Hüseyin Çoban]

. . .

Merhaba.

AutoFilterMode kodunu daha yeni gördüm. Çalışmalarımda daha önce kullanmadım.
Biraz daha araştırıp, öğrenmek gerek. Filtre içeren tablolar için çok iyi olacak gibi görünüyor.

. . .

 

[hamitcan]

Dosyanızı ekleyin.

 

[sensizsoldum]

Merhaba Hamit Can Bey,
Örnek çalışmayı ekledim. Bu kodla istediğim verileri süzme yapıyorum ama tarih te yapamıyorum.
Texboxta veri yok ise süzme deaktif oluyor. veri olduğunda aktif duruma geçiyor. Ama tek sorun tarihi süzemiyorum

Teşekkür ederim İyi akşamlar dilerim.

 

[Emir Hüseyin Çoban]

. . .

Range("g2:g65536").AutoFilter Field:=1, Criteria1:=TextBox1.Value & "*"

satırını aşağıda gibi değiştirerek deneyiniz.

Range("g2:g65536").AutoFilter Field:=1, Criteria1:=metin

. . .

 

[hamitcan]

Ekli dosyayı inceleyin. Sorunuzu yanıtlamışım ama yanlış yere eklemişim.
Aşağıdaki linkte iki tarih arası süzme örneği de mevcut.
http://www.excel.web.tr/f14/tarihten-itibaren-suz-ta-y-formul-yada-makrosu-t88243.html