Hücre renklendirmesi

Katılım
30 Kasım 2006
Mesajlar
13
Excel Vers. ve Dili
nt 2003 ingilizce
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.
 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,372
Excel Vers. ve Dili
Ofis 365 Türkçe
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

Kod:
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
 
Katılım
30 Kasım 2006
Mesajlar
13
Excel Vers. ve Dili
nt 2003 ingilizce
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:
 
Üst