Hücre İçindeki Simgelere Göre Renklendirme

neo

Katılım
24 Ağustos 2004
Mesajlar
287
: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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Ekteki dosyayı inceleyin.
 

neo

Katılım
24 Ağustos 2004
Mesajlar
287
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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

Katılım
24 Ağustos 2004
Mesajlar
287
:hey:
Sayın Leventm çok teşekkur ediyorum sağlun

Saygılarımla Sayın Leventm
 
Üst