hücre rengi verilmemiş hücreye X işaretini koyma(nöbet)

[kadr]

ekte gönderdiğim dosyada A3 hücresinden isimler seçiliyor ve yıl ve ay seçimi yapılıp hafta sonları renklendiriliyor. Benim yapmak istediğim ayın başında sırası ile isimleri belirleyip ay içerisindeki hafta sonlarını bayram tatillerini renklendirip kalan boş renksiz kısımlarım ayın 1 itibaren X ile işaretlenmesi şimdiden teşekkürler

 

[Emir Hüseyin Çoban]

. . .

Aşağıdaki kodları deneyiniz.
Not: Tablonuzdaki kodlar örneğin resmi tatil olan 30 Ağustos' u renklendirmiyor ve 31 gün olan aydan sonra 30 günlük ay seçildiğinde AH sütunu kalıyor. AH sütunundaki tarihi siliniz.

Sub KOD()
Application.ScreenUpdating = False
son = [A65536].End(3).Row
Range("D3:AH" & son).ClearContents

For i = 3 To [A65536].End(3).Row

If Cells(i, "A") <> "" Then

For a = 4 To 34
    
If Cells(2, a) <> "" Then
    If Cells(i, a).Interior.ColorIndex = xlNone Then
    Cells(i, a) = "X"
    End If
End If
    Next a
    
End If
Next i

Application.ScreenUpdating = True
MsgBox " B i t t i "
End Sub

. . .

 

[kadr]

Sayın hüseyin bey cevabınız için teşekkürler
ayın 31 çekmesi halinde bir sonraki ay 30 olduğu için 31 kalıyor onun için temizleme butonu koymuştun bu konuyu o şekilde hallettim fakat resmi ve dini tatilleri nasıl halledeceğim konusunda yardım ederseniz sevinirim.

 

[Emir Hüseyin Çoban]

. . .

Manuel olarak kendiniz sarıya boyaya bilirsiniz. Çok zahmetli olacağını düşünmüyorum.

. . .

 

[kadr]

manuel olarak boyamak kolay olur liste bu kadar olsa ve bundan ibaret olsa idi ilginiz için teşekkürler