Çözüldü : Makro ile süzme

[uygaroz]

Forumdan aldığım örnekler ile baya bir uğraştım son 2 gündür ama makro bilgisi olmayınca sonuç alamadım.

sizden ricam otomatik süz için yardımcı olmanız. Textbox larda herhangi biri veya bir kaçına girilecek kriter ile otomatik süz yapmak.

yardımcı olacak arkadaşlara şimdiden teşekkür ederim.
Uygar

 

[Merhum İdris SERDAR]

Forumdan aldığım örnekler ile baya bir uğraştım son 2 gündür ama makro bilgisi olmayınca sonuç alamadım.

sizden ricam otomatik süz için yardımcı olmanız. Textbox larda herhangi biri veya bir kaçına girilecek kriter ile otomatik süz yapmak.

yardımcı olacak arkadaşlara şimdiden teşekkür ederim.
Uygar

.


Dosyanız ekte.

.

 

[uygaroz]

Sn Yurttaş
çok teşekkür ederim. zaten forumdan genelde sizin hazırlamış olduğunuz makroları almıştım. fakat bilgi eksikliğimden dolayı bir türlü uyarlayamadım...

ama makro olmadan yine sizin yapmış olduğunuz özet tablo örneklerinden dilimleyici ekleyerek de sorunu çözdüğümü söylemeliyim.
Selamlar
Uygar

 

[guralay]

Merhaba,
Bu makroda süzme işlemine bira esneklik getirmek istesek nasıl yapılabilir? Örneğin, "i" girdiğimizde hem "i" hem de "ı" içerenleri getirse, aynı şekilde "c" girdiğimizde, hem "c" hem de "ç" ler gelse.
Uğraşanlara şimdiden teşekkürler.

 

[mkarakas_58]

otomatik arama süzmeli

Merhaba,

süzme ile ilgili benimde sorunum var. Ekteki excelde, her sayfada ayrı ayrı ÜNVAN sütününa göre süzme yapacağim ama beceremedim. Yardım ederseniz sevinirim.

 

[uygaroz]

ekteki dosyaya bakarmısınız.
Not: Makroyu ben hazırlamadım. Sn Yurttaş ın yaptığı makroyu buraya uyarladım sadece.
Kolay gelsin
Uygar

 

[RaMeLoT]

Sn Yurttaş,

Private Sub TextBox1_Change()
Application.ScreenUpdating = False
On Error Resume Next
METİN = TextBox1.Value
Set FC2 = Range("B18:Ae65000").Find(What:=METİN1)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=10, Criteria1:="*" & TextBox1.Value & "*"
If METİN = "" Then
Selection.AutoFilter Field:=10
End If
End Sub

bu kod rakamsal verilerde çalışmıyor... Ne yapmamız gerekir?

 

[Merhum İdris SERDAR]

.

Buraya bakın.

http://www.excel.web.tr/f133/metin-kutusu-textbox-ile-bazy-veri-turlerini-suzme-t16264.html


.

 

[RaMeLoT]

üstad...

Makro anladığım kadarıyla metin hücreleri ile uyumlu sayısal hücrelerde süzme işlemini yapmıyor.

Örnekte 2 süz makrosu mevcut metin kısmında olan güzel çalışıyor fakat irsaliye numaralarının olduğu kısım hep boş , yardımcı olabilecek arkadaşlardan ricam ben rakam yazdıkça (irsaliye numarasını) sayının ilk karakterinden başlayarak süzmesini istiyorum.

1 yazdıkça - (10000-19999) arasını
12 yazdığımda - (12000-12999) arasını
123 yazdığımda - (12300-12399) arasını süzmesi lazım...

aslında içerir işlemi bile işimi görür.

Makro, rakamlar birebir uyum gösterirse işlevini yerine getiriyor.
İçerir formülü eklememiz lazım....

 

[Ömer BARAN]

Sayısal Değerler İçeren Sütuna METİNmiş Gibi Süz Uygulamak MÜMKÜNDÜR.

Sn Yurttaş,
......................
......................
bu kod rakamsal verilerde çalışmıyor... Ne yapmamız gerekir?

"Metin Kutusu" kullanılarak makro yardımıyla süz uygulamasında, sayısal değerler içeren (aslında bu değerlere, matematiksel işlemlerde başvuru yapılmayacak, FATURA NO, TC KİMLİK NO gibi, sadece mantıksal ve metin formüllerinde atıf yapılacak ) sütuna metinmiş gibi süz uygulayabilmek için aşağıdaki yöntem uygulanabilir.

-Veriler henüz yazılmamış ise; sütunun biçimini "Metin" olarak ayarlamak ve verileri ondan sonra hücrelere girmek yeterli olacaktır.
-Veriler önceden (biçimi "Metin" olarak ayarlanmadan önce) yazılmış ise, biçim "metin" olarak ayarlanıp ardından da sütundaki tüm veriler için ayrı ayrı " F2 -> Enter " işleminin yapılması yeterli olacaktır.

Tabi yukarıdaki gibi (her iki durumda da) işlem yapıldığında hücrenin sol üst köşesinde "Metin Olarak Saklanan Sayı" bilgisi içeren yeşil uyarı kulakçığı görünecektir. Buna razı olmak ya da alanı seçip "Hatayı Yoksay" demek bu uyarı kulakçığının görünmesini de engellemek mümkündür.

Bundan sonra artık o sütun için, metinsel süz işlemleri (içerir, ile başlar gibi) yapılabilir.

Yani koddaki Private Sub TextBox2_Change() olayındaki, " AutoFilter Field:=5, Criteria1:="*" & TextBox2.Text & "*" " kısmı metinmiş gibi içerir şeklinde işlem görecektir.

Bu şekilde değiştirilmiş dosya ektedir.
___________________________________
Son olarak istediğiniz tam olarak karşılanmış ise;
-sorununuzun çözümünü sağlayan, cevap mesajından alıntı yapıp,
-mesaj başlığı kısmına "ÇÖZÜLDÜ" diyerek,
-son bir mesaj yazınız
-ve dilerseniz sayfanın üst ortalarında, "Konu Araçları" başlığındaki "Konuyu Kapat" kısmını kullanarak
konunun kilitlenmesini sağlayabilirsiniz.