rengarenk

Katılım
21 Ağustos 2006
Mesajlar
41
Excel Vers. ve Dili
2010 TR
Merhaba,

bir sutunda yukarıdan aşağıya doğru alt alta yazılmış ali-ali-ai-veli -zeki-zeki-ayşe-ayşe gibi ibareler var . yukarıdan aşağı doğru inerken her isim değiştiğinde bu grupların otomatik olarak farklı renge boyanmasını istiyorum .

teşekkürler.

not:dosya ekleyemediğim için yazarak anlattım.
 
Katılım
2 Mart 2007
Mesajlar
603
Excel Vers. ve Dili
2003
Metin ler deki değişkenlerin sayısı önemli çünkü excel de kullanılabilir bir renk sayısı var.(Sanırım 255 di)
Ali ve veli verisinine göre A:A aralığına renk verir.
makro lu bir çözüm

Sub renkver()
Set St = Range("A:A")
Dim hucre As Range
For Each hucre In St
If hucre = "Ali" Then
hucre.Font.ColorIndex = 2
hucre.Interior.ColorIndex = 3
End If
If hucre = "veli" Then
hucre.Font.ColorIndex = 5
hucre.Interior.ColorIndex = 6

End If
Next
End Sub
 
Üst