Soru Excel'de Kelime Eşleme Mümkün Mü?

[akmerttan]

Merhabalar,
Yapmak istediğim; Sayfa1 yazılmış olan A1:C3 e kadar olan hücredeki kelimeleri tek değer olarak alıp, sayfa2 yazılmış olan hücre içindeki cümlede bu değerleri bulup; eğer varsa kendini sarıya boyamasını yapmak istiyorum.

SAYFA1

SAYFA2

Örnek verecek olursam; Sayfa1 A1 hücresinde "adana" değeri var. Bu değeri Sayfa2 de B1:C3 arasındaki hücrelerde, hücre içinde kelimeyi bulup eğer varsa hücre boyansın.
2. Örnek; Sayfa1 de ki C2 hücresi "denize gitmek güzeldir" değerinin Sayfa2 de B1:C3 arasındaki hücrelerde, hücre içinde kelimeyi bularak, yani Sayfa2 C:2 de "mersinde denize gitmek güzeldir" hücre içinde bu cümle geçtiği için, Sayfa1 deki C2 hücresi kendini boyasın.

Sonuç;

Çok karışık olmamıştır umarım teşekkürler.

 

[hayri13]

Merhaba
isteğiniz bu şekildemi
https://easyupload.io/yskbqw (şifresiz)

 

[excelokyanus500]

Örnek...

Sub Makro1()

    Application.ScreenUpdating = False
    Zaman = Timer

    Son = Cells(Rows.Count, 1).End(3).Row
    
   Veri = Sheets("Sayfa1").Range("A1:C" & Son).Value
    
    For Each hucre In Veri
      
     aranan = hucre
  
    For Each hucrediger In Sheets("Sayfa2").UsedRange
    pos = InStr(hucrediger, aranan)
    If pos > 0 Then
        hucrediger.Characters(Start:=pos, Length:=Len(aranan)).Font.Color = vbRed

        hucrediger.Characters(Start:=pos, Length:=Len(aranan)).Font.Bold = True
    End If
  Next
    Next
   Application.ScreenUpdating = True
    MsgBox "İşleminiz tamamlanmıştır." & Chr(10) & Chr(10) & _
           "İşlem süresi ; " & Format((Timer - Zaman), "0.00") & " Saniye"
End Sub

 

[akmerttan]

Merhaba
isteğiniz bu şekildemi
https://easyupload.io/yskbqw (şifresiz)

Evet ustad bu, sabah uzun yoldan da olsa yaptım, e-tablolar yükledim çalıştı.