• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Aynı hücrede geçen farklı kelimelere göre süzdürme

Selamlar,

Sn. tahsinanarat,

İşlemi hızlandırmak için D sütununu yardımcı sütun olarak kullanarak farklı bir örnek dosya hazırladım. İncelermisiniz.

65.000 satır veri üzerinde kendi bilgisayarımda denedim. İşlem süresi yaklaşık 20-25 saniye sürüyor.

Sanırım ADO yöntemi kullanılarak bu süre dahada kısaltılabilir.

Kullanılan kod; (Sayfanın kod bölümüne uygulayınız.)
Kod: 
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim AYIR() As String
    Dim X As Long, Y As Integer, SAY As Integer
    
    If Intersect(Target, [A1,B1,C1]) Is Nothing Then Exit Sub
    
    Application.ScreenUpdating = False
    
    If Target <> Empty Then
        Target.Activate
        AYIR = Split(Target, " ")
        For X = 3 To Range("A1").CurrentRegion.Rows.Count
            SAY = 0
            
            For Y = 0 To UBound(AYIR())
            If UCase(Replace((Replace(Cells(X, Target.Column), "i", "İ")), "ı", "I")) Like "*" & UCase(Replace((Replace(AYIR(Y), "i", "İ")), "ı", "I")) & "*" Then SAY = SAY + 1
            Next
            
            If SAY <> (UBound(AYIR()) + 1) Then
            Cells(X, "D") = False
            Else
            Cells(X, "D") = True
            End If
        Next
        
        [A2].AutoFilter Field:=4, Criteria1:=True
        Application.ScreenUpdating = True
        MsgBox "İşleminiz tamamlanmıştır.", vbInformation
    Else
        If ActiveSheet.AutoFilterMode = True Then [A2].AutoFilter
        [D3:D65536].ClearContents
        Application.ScreenUpdating = True
    End If
End Sub
 

Ekli dosyalar

Sn. Korhan hocam, tek kelime ile muhteşem. Bandun iyisi can sağlığı,elinize emeğinize sağlık. Çok teşekkür ederim. Allah Razı Olsun.
 
Selamlar,

Özel mesajınıza istinaden hazırladığım örnek dosyayı incelermisiniz.

E sütununu gizleyerek kullandım. Siz dilerseniz görünür olarak kullanabilirsiniz.

Hocam gösterdiğiniz igli için tekrar çok teşekkür ediyorum, Ben emekli polis memuruyum. Şimdilerde bir oto yedek parça toptancısında stok takip işlerine bakmaktıyım, verdiğiniz kodlar gerçekten çok kullanışlı, ayrıca benim gibi çok kişinin işine yarayacağına inanıyorum.
Acaba birden fazla sutun birleştirilmiş gibi aynı anda aradığımız kriterler değişik sutunlarda olduğu halde aynı mantıkla süzdürme yaptırabilirmiyiz diye sormak istedim. Eğer cevabınız olursa aynı konunun devamında yazarsanız sevinirim.
Tekrar teşekkür eder hayatınızda mutluluklar dilerim. Saygılar Tahsin.
Genişletmek için tıkla ...
 

Ekli dosyalar

Sn. Korhan Aylan hocam; teşekkür ederim, elineze sağlık herşey çok muhteşem olmuş.
 
Son düzenleme:
Korhan Ayhan' Alıntı:
Selamlar,

Özel mesajınıza istinaden hazırladığım örnek dosyayı incelermisiniz.

E sütununu gizleyerek kullandım. Siz dilerseniz görünür olarak kullanabilirsiniz.
Genişletmek için tıkla ...

merhaba hocam bende yaklaşık 2 gundur bu konuyla ilgili açılmış konulara bakıyordum benimde aradığm tam anlamıyla böyle bir çalışmaydı bende çok teşekkür ederim.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst