Tüm Sütunu Renklendirme

Merhaba

Excel üzerinde =HAFTANINGÜNÜ(A1;2)=7 formulünü kullanarak hücreyi renklendirebiliyorum. Yapmış olduğum puantajda pazar gününe denk gelen tüm sütunu boyamasını istiyorum. İnternette çok araştırdım ama bir çözüm bulamadım. Bu konu hakkında yardımcı olabilir misiniz.

aşağıdaki kodu dener mısiniz
hücre içeriği değiştiğinde çalışır

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Kolon() As String

Dim xStun As Range

Dim Hcr As Range

Set xStun = Range("A1:AE1")



'If Not Application.Intersect(xStun, Range(Target.Address)) Is Nothing Then

    

For Each Hcr In xStun

Kolon = Split(Hcr.Address, "$")

If Weekday(Hcr.Value, 0) = 7 Then Range(Kolon(1) & ":" & Kolon(1)).Interior.ColorIndex = 4 Else Hcr.Columns(Hcr.Column).Interior.ColorIndex = 0

Next Hcr



End Sub

Konunuz Excel sorusu olduğundan uygun alana taşınmıştır.

(03/12/2019, 19:57)berduş yazdı: aşağıdaki kodu dener mısiniz
hücre içeriği değiştiğinde çalışır

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Kolon() As String

Dim xStun As Range

Dim Hcr As Range

Set xStun = Range("A1:AE1")



'If Not Application.Intersect(xStun, Range(Target.Address)) Is Nothing Then

    

For Each Hcr In xStun

Kolon = Split(Hcr.Address, "$")

If Weekday(Hcr.Value, 0) = 7 Then Range(Kolon(1) & ":" & Kolon(1)).Interior.ColorIndex = 4 Else Hcr.Columns(Hcr.Column).Interior.ColorIndex = 0

Next Hcr



End Sub

Belirttiğiniz kodu Alt+F11 ile modül sayfasına yazdım A1 hücresinden AE1 hücresine kadar yazdım herhangi bir renklendirme olmadı.

kodu sayfa1'in modulune yapıştırmayı dener mısiniz?

(04/12/2019, 08:34)berduş yazdı: kodu sayfa1'in modulune yapıştırmayı dener mısiniz?

Alt+F11 ile olmadı sayfaya sağ tıklayıp kod görüntüle ile yaptığım zaman oldu teşekkürler.