Isim girildiğinde hücre renklensin

[naciidem]

Merhabalar;
Benim öğrenmek istediğim konu şu:
Excelde bir hücreye bir isim yazdığımda (örneğin AHMET), hücre renginin (örneğin) kırmızı olmasını istiyorum.
Yardımlarınız için teşekkür ederim.

 

[Recep İpek]

Merhaba,

Sadece isim mi?Yoksa herhangi bir veri girildiğinde mi renklendirme olsun?

 

[Korhan Ayhan]

Selamlar,

Mouse ile bu işlemi uygulayacağınız hücre aralğını seçin.
BİÇİM-KOŞULLU BİÇİMLENDİRME menüsünü açın.
İlk kutucuktan FORMÜL seçeneğini seçin.
Yandaki kutucuğa seçtiğiniz alandaki ilk hücrenin adresini vererek aşağıdaki formülü girin.

=[COLOR=red]A1[/COLOR]="AHMET"

BİÇİM butonuna tıklayın ve DESENLER sekmesinden KIRMIZI rengi seçip tamam tuşlarına tıklayarak işlemi tamamlayın.

 

[naciidem]

İlginiz için çok teşekkür ederim.
Ancak biçimli koşullandırmada başka bir isim girildiğinde örneğin bir hücreye Ahmet, başka bir hücreye de Ali yazıldığında Ahmet yazdığımız hücrenin rengi kayboluyor. Ben girdiğimiz tüm adların ayrı ayrı hücrelerde farklı renklerde olmasını istiyorum.

Sadece isim girdiğimde renklendirme olsun.

 

[Korhan Ayhan]

Selamlar,

Koşul sayınız kaç bu çok önemli. Eğer üçten fazla ise makro kullanmak gerekebilir. Örnek dosya ekleyerek yapmak istediğiniz işlemi açıklarmısınız.

 

[naciidem]

Hücre reklendirme

Sayın Korhan Ayhan;
Aradığım sonucu forumu gezerken buldum.
Aşağıdaki makro ile istediğim sonucu elde ettim. (Makroda isimleri ben değiştirdim.)
Hangi arkadaşımızın yazdığına dikkat edemedim. Ancak emeği için onun adına size teşekkür ederim

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Target.Cells.Count > 1 Then Exit Sub
On Error GoTo ws_exit:
Set rng = Application.Intersect(Target, Me.Range("a1:f11"))
If rng Is Nothing Then Exit Sub
With Target
Select Case .Value



Case Is = "ARİF": .Interior.ColorIndex = 4
Case Is = "FATİH": .Interior.ColorIndex = 5
Case Is = "ERKAN": .Interior.ColorIndex = 6
Case Is = "ERTAN": .Interior.ColorIndex = 7
Case Is = "BÜNYAMİN": .Interior.ColorIndex = 8


Case Else
.Interior.ColorIndex = xlNone
End Select
End With

ws_exit:
End Sub