Kelime içermeyen cümleyi bulma

[emre8456]

Arkadaşlar merhaba
A sütununda kelimleler , B sütununda ise cümleler var. A sütunundaki kelimelerden herhangi birini içermeyen cümlenin rengi sarı olsun. Bunu nasıl yapabilirim

 

[Asri]

Makro ile çözümü;

Sub yoksaboya()
  sonsatira = Cells(Rows.Count, "A").End(3).Row
  sonsatirb = Cells(Rows.Count, "B").End(3).Row

  kelimeler = Range("A1:A" & sonsatira)
  cumleler = Range("B1:B" & sonsatirb)
  For i = 1 To UBound(cumleler)
     If cumleler(i, 1) <> "" Then
        cumlekelimeler = Split(cumleler(i, 1), " ")
        buldu = False
        For j = 1 To UBound(kelimeler)
           kelime = kelimeler(j, 1)
           For k = 0 To UBound(cumlekelimeler)
               cumlekelime = cumlekelimeler(k)
               If kelime = cumlekelime Then
                  buldu = True
                  Exit For
               End If
           Next k
           If buldu Then Exit For
        Next j
        If buldu = False Then
           Cells(i, "B").Interior.Color = vbYellow
        Else
           Cells(i, "B").Interior.Color = xlNone
        End If
     End If
  Next i
End Sub

 

[ÖmerBey]

Merhaba,
Alternatif:
B sütununu seçip koşullu biçimlendirmeye aşağıdaki formülü uygulayınız.

=VE(B1<>"";TOPLA.ÇARPIM(($A$1:$A$1000<>"")*EĞERSAY(B1;"*"&$A$1:$A$1000&"*"))=0)

 

[emre8456]

Makro ile çözümü;

Sub yoksaboya()
  sonsatira = Cells(Rows.Count, "A").End(3).Row
  sonsatirb = Cells(Rows.Count, "B").End(3).Row

  kelimeler = Range("A1:A" & sonsatira)
  cumleler = Range("B1:B" & sonsatirb)
  For i = 1 To UBound(cumleler)
     If cumleler(i, 1) <> "" Then
        cumlekelimeler = Split(cumleler(i, 1), " ")
        buldu = False
        For j = 1 To UBound(kelimeler)
           kelime = kelimeler(j, 1)
           For k = 0 To UBound(cumlekelimeler)
               cumlekelime = cumlekelimeler(k)
               If kelime = cumlekelime Then
                  buldu = True
                  Exit For
               End If
           Next k
           If buldu Then Exit For
        Next j
        If buldu = False Then
           Cells(i, "B").Interior.Color = vbYellow
        Else
           Cells(i, "B").Interior.Color = xlNone
        End If
     End If
  Next i
End Sub

Sayın Asri teşekkürler
Kodlar sorunsuz çalıştı

 

[emre8456]

Merhaba,
Alternatif:
B sütununu seçip koşullu biçimlendirmeye aşağıdaki formülü uygulayınız.

=VE(B1<>"";TOPLA.ÇARPIM(($A$1:$A$1000<>"")*EĞERSAY(B1;"*"&$A$1:$A$1000&"*"))=0)

Sayın Ömer Bey Teşekkür ederim.
Formül işe yaradı