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ışırPrivate 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.