Otomatik yerine manuel renklendirme

[Tevfik_Kursun]

Merhaba Sayın Arkadaşlar,
Font renklendirme problemimi hala düzgün bir şekilde çözemedim.
Ekli örnekte sayfa1 in kod bölümünde gerekli kodlama hazır. E7:E15 arasına manuel olarak değer girerseniz E ve F sütunlarındaki ilgili satırlarda font 2 dışında 1 ile 9 arasında verdiğiniz rakama uygun olarak renkleniyor. Ama D5 teki harfi değiştirdiğinizde renkler değişmiyor.
Otomatik olmasın, komut düğmesi yardımı ile yapayım dedim. Bunun için de, sayfa1 in kod bölümüne yazdığımı boya adı ile makro yapıp modüle yerleştirdim yine olmadı.
RGB kodlarında da aynı problemi yaşadım.
Ne yaparsam bu problemi kesinlikle çözerim.
Yol gösteren olursa çok sevinirim.
Saygılarımla

 

[Emir Hüseyin Çoban]

. . .

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, [D5,E7:E15]) Is Nothing Then Exit Sub
    For i = 7 To 15
        Satir = "E" & i & ":F" & i
        Select Case Cells(i, "E")
            Case "": Range(Satir).Font.ColorIndex = 0
            Case "9": Range(Satir).Font.ColorIndex = 9
            Case "8": Range(Satir).Font.ColorIndex = 8
            Case "7": Range(Satir).Font.ColorIndex = 7
            Case "6": Range(Satir).Font.ColorIndex = 6
            Case "5": Range(Satir).Font.ColorIndex = 5
            Case "4": Range(Satir).Font.ColorIndex = 4
            Case "3": Range(Satir).Font.ColorIndex = 3
            Case "1": Range(Satir).Font.ColorIndex = 1
        End Select
    Next i
End Sub

. . .

 

[Tevfik_Kursun]

İlginize çok teşekkür ederim Hüseyin Hocam.
Yapmak istediğim renklendirme idi. Oldu, tekrar teşekkür ederim.
Sadece merak ettiğim için soruyorum. Benim hazırladığım örneğe uygun (#6478FF) hexadesimal sistemde ve de RGB değerleri (R: 100, G: 120, B: 255) ile yapılmış örnek bulmam mümkün mü? Ya da nerede bulabilirim? Emin değilim ama, sanırım benim yaptığımla grinin tonlarını kullanarak 20 den fazla renk kullanma şansım olmaz. Halbuki RGB de ve hexadesimalde 100 den fazla aynı rengin tonunu gördüm.
Saygılarımla

 

[Emir Hüseyin Çoban]

. . .

Makro kaydet ile RGB değerleri ile oluşturduğunuz renklerin kodlarını bulabilirsiniz.

. . .

 

[exel52]

üstad ben exelde yazı yazacağım yere geldiğimde nasıl renklendiririm otomatik olarak?diyelim a2 hücresinde a3 hücresine geçerken otomatik renklendirme nasıl yapabilirim.

 

[YUSUF44]

üstad ben exelde yazı yazacağım yere geldiğimde nasıl renklendiririm otomatik olarak?diyelim a2 hücresinde a3 hücresine geçerken otomatik renklendirme nasıl yapabilirim.

A2'den A3'e geçerken nerenin renklenmesini istiyorsunuz? O anda seçili olan hücrenin mi renkli olmasını istiyorsunuz?

 

[YUSUF44]

Şöyle bir kod oluşturdum. A1:E500 aralığında bir hücre ya da hücreler seçerseniz sarı renk dolgu yapar. Kodları ilgili sayfanın kod bölümüne yapıştırmanız gerekir:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, Range("A1:E500")) Is Nothing Then Exit Sub

    With Range("A1:E500").Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Target.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With

End Sub