Tüm Sütunu Renklendirme

ByChilavert

Excel Cevaplanmış Soruları

1223

04/12/2019, 07:53 #4

Aktif Üye

ByChilavert

Bul

Aktif Üye

Adı Soyadı:

Yaşı: 41

Konum:

Ofis Versiyonu:

Son Oturumu: 15/01/2022,10:30

Yorumları: 82

Konuları: 14

Kayıt Tarihi: 06/08/2019

Teşekkür Puanı: 0

(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ı.

Cevapla