TextBox İle Sayfadaki Bütün Hücrelerde Arama Yapma

[skaan]

Merhaba;
Ekteki dosyamdaki textbox ile sadece belirli bir sutunda arama yapınca verilerimi getirtebiliyorum.
Ben bu textboxa yazmıs oldugum arama verilerinin sayfadakı butun hücrelerde getırmesını istemekteyim.Yani textboxa arama için veri girdiğimde sadece belirli hücrede olan benzer verileri deği butun hücrelerde olan aynı verileri getirmesini istemekteyim.
Sutun gözetmeksizin nerede aynı veri var ise getirmeli.
Kullanmış olduğum kodlar ve örnek dosyam ektedir..
Yardımcı olmanızı rica ediyorum.


Private Sub TextBox1_Change()
On Error Resume Next
METİN1 = TextBox1.Value
Set FC2 = Range("E3:E65000").Find(What:=METİN1)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=4, Criteria1:="*" & TextBox1.Value & "*"
If METİN1 = "" Then
Selection.AutoFilter Field:=4
End If
End Sub
Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1.Value = ""
ActiveSheet.ListObjects("Tablo2").Range.AutoFilter Field:=4
Range("E65500").End(3).Offset(1, 0).Select
TextBox1.Activate
End Sub


Saygılarımla;
SKaan

 

[Ömer BARAN]

Merhaba.
Daha önce aşağıdaki konu için hazırladığım (5 numanalı cevap) bir dosya vardı belki işinize yarar.
TextBox yerine hücre kullanılmıştır.

Şu şekilde çalışıyor, arananı yaz ENTER tuşuna bas İÇERİR şeklinde arama yaparak,
diğer sayfadaki verileri (arama diğer sayfadaki tüm sütunlarda yapılıyor) gör.

Sütunlardaki bilgilerden her hangi birisini sorguladığımda bilgileri getirsin

 

[skaan]

Merhaba;
Öncelikle cevabınız için teşekkür ederim.
Fakat vermiş olduğum kodlarda değişiklik yaparak istediğim veriyi filtreleyemezmiyim acaba ?
İstediğim şekilde bu işlemi yapmam mümkün değil mi?

Saygılar
Skaan

 

[Ömer BARAN]

Olayın etrafından dolaşarak bir çözüm ürettim.
Veri yoğunluğuna göre başarı/doğruluk ihtimali değişebilir, test etmek lazım.

Belge ekte. Belgedeki BARAN adlı sayfaya bakınız.

 

[skaan]

Merhaba
Yardımlarınız için çok teşekkür ederim..
Kodlar doğru çalışmakta..

Saygılar
Skaan

 

[Ömer BARAN]

Merhaba
Yardımlarınız için çok teşekkür ederim..
Kodlar doğru çalışmakta..

Saygılar
Skaan

Estağfurullah, iyi günler dilerim.
Önemli olan ihtiyacın görülmesi.

 

[skaan]

Ömer bey konuyu çözdük ama son bir soru sorabilirmiyim .. Textbox ta arama yapınca satır en son hücreye gidiyor ekrana arananları getirmek için mause ıle yukarı doğru gitmek zorunda kalınıyor. Acaba arama yapılınca aramadan sonra sonucun en ustune otomatik olarak gidebilirmi ? ( Bu arada 1140 Adet satır bulunmakta raporda )
Birde arama textbox ta soru işareti konulan hücreler filtrelenmiyor.. Soru işaretini filtrelemiyor.. Çözümü varmıdır acaba ?

Saygılar
Skaan

 

[Ömer BARAN]

Ömer bey konuyu çözdük ama son bir soru sorabilirmiyim .. Textbox ta arama yapınca satır en son hücreye gidiyor ekrana arananları getirmek için mause ıle yukarı doğru gitmek zorunda kalınıyor. Acaba arama yapılınca aramadan sonra sonucun en ustune otomatik olarak gidebilirmi ? ( Bu arada 1140 Adet satır bulunmakta raporda )
Birde arama textbox ta soru işareti konulan hücreler filtrelenmiyor.. Soru işaretini filtrelemiyor.. Çözümü varmıdır acaba ?

Kod metnini aşağıdaki gibi değiştirince (alt taraftaki kırmızı satırları ekleyince) istediğiniz gibi olması lazım. Sooru işaretinin durumunu bilemiyorum.

[FONT="Trebuchet MS"]Private Sub TextBox1_Change()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Range("B2:O2").AutoFilter Field:=14
Range("O3:O" & [B65536].End(3).Row).ClearContents
Range("O2") = "filtre"
For sut = 2 To 13
    For sat = 3 To [B65536].End(3).Row
        If WorksheetFunction.CountIf(Range("B" & sat & ":M" & sat), "*" & TextBox1.Value & "*") > 0 Then
            Cells(sat, 15) = 1
            GoTo 10
        End If
10: Next
Next
Range("B2:O2").AutoFilter Field:=14, Criteria1:=1
Cells(1, 7) = "BULUNAN  " & WorksheetFunction.CountIf(Range("O:O"), 1) & "  ADET KAYIT VAR"
[COLOR="Red"]On Error Resume Next
Cells(WorksheetFunction.Match(1, Range("O:O"), 0), 2).Activate
TextBox1.Activate
20: [/COLOR]Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub[/FONT]

 

[skaan]

Çok çok teşekkür ederim..
Sağolun varolun..
Hayırlı günler dilerim..

Skaan

 

[Mikdad]

Hocam sayıları d hücresine tc kimlik numaraları yazdım sorgulamıyor. geri kalanlarda sorun yok . yardımcı olur musunuz.