Kritere göre süzme

[Baggwell]

Merhaba

a 1 0 3
b 2 1 4
c 4 0 1
d 0 2 1
e 0 0 0
f 0 0 1
g 4 0 2
h 3 1 2
i 0 2 1
j 1 4 0
k 0 0 0
l 1 0 2
m 0 2 0
n 0 0 0
o 0 0 0
p 4 0 1
r 0 0 0
s 0 0 3



örneğin yukarıda A B C D sütunlarında bu verilerin olduğunu düşünelim.

Her hücrede bir değer var, peki satırdaki değerlerin hepsi sıfır ise o satırı aradan çıkarmak istiyorum

filtrelemeyi nasıl yapabiliriz acaba ?



Yukarıdaki örnekte

 

[Emir Hüseyin Çoban]

. . .

F sütununa eğersay ile 0 değerlerini saydıra bilirsin.

. . .

 

[turanb]

Selamlar,

Aşağıdaki kod ile yapmaya çalıştığım filtrelemede 5. satırda filtreleme oluşturmuyor. 1. satırdan otomatik filtre uyguluyor. Nedendir.

Private Sub TextBox1_Change()
On Error Resume Next
METİN1 = TextBox1.Value
Set FC5 = Range("A5:J10000").Find(What:=METİN1)
Application.Goto Reference:=Range(FC5.Address), _
   Scroll:=False
Selection.AutoFilter Field:=2, Criteria1:="*" & TextBox1.Value & "*"
If METİN1 = "" Then
Selection.AutoFilter Field:=2
End If
End Sub

 

[ZorBey_]

Merhaba Sayın turanb iyi çalışmalar
Sorun görünmüyor normal süzme yapıyor
Ekli dosyayı inceleyiniz.

 

[turanb]

Doğru çalışıyor sayın asr35

Bende farklı bir örnekte denedim çalışıyor.

Ama asıl uygulamak istediğim dosyada textbox hareket ediyor aşağı kayıyor.

Olası nedeni ne olabilir. Biçim vs. gibi mesela

 

[turanb]

Sevgili Destek ekibi arkadaşlar yukarıda örnek kodu yazdım bir sorun olmadan çalışıyor.

Ancak benim ekteki dosyamda problem oluyor aynı kodlar. Textbox yerinde sabit durmuyor. 5. inci satırdan süzme yapsın istiyorum ama ilk satırdan yapıyor süzmeyi. Yukarıdaki örnekte sorun çıkarmıyor. Ama benim dosyada problem oluyor.

Nedendir acaba bakabilir misiniz?

 

[Merhum İdris SERDAR]

Sevgili Destek ekibi arkadaşlar yukarıda örnek kodu yazdım bir sorun olmadan çalışıyor.

Ancak benim ekteki dosyamda problem oluyor aynı kodlar. Textbox yerinde sabit durmuyor. 5. inci satırdan süzme yapsın istiyorum ama ilk satırdan yapıyor süzmeyi. Yukarıdaki örnekte sorun çıkarmıyor. Ama benim dosyada problem oluyor.

Nedendir acaba bakabilir misiniz?

.

Dosyanız ekte.

.

 

[turanb]

Sayın yurttaş sizin yaptığınız olmuş teşekkür ederim.

Ama kodda bir değişiklik yok bunu nasıl yaptınız. Küçük bir püf noktası dır eminim.

Eğer bu püf noktasını yazarsanız diğer süzmelerde problem yaşamam.

Teşekkür ederim...

 

[Emir Hüseyin Çoban]

Sevgili Destek ekibi arkadaşlar yukarıda örnek kodu yazdım bir sorun olmadan çalışıyor.
Ancak benim ekteki dosyamda problem oluyor aynı kodlar. Textbox yerinde sabit durmuyor. 5. inci satırdan süzme yapsın istiyorum ama ilk satırdan yapıyor süzmeyi. Yukarıdaki örnekte sorun çıkarmıyor. Ama benim dosyada problem oluyor.
Nedendir acaba bakabilir misiniz?

. . .

Tablonuz ilk açıldığında filtre yok.
Kodları çalıştırmadan önce
A5:I5 aralığını seçip, manuel olarak filtre yapın.

. . .

 

[turanb]

. . .

Tablonuz ilk açıldığında filtre yok.
Kodları çalıştırmadan önce
A5:I5 aralığını seçip, manuel olarak filtre yapın.

. . .

Evet anladım uyguladım filtre konmayınca şaşırıyor. Teşekkür ederim Hüseyin bey.

 

[turanb]

Selamlar,

Yukarıda bahsi geçen kodlarla yapılan süzmeyi rakamların olduğu bir sütuna uygulamayı denedim ama sonuç başarısız.

Rakam süzmek için kodun bir yerine rakam için tanımlama mı yapmam gerekiyor.

Aynı sütuna metin yazı yazıyorum onu süzüyor ama rakamları görmezden geliyor.

Kod aşağıdaki gibidir.

Teşekkürler.

Private Sub TextBox2_Change()
On Error Resume Next
METİN2 = TextBox2.Value
Set FC5 = Range("A5:J10000").Find(What:=METİN2)
Application.Goto Reference:=Range(FC5.Address), _
   Scroll:=False
Selection.AutoFilter Field:=1, Criteria1:="*" & TextBox2.Value & "*"
If METİN2 = "" Then
Selection.AutoFilter Field:=1
End If
End Sub

 

[Emir Hüseyin Çoban]

Selamlar,

Yukarıda bahsi geçen kodlarla yapılan süzmeyi rakamların olduğu bir sütuna uygulamayı denedim ama sonuç başarısız.

Rakam süzmek için kodun bir yerine rakam için tanımlama mı yapmam gerekiyor.

Aynı sütuna metin yazı yazıyorum onu süzüyor ama rakamları görmezden geliyor.

Kod aşağıdaki gibidir.

Teşekkürler.

Private Sub TextBox2_Change()
On Error Resume Next
METİN2 = TextBox2.Value
Set FC5 = Range("A5:J10000").Find(What:=METİN2)
Application.Goto Reference:=Range(FC5.Address), _
   Scroll:=False
Selection.AutoFilter Field:=1, Criteria1:="*" & TextBox2.Value & "*"
If METİN2 = "" Then
Selection.AutoFilter Field:=1
End If
End Sub

. . .

Yıldızları silerek kullanın.

Selection.AutoFilter Field:=1, Criteria1:=TextBox2.Value

. . .

 

[turanb]

Hüseyin bey sizin dediğiniz gibi yaptığımda sadece birebir yazdığım kodu veriyor.

Şu an çalışıyor. Başka bir sayfadan yeniden kopyaladım kod olan sütunu. Problem çözüldü.

Teşekkürler...

 

[yenilik025]

GENELDE Textbox tan süzme işlemi yapılıyor
Peki textbox eklemeden
Örnek A6 hücresindeki yazılan değere göre

a7:a100 arasındaki değerlerden bir süzme
işlemi yapılabilir mi macro ile.

. . .

Yıldızları silerek kullanın.

Selection.AutoFilter Field:=1, Criteria1:=TextBox2.Value

. . .

 

[Emir Hüseyin Çoban]

GENELDE Textbox tan süzme işlemi yapılıyor
Peki textbox eklemeden
Örnek A6 hücresindeki yazılan değere göre
a7:a100 arasındaki değerlerden bir süzme
işlemi yapılabilir mi macro ile.

Yapılabilir. Örnek dosya eklerseniz daha kolay olur...

. . .

 

[yenilik025]

Dosyayı ekledim hocam

Genelde hep textbox tan yapılıyor peki hücreden macro ile bu züme işlemi yapılamaz mı?

örnek ali yazarken süzebilir mi aşağıda ?

Yapılabilir. Örnek dosya eklerseniz daha kolay olur...

. . .

 

[Emir Hüseyin Çoban]

. . .

Ali yazarken süzmeye başlamaz. Kelimeyi yazıp enter yaptıktan sonra süzme yapar.

. . .