Renk Kodu 1 ve 5 in dışındaki Renklere izin Verme

[baydeniro]

Merhaba arkadaşlar. Makro ile bir sayfaya yapılacak girişler için 1 (siyah) ve 5 (mavi) renk kodundan başka font rengi seçilememesi sağlanabilir mi ?

 

[baydeniro]

Arkadaşlar bu konuda bilgisi olan var mı !!

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Font.ColorIndex <> 1 And Target.Font.ColorIndex <> 5 Then
[A1].Select
End If
End Sub

 

[baydeniro]

Sayın N.Ziya Hiçdurmaz. Yardımlarınız için çok teşekkür ederim. Allah sizleri başımızdan eksik etmesin.

Kodun bulunduğu sayfada cursor A1 hücresinden başka bir hücreye gitmiyor.

 

[baydeniro]

Sayın N.Ziya Hiçdurmaz. Yardımlarınız için çok teşekkür ederim. Allah sizleri başımızdan eksik etmesin.

Kodun bulunduğu sayfada cursor A1 hücresinden başka bir hücreye gitmiyor.