TextBox ile AutoFilter sorunu

[serhan]

Private Sub TextBox2_Change()
On Error Resume Next
SONUC2 = TextBox2.Value
Set FC2 = Range("B3:B8650").Find(What:=SONUC2)
Application.Goto Reference:=Range(FC2.Address), _
   Scroll:=False
Selection.AutoFilter Field:=2, Criteria1:="*" & TextBox2.Value & "*"
End Sub

Yukarıdaki kodu forumdan almıştım. Metin olan sütunlarda işe yarıyor. Sayı sütunlarında ise çalışmıyor. İki adet problemim var...
1. Sayı olan sütunlarda bu kodu nasıl çalışır hale getirebiriz.
2. TextBox içerisindeki bütün değerleri sildiğimizde filitreyi kaldırmasını nasıl sağlarız.

 

[İdris SERDAR]

http://www.excel.web.tr/viewtopic.php?t=17750

Buradaki dosyayı inceleyin.

 

[serhan]

http://www.excel.web.tr/viewtopic.php?t=17750

Buradaki dosyayı inceleyin.

Malesef sayılarda doğru olarak çalışmıyor...

 

[İdris SERDAR]

Dosyanız ekte. Kodu girerken tam girin.

 

[serhan]

Dosyanız ekte. Kodu girerken tam girin.

Malesef doğru çalışmıyor. Yazdığımız sayıyı buluyor ama süzme işlemini yapmıyor.

 

[İdris SERDAR]

Malesef doğru çalışmıyor. Yazdığımız sayıyı buluyor ama süzme işlemini yapmıyor.

İlk gönderdiğim dosya süzüyor. Tekrar denedim yine problem yok.

Enson dosyanız yapılmış halde ekte.

 

[serhan]

Merhabalar;

Malesef doğru çalışmıyor. Yazdığımız sayıyı buluyor ama süzme işlemini yapmıyor.

İlk gönderdiğim dosya süzüyor. Tekrar denedim yine problem yok.

Enson dosyanız yapılmış halde ekte.

Öncelikle ilginize teşekkür ederim.

Önce gönderdiğiniz dosyayı orjinal haliyele çalıştırdım. Sayılarımı bulamadı...

Private Sub TextBox2_Change()
On Error Resume Next
UNI = TextBox2.Value
Set FC2 = Range("A7:J65000").Find(What:=UNI)
Application.Goto Reference:=Range(FC2.Address), _
   Scroll:=False
Selection.AutoFilter Field:=1, Criteria1:=TextBox2.Value
If UNI = "" Then
Selection.AutoFilter Field:=1

End If
End Sub

Gönderdiğiniz dosyadaki Range("A7:J65000") bölümünü verilerimin bulunduğu Range("A2:A500") çevirdim. Malesef sonuç olumsuz... Siz işlem tamam diyorsunuz ben olmadı diyorum. Zamanınızı çalıyorum. Galiba başka bir problem var... Zaman ayırdığınız için tekrar teşekkürler...

 

[ETarkan]

Texbox da sayilari filtre etme problemi

Selam Arkadaslar

Yurttas arkadasin texbox ornegini inceledim ve benim aradigimi bulamadim sizden ricam su formatta (0###)####### filter islemini nasil yapabilirim bana bunu cozerseniz cok sevinirim

ne anlatmak istedigimi ekteki ornek dosyanin icinde tel sutununda goreceksiniz

tesekkurler

 

[abdi]

Private Sub TextBox2_Change()
On Error Resume Next
SONUC2 = TextBox2.Value
Set FC2 = Range("B3:B8650").Find(What:=SONUC2)
Application.Goto Reference:=Range(FC2.Address), _
   Scroll:=False
Selection.AutoFilter Field:=2, Criteria1:="*" & TextBox2.Value & "*"
End Sub

Yukarıdaki kodu forumdan almıştım. Metin olan sütunlarda işe yarıyor. Sayı sütunlarında ise çalışmıyor. İki adet problemim var...
1. Sayı olan sütunlarda bu kodu nasıl çalışır hale getirebiriz.
2. TextBox içerisindeki bütün değerleri sildiğimizde filitreyi kaldırmasını nasıl sağlarız.

Sayın serhan
Sayın yurttaşın :hey: gönderdiği dosya gayet güzel çalışıyor 2. Sorunuza binaen
kodlamada ufak bir değişiklik yapacağız.
veya aşağıdaki kod ile değiştirin.
Saygılar sevgiler

Private Sub TextBox2_Change()
On Error Resume Next
UNI = TextBox2.Value

If Len(TextBox2) > 0 Then

Set FC2 = Range("A7:J65000").Find(What:=UNI)
Application.Goto Reference:=Range(FC2.Address), _
   Scroll:=False
Selection.AutoFilter Field:=1, Criteria1:=TextBox2.Value
If UNI = "" Then
Selection.AutoFilter Field:=1

End If
Else
Selection.AutoFilter
End If
End Sub

 

[ETarkan]

Sn Abdi

Ekteki dosyada sizin gonderdiginiz kodlari denedim ama malesef sonuc alamadim lutfen sizde bir bakarmisiniz.

Tesekkurler

 

[İdris SERDAR]

Dosya ekte olmuş mu?

 

[abdi]

Re: Texbox da sayilari filtre etme problemi

Selam Arkadaslar

Yurttas arkadasin texbox ornegini inceledim ve benim aradigimi bulamadim sizden ricam su formatta (0###)####### filter islemini nasil yapabilirim bana bunu cozerseniz cok sevinirim

ne anlatmak istedigimi ekteki ornek dosyanin icinde tel sutununda goreceksiniz

tesekkurler

Sayın ETarkan
Sayın Yurtttaş :hey: problemi çözmüş ama bi alternatifde ben getireyim
telefon lar için textboxa formatlamadan direk numara şeklinde yazıp filtreleme yapabileceksiniz. yalnız burda dikkat etmeniz gereken taraf tüm telefon numaralarının 10 rakamlı olmasıdır. Kodlama Türkiye için geçerlidir.
il kodu ve telefon numaraları şeklinde
Sayın Yurttaşın :hey: dosyasındaki textbox için yazdım siz kendinize uyarlayınız.

Private Sub TextBox10_Change()
On Error Resume Next
UNI = TextBox10.Value
Dim a As String

If Len(TextBox10) > 0 And Len(TextBox10) = 10 Then

a = "(" & Mid(TextBox10, 1, 3) & ")" & " " & Mid(TextBox10, 4, 10)

Set FC2 = Range("A7:J65000").Find(What:=UNI)
Application.Goto Reference:=Range(FC2.Address), _
   Scroll:=False
Selection.AutoFilter Field:=10, Criteria1:=a
If UNI = "" Then
Selection.AutoFilter Field:=10

End If
Else
Selection.AutoFilter
End If
End Sub

Saygılar sevgiler.

 

[ETarkan]

Dosya ekte olmuş mu?

Malesef olmamis actim baktim ama filter yapmiyor birdaha kontrol edermisiniz.

Kolay Gelsin

 

[İdris SERDAR]

Sayın ETarkan,

Dosyayı tekrar denedim. Bende çalışıyor.

1. Sayı olan sütunlarda bu kodu nasıl çalışır hale getirebiliriz.
2. TextBox içerisindeki bütün değerleri sildiğimizde filitreyi kaldırmasını nasıl sağlarız.

şeklindeki sorularınızı karşılıyor.

1. TEL no'yu gördüğünüz gibi girerseniz süzüyor.

2. Textbox'ların hepsi boş ise otomatik süzü kaldırıyor.

 

[ETarkan]

Sn Yurttas

Sen elinden geleni yaptin insallah diger arkafaslar bir cozum uretir

Tesekkurler

 

[abdi]

Sn Yurttas

Sen elinden geleni yaptin insallah diger arkafaslar bir cozum uretir

Tesekkurler

Sayın ETarkan yukarıdaki tarz bir usluple yazmaya devam ederseniz.
Sanırım bundan sonra sorduğunuz sorulara cevapları kendiniz bulmak zorunda kalacaksınız.

En Azından Sayın Yurttaş üstada, Teşekkür Edip cevabınızı sonlandırabilirdiniz. Bu yaklaşım tarzınız hiç hoş değil

Saygılar Sevgiler.

 

[serhan]

Bilgi eksikliği ve düzeltme...

Sevgili arkadaşlar;

yurttas ve abdi arkadaşlarımızın verdiği kodlar ile problem çözülüyor. Benim olmadı dememin sebebi ise...

1. Sayfada koruma olduğu için süzme işlemi yapamıyormuş.
2. Ben ne istediğimi tam olarak anlatamamışım. Daha sonra forumdan öğrendim ki benim beklentim sayılarda "eşittir" değilde "ile başlar" işlemi imiş...

Zaman ayıran tüm arkadaşlara teşekkür ederim.

 

[serhan]

Çift mesajı silme...

Bağlantı probleminden dolayı çift mesaj oldu. Verdiğim rahatsızlıktan dolayı özür dilerim.

 

[zafer]

Merhaba

Satın Serhan ETarkan üye ismi sizemi ait Eğer öyle ise lütfen tek bir isim üzerinden sorularınızı sormanızı rica ederim.

 

[serhan]

ETarkan kullanıcısı

Merhaba

Satın Serhan ETarkan üye ismi sizemi ait Eğer öyle ise lütfen tek bir isim üzerinden sorularınızı sormanızı rica ederim.

Etarkan kulancısı ile hiç bir alakam yoktur.