çoklu hücre içeriklerini bir metinde arama ve ...

[alooo]

Arkadaşlar,
Yapmak istediğim şeyi açıklayacak olursam;
a1:a81 hücreleri içerisinde il isimleri mevcut. b1:b500 hücresinde ise il isimleri geçen metin mevcut (Ör: Ankara'dan abim geldi.)
Benim istediğim ise; b1:b500 hücrelerinin 81 il ismine göre aranması ve hangi il ismi yazıyor ise c1:c500 hücrelerine bulduğu ili yazması.

komutlar ile her hücreye formül yazıldığı zaman hem yer hem zaman kaybı söz konusu. Zira bu işlemi ilçelere göre (yaklaşık 900 adet) yapmam gerek.

Bu hususta kafa yoran (yardımcı olsun veya olmasın) arkadaşlara şimdiden teşekkür ederim.

(Yükleyeceğiniz örnek dosya söz konusu ise forum dışı alanlara yükleyerek link vermenizi rica ederim.)

Örnek dosya: http://dosya.co/2ik8d3s45bz9/ornek.xlsx.html

 

[askm]

Aşağıdaki gibi deneyin.

Sub ASKM_Kelime Bul()
Dim SonSatir, SonSatir2 As Long
Dim Aranan As String
SonSatir = Range("A" & Rows.Count).End(xlUp).Row
SonSatir2 = Range("A" & Rows.Count).End(xlUp).Row
On Error Resume Next
    
    Application.ScreenUpdating = False
    
    For i = 1 To SonSatir
        Aranan = Cells(i, "A")
        For k = 1 To SonSatir2
            Sayi = WorksheetFunction.CountIf(Cells(k, "B"), "*" & Aranan & "*")
            If Sayi = 1 Then
                Cells(k, "C") = Aranan
            End If
        Next k
    Next i

    Application.ScreenUpdating = True
    MsgBox "İşlem Tamam...", vbCritical, "ASKM"
End Sub
[\code]

 

[alooo]

Teşekkürler üstadım bir kaç ayarlama sonrası işimi gördü. Sağ olasın.

(KONU KİLİTLENEBİLİR)

 

[askm]

Rica ederim. Kolay gelsin.

 

[alooo]

Üstadım,
konuyla ilgili olarak "seyhan" ise içerikte sadece "seyhan" kelimesini nasıl aratırız? Zira, "han" denilen bir ilçe var ve "seyhan" içinde bunu bulduğundan "han" olarak getiriyor.

Özetle aranılan neyse onu getirmemiz mümkün müdür?

 

[askm]

Örnek dosya eklerseniz yardımcı olayım.