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

[Korhan Ayhan]

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.)

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

 

[tahsinanarat]

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.

 

[Korhan Ayhan]

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.

 

[tahsinanarat]

Sn. Korhan Aylan hocam; teşekkür ederim, elineze sağlık herşey çok muhteşem olmuş.

 

[cihan41]

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.

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.

 

[cihan41]

biraz erken konuştum galiba sorunu çözemedim
http://www.excel.web.tr/f14/textbox-ta-suzmede-hata-t61490.html

 

[BİYE7]

merhaba,

xyz@xyz.com
xyz@xyz.com
xyz@xyz.com
yzx@yzx.com
tzu@tzu.com
kou@kou.com
lou@lou.com
kat@kat.com

bunun gibi bir listede aynı olan mail adreslerinden sadece bir tanesi kalsın diğer aynı olanlar silinsin istiyorum, ancak bu çok zaman alıyor, bunun kısa bir yolu var mıdır ?

cevaplarınızı acil bekliyorum şimdiden teşekkür ediyorum