koşullu biçimlendirmede kelime belirleme

[lonely_women]

bir hücreye birden farklı sayı yada kelime girdiğimde farklı bir hücrede renk değişmesin ama istediğim kelime belirsin bir kaç kombinasyon denedim lakin hata verdi yardımcı olursanız müteşekkir kalırım

 

[hasankardas]

Merhaba Sorunuzu biraz daha net yazar mısınız?
bir hücreye= hangi hücre?
sayı rakam veya kelime=? nedir
başka hücre=hangi hücre?
başka bir hücre de renk değişmeyecekse kouşllu biçimlendirme ile bağlantısı nedir?

ne yapmak istediğinizi daha anlaşır yazabilirseniz çözüme ulaşacaktır

 

[leguminosea]

Makro ile olursa;
sayfanın A1 hücresine seçtiğiniz kelimeyi girin.
başka herhangi bir hücreye bu kelimeyi içeren bir veri girin.
kalın ve kırmızı renkli olacaktır.
o kelimeyi metinden çıkardığınızda metin normale dönecektir.

bunun için aşağıdaki kodu sayfanın kod bölümüne yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    bul = WorksheetFunction.Find(UCase(Cells(1, 1)), UCase(Target),1)
    If bul = Empty Then
        With Target.Font
            .FontStyle = "Normal"
            .ColorIndex = xlAutomatic
        End With
        Else
        With Target.Characters(bul, Len(UCase(Cells(1, 1)))).Font
            .FontStyle = "Bold"
            .Color = vbRed
        End With
    End If
End Sub