Hücre İçindeki Simgelere Göre Renklendirme

[neo]

:hey:
İyi geceler Dostlar

hücre içerisinde <> bu işaret varsa rengi Mavi ve Kalın olsun ve " " içinde ki metinler de kırmızı ve Kalın olmasını sağlaya bilirmiyiz

ornek dosya ekte

 

[Levent Menteşoğlu]

Ekteki dosyayı inceleyin.

 

[neo]

Merhaba

Sayın Leventm elinize sağlık çok teşekkur ediyorum bu da işimi görür ama acaba diyorum hücreye verileri yazdıktan sonra Entere bastığımda otomatik olarak ayarlanabilirmi

Saygılarımla ,

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayın.

[vb:1:f57cbb464e]Private Sub Worksheet_Change(ByVal Target As Range)
say1 = WorksheetFunction.CountIf(Target, "*<>*")
say2 = WorksheetFunction.CountIf(Target, "*""*")
If say1 > 0 Then
Target.Font.ColorIndex = 5
Target.Font.Bold = True
End If
If say2 > 0 Then
ilk = WorksheetFunction.FindB("""", Target)
deg = Mid(Target, ilk + 1, Len(Target))
son = WorksheetFunction.FindB("""", deg) - 1
With Target.Characters(Start:=ilk + 1, Length:=son).Font
.FontStyle = "Kalın"
.ColorIndex = 3
End With
End If
End Sub[/vb:1:f57cbb464e]

 

[neo]

:hey:
Sayın Leventm çok teşekkur ediyorum sağlun

Saygılarımla Sayın Leventm