İsme Göre Süz

[noxious]

Sayın Hocalarım

Forumda aradım ama istediğim gibi bir örnek bulamadım.

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

Yukarıdaki linkte bulunan Yurttaş hocamın kullandığı kodları ekliyerek yapmak istedim ama olmadı

ekte verdiğim örneğe göre

İsme Göre Süz butonuna tıkladığımızda açılan
UserForm üzerinde bulunan TextBox'a D2 sütunundan isim yazdığımızda o ismi süzecek, TextBox içine yazdığımız ismi sildiğimizde tekrar tüm kaydı gösterecek (textbox içeriği silindiğinde satırda oluşan süzler kalkacak) ben Yurttaş hocamın kodlarını denedim ama beceremedim ayrıca filtreleme sonucu kaç isim çıktıysa yanında bulunan TextBox a sayısı yazacak.

Bu konuda yardımlarınızı bekliyorum. Saygılarımla

 

[Merhum İdris SERDAR]

Dosyanız ekte.

 

[noxious]

Hocam siz bir harikasınız teşekkürler.

 

[noxious]

Konu ile ilgili son bir sorum daha olacak

sayfayı şifre ile koruma altına alıp işlemi nasıl yapabiliriz (şifre 1111)

çalışma sayfalarım şifre ile koruma altında
süz işlemi koruma yokken sağlam çalışıyor ama korumayı aktifleştirdiğimde çalışmıyor

 

[Orion1]

Ekli dosyayı incelyiniz.
Kırmızı ile işaretlenmiş kodlar eklendi.
Sayfa koruma şifresi 1111

Private Sub TextBox20_Change()
On Error Resume Next
Application.ScreenUpdating = False
[COLOR="Red"]ActiveSheet.Unprotect "1111"[/COLOR]
METİN1 = TextBox20.Value
Set FC2 = Range("a2:J65000").Find(What:=METİN1)
Application.Goto Reference:=Range(FC2.Address), _
   Scroll:=False
Selection.AutoFilter Field:=4, Criteria1:="*" & TextBox20.Value & "*"
If METİN1 = "" Then
Selection.AutoFilter Field:=4
End If
Application.ScreenUpdating = True

If TextBox20.Value = "" Then TextBox21.Value = ""
If TextBox20.Value <> "" Then TextBox21.Value = [AI1]
[COLOR="red"]ActiveSheet.Protect "1111"[/COLOR]
End Sub

 

[noxious]

Hocam aynı formülleri bende denedim ama bende sorun çıkartıyor.
hazırladığım form biraz karışık ve burada yayınlamam doğru olmaz.
Ben başka bir yöntemle çözdüm işlemi ancak son satırda bahsettim TextBox21 içerisine süz'den sonra kalan sayısını getiremedim

kodlarım aşağıda

UserForm üzerine koyduğum butona aşağıdaki kodu ekleyerek şifre ve süz'ü açıyorum

Private Sub CommandButton5_Click()
ActiveSheet.Unprotect "1111"
Range("A1:AD1").Select
Selection.AutoFilter
Range("A1").Select
Unload UserForm1
ActiveSheet.Unprotect "1111"
UserForm2.Show
End Sub

UserForm2 ye geçerek süz işlemini yapıyorum
Süz işlemini yapıyorum
Private Sub TextBox20_Change()
On Error Resume Next
Application.ScreenUpdating = False
ActiveSheet.Unprotect "1111"
METİN1 = TextBox20.Value
Set FC2 = Range("a2:J65000").Find(What:=METİN1)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=4, Criteria1:="*" & TextBox20.Value & "*"
If METİN1 = "" Then
Selection.AutoFilter Field:=4
End If
Application.ScreenUpdating = True

If TextBox20.Value = "" Then TextBox21.Value = ""
If TextBox20.Value <> "" Then TextBox21.Value = [AI1]
ActiveSheet.Protect "1111"
End Sub

Süz'ü kapatarak çıkış yapıyorum ve sayfayı tekrar şifreliyorum
Private Sub CommandButton1_Click()
ActiveSheet.Unprotect "1111"
Range("A1:AD1").Select
Selection.AutoFilter
Range("A1").Select
ActiveSheet.Protect "1111"
Unload UserForm2
End Sub

ancak bir sorunum var TextBox21 içerisine süz sonucu kalan sayısını getiremedim

başka bir bölümde Textbox için şöyle birşey yazmıştım
say1 = Sheets("rapor").Range("L65503") 'L sütununda değişik sayılar var ve L65503 kalanların sayısını topluyor
TextBox3.Value = say1 'say1 içerisinde toplanan sayıyı gösteriyor

ancak yukardaki süz işleminden sonra kalanlar sıra numarası olduğu için ne yapacağımı bilemedim bukonuda yardım edebilirmisiniz

 

[Orion1]

ancak yukardaki süz işleminden sonra kalanlar sıra numarası olduğu için ne yapacağımı bilemedim bukonuda yardım edebilirmisiniz

Süz işleminden sonra textbox'ta süzülen verinin miktarı gösteriliyor.
Siz neyi istiyorsunuz anlamadım.