TextBox la süzme işlemi

[Mdemir63]

Selamlar,

Arkadaşlar Ekteki dosyamda TextBox içine yazdığım ismi süzerek getirmesini sağlamak istiyorum. Nasıl yapabilirim.

Saygılar

 

[Ferhat Pazarçevirdi]

Merhabalar

Textbox'la, "Niçin (Sayfa Üzerinde) Otomatik Süzme işlemi yapmak istediğinizi" tam olarak anlayamamış olmama rağmen, ekteki örneği incelemenizi tavsiye ederim.

TextBox yerine daha pratik olacağını düşündüğüm Combobox kullandım.

 

[Mdemir63]

Hocam merhabalar,
Öncelikle ilginize çok teşekkürler,
TextBox la istememin nedeni textbox sa isim girmeye başladığımdan itibaren girdiğim ismin birinci harfinden itibaren süzmesini yaptırmak istiyorum.Sizin dediğiniz gibi olmasının (Combobox la) zaten süzme oklarına tıkladığımızda da combobox gibi olduğunu düşünüyorum.

Saygılar sunarım

 

[Mdemir63]

Selamlar,

Yurttaş Hocamın (TextBox la süzme) bir çalışması vardı, ondan yararlanmaya çalıştım ama yapamadım.

 

[Merhum İdris SERDAR]

Selamlar,

Yurttaş Hocamın (TextBox la süzme) bir çalışması vardı, ondan yararlanmaya çalıştım ama yapamadım.

Dosyanız ekte.

.

 

[Mdemir63]

Selamlar,

Yurttaş hocam elinize sağlık istediğim gibi, Fakat Direkt olarak kişi ismini girdiğimde o kişiye ait satırı süzdürebilirmiyiz?

Saygılar

 

[Mdemir63]

Selamlar,

Hocam nerdesiniz soruma bir cevabınız var mı acaba?

Saygılar

 

[Ferhat Pazarçevirdi]

TextBox la istememin nedeni textbox sa isim girmeye başladığımdan itibaren girdiğim ismin birinci harfinden itibaren süzmesini yaptırmak istiyorum.Sizin dediğiniz gibi olmasının (Combobox la) zaten süzme oklarına tıkladığımızda da combobox gibi olduğunu düşünüyorum

Merhabalar

Ben de düşünüyordum cevap vermeden önce, Komutan63 böyle birşey yapmaz diye Demek ki bizim bilmediğimiz ama sizin bildiğiniz birşey varmış ... Keşke baştan söyleseydiniz ...

O zaman aşağıdakileri, Sayfa1'in kod sayfasına kopyalayınız veya örnek dosyayı inceleyiniz

Private Sub TextBox1_Change()
If ActiveSheet.AutoFilter Is Nothing Then
   With Range("A1:D" & Cells(65536, 2).End(xlUp).Row)
        .AutoFilter
        If Trim(TextBox1) = Empty Then
           .AutoFilter Field:=2
        Else
           .AutoFilter Field:=2, Criteria1:=TextBox1 & "*"
        End If
   End With
Else
   If Trim(TextBox1) = Empty Then
      Range("A1:D" & Cells(65536, 2).End(xlUp).Row).AutoFilter Field:=2
   Else
      Range("A1:D" & Cells(65536, 2).End(xlUp).Row).AutoFilter Field:=2, Criteria1:=TextBox1 & "*"
   End If
End If
End Sub

 

[Merhum İdris SERDAR]

Selamlar,

Yurttaş hocam elinize sağlık istediğim gibi, Fakat Direkt olarak kişi ismini girdiğimde o kişiye ait satırı süzdürebilirmiyiz?

Saygılar

Sizin ne istediğiniz pek anlayamadım.

Kodlar süzmedeki içerir işlevini görüyor. İster ismin baş harfini, ister son harfini, isterseniz ortalarda yer alan bir harfi, isterseniz bir kısmını, isterseniz tamamını girin. Ne girerseniz, girin. Ona göre süzmeye başlıyor.

Ne olsun istiyorsunuz?

.

 

[Mdemir63]

Sizin ne istediğiniz pek anlayamadım.

Kodlar süzmedeki içerir işlevini görüyor. İster ismin baş harfini, ister son harfini, isterseniz ortalarda yer alan bir harfi, isterseniz bir kısmını, isterseniz tamamını girin. Ne girerseniz, girin. Ona göre süzmeye başlıyor.

Ne olsun istiyorsunuz?

.

Selamlar,

Hocam, ben zaten dikkat ederseniz işlevini yapmıyor demiyorum. sadece sorduğum farklı birşeydi. Yani direkt olarak süzme yapmadan TextBox içine ismini yazdığımda o kişiye ait satırı getirebilirmiyiz di. Ben önceki mesajımda anlatamadım galiba özür dilerim hocam

Saygılar

 

[Mdemir63]

Merhabalar

Ben de düşünüyordum cevap vermeden önce, Komutan63 böyle birşey yapmaz diye Demek ki bizim bilmediğimiz ama sizin bildiğiniz birşey varmış ... Keşke baştan söyleseydiniz ...

O zaman aşağıdakileri, Sayfa1'in kod sayfasına kopyalayınız veya örnek dosyayı inceleyiniz

Private Sub TextBox1_Change()
If ActiveSheet.AutoFilter Is Nothing Then
   With Range("A1:D" & Cells(65536, 2).End(xlUp).Row)
        .AutoFilter
        If Trim(TextBox1) = Empty Then
           .AutoFilter Field:=2
        Else
           .AutoFilter Field:=2, Criteria1:=TextBox1 & "*"
        End If
   End With
Else
   If Trim(TextBox1) = Empty Then
      Range("A1:D" & Cells(65536, 2).End(xlUp).Row).AutoFilter Field:=2
   Else
      Range("A1:D" & Cells(65536, 2).End(xlUp).Row).AutoFilter Field:=2, Criteria1:=TextBox1 & "*"
   End If
End If
End Sub

Selamlar,

Hocam çok teşekkür ederim . Yurttaş hocamın ve sizin şu son yaptığınız aslında işimi görüyor.

Saygılar

 

[kiriktesti]

komutan63 sıfırdan çalışmakta olduğunuz dosyayı nasıl hazırladığınızı yazabilir misiniz
lütfen