koşullu biçimlendirme metin parçası için

[modoste]

merhaba sayın hocalarım
A1 hücresinde = "bölgenin en önemli geliri turizm" yazmakta B1 hücresine "rizm" yazdığımda koşullu biçimlendirme ile içinde "rizm" geçen hücreyi boyama yada toplama gibi işlemler yapılıyordu

şimdi sormak istediğim şu
B1= rizm yazdığımda
A1=bölgenin en önemli geliri turizm
böyle bir sonuç görmek istiyorum, biçimlendirme ile hücrenin tamamını boyama vs değilde ilgili metin parçasını renklendirme boyut verme gibi ama aklıma birşey gelmedi

 

[Necdet]

Merhaba,
KB ile olacağını sanmıyorum (olasılıklı konuşuyorum yeni sürümler çıktıkça ne olur bilemem) ama makro ile olası.

 

[modoste]

makrolu çözümde olabilir

resme göre O5 hücresine metin parçası yazıldığında P6 hücresindeki bir yada birden fazla metinsel ifadeler kırmızı kalın renkle belirlensin, sarı dolguda olsun

 

[Necdet]

Merhaba,
Aşağıdaki kod B1 hücresindeki değeri tüm A sütununda arar, bulduğunda renklendirir.

Siz kendinize göre de uyarlayabilirsiniz

Public Sub Bicimlendir()

Dim i As Long, _
    j As Integer, _
    uzunluk As String, _
    aranan As String, _
    hedef As String

aranan = UCase(Replace(Replace(Trim(Range("B1")), "ı", "I"), "i", "İ"))
uzunluk = Len(aranan)
For i = 1 To Cells(Rows.Count, "A").End(3).Row
    hedef = UCase(Replace(Replace(Cells(i, "A"), "ı", "I"), "i", "İ"))
    j = InStr(1, hedef, aranan, vbTextCompare)
    If j > 0 Then
        With Range("A" & i).Characters(j, uzunluk).Font
            .Bold = True
            .ColorIndex = 3
            .Size = 14
        End With
    End If
Next i

End Sub