Aktif Hücre Renklendirme

[veysikulte1]

arkadaşlar yardımcı olurmusunuz aktif hücredeyken seçili alan sarı oluyor fakat hücrede sarı renkte yazı varsa veya sarıya boyanmışsa o rengi gösterebilecek şekilde nasıl bir kod ekleyebiliriz ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A9:P30]) Is Nothing Then Exit Sub
On Error GoTo son
Cells.Interior.ColorIndex = xlNone
Range(Cells(Target.Row, 1), Cells(Target.Row, 16)).Interior.ColorIndex = 6
son:
End Sub

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = xlNone
    If Intersect(Target, [A9:P30]) Is Nothing Then Exit Sub
    On Error GoTo Son
    Adres = "A" & Target.Row & ":P" & Target.Row
    For Each Veri In Range(Adres)
        If Veri.Font.ColorIndex = 6 Then
            Kontrol = True
        End If
    Next
    If Kontrol = True Then
        Range(Adres).Interior.ColorIndex = 12
    Else
        Range(Adres).Interior.ColorIndex = 6
    End If
Son:
End Sub

 

[veysikulte1]

bu kodları yaparken kırmızıya boyadığım alanların rengi kayboluyor beyaz oluyor bi hücreyi kırmızı bırakamıyoruz bakabilirmisiniz

 

[Korhan Ayhan]

Maalesef bu kodlar sayfadaki diğer renkleri siler. Bu sebeple bu işlemi koşullu biçimlendirme ile yapmanız daha sağlıklı olacaktır. Eğer sayfanızda aynı alan için koşullu biçimlendirme ile renklendirme kullanıyorsanız son önerimde işe yaramayacaktır.

 

[veysikulte1]

koşullu biçimlendirme kullanmıyorum işaretlemek amacıyla kırmızıya boyuyorum hücreyi. peki nasıl yapabiliriz

 

[adigeturklim]

Merhaba Veysikulte1 excel sayfasında arkaplan resmi belirleyip (tek renk) Korhan Bey' in yazdığı kodları bu şekilde uygulamaya almanız işe yarayabilir. İyi günler