Hücre renklendirmesi

[huseyinozsu]

Merhaba arkadaşlar Aşağıdaki uygulama size belki kolay gelir ama bana göre çok zor bir şey.
0-9 arası rakamların herbirine bir renk tahsis ediyoruz. Mesela 2 (Koyu Yeşil olsun) 6 (kırmızı olsun) ..... vb
ABCDE deki hücrelere 5 haneli bir rakam yazdığımda GHIJK deki hücreler renklensin örnek dosya ektedir.
iş yerimde rar programı yok zip var. Excel de yeniyim ayrıca makro hiç bilmiyorum. Şu an başında olduğum bilgisayar NT İNGİLİZCE (Yani ingilizce den fazla anlamıyorum) ve Yardımınıza ihtiyacım var.

 

[Merhum İdris SERDAR]

http://www.excel.web.tr/showthread.php?t=15017&highlight=ko%FEullu

Buradaki dosyayı inceleyin.

.

 

[Necdet]

Bende kendim yapabilirmiyim diye uğraşmıştım. Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırınız. Dosyayı da inceleyebilirsiniz

Private Sub Worksheet_Change(ByVal Target As Range)
Dim RenkDizi(9) As String
RenkDizi(0) = 2
RenkDizi(1) = 43
RenkDizi(2) = 4
RenkDizi(3) = 33
RenkDizi(4) = 5
RenkDizi(5) = 6
RenkDizi(6) = 2
RenkDizi(7) = 22
RenkDizi(8) = 7
RenkDizi(9) = 1
If Intersect(Target, [A:E]) Is Nothing Then Exit Sub
On Error GoTo Son
Target.Offset(0, 6).Interior.ColorIndex = RenkDizi(Target)
Son:
End Sub

 

[huseyinozsu]

kosullu hücre renklendirmesi

Arkadaşlar yardımlarınız için teşekkür ederim. dosyadaki rakamları değiştirdiğim halde renkler değişmedi. ya ben yapamadım. veya sorun bilgisayardan kaynaklanıyor. akşam eve gidince birde oradaki türkçe bilgisayardan denerim. Tekrar emek verdiğiniz için teşekkürler ben bu siteye ve üyelerine hayranım:icelim: