Texbox Ve Otomatİk SÜz

[aydogankemal]

merhabalar
a1 hücresine yerleştireceğim texbox a bilgileri girdikçe a sütunundaki verileri otomatik süzmesini istiyorum.
bunun için gerekli kodlar konusunda yardım eder misiniz

 

[Orion1]

Merhaba .
Ekli dosyayı inceleyiniz.
Gelişmiş filtre uygulandı.

Sub suz()
    Range("A1:A" & Cells(65536, "A").End(xlUp).Row).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("B1:B2"), Unique:=False
End Sub

Private Sub TextBox1_Change()
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Range("B2").Value = TextBox1.Value
Call suz
End Sub

 

[aydogankemal]

Sn Sezar ekli dosyanız aslında istediğime cevap veriyor ama texbox a yazılan verinin b hücresine yazılmasını istemiyorum
benim istediğim sadece a1 deki texbox a yazılan verinin süzülmesi bunun için yardımcı olabilirseniz sevinirim. (not: aslında b1 ve c1 içinde aynı texboxlara ihtiyacım var onuda ekleyebilir misiniz)

 

[Orion1]

Sn Sezar ekli dosyanız aslında istediğime cevap veriyor ama texbox a yazılan verinin b hücresine yazılmasını istemiyorum
benim istediğim sadece a1 deki texbox a yazılan verinin süzülmesi bunun için yardımcı olabilirseniz sevinirim. (not: aslında b1 ve c1 içinde aynı texboxlara ihtiyacım var onuda ekleyebilir misiniz)

B 2 hücresine değilde Başka bir sütuna yazalım.
Bu yazılmadan gelişmiş süz yapılırmı bilmiyorum.

 

[Ali]

merhabalar
a1 hücresine yerleştireceğim texbox a bilgileri girdikçe a sütunundaki verileri otomatik süzmesini istiyorum.
bunun için gerekli kodlar konusunda yardım eder misiniz

Aşağıdaki linki incelediniz mi?

http://www.excel.web.tr/showthread.php?t=19034

 

[aydogankemal]

otomatik süz

Sn Ali, örnek dosya ektedir, yardımınızı bekliyorum