Kenarlık Çizgisi

[betoncu]

Ayın gününe (ay 31 gün çekiyorsa BB-BD arası, ay 30 gün çekiyorsa BB-BC arası, ay 29 gün çekiyorsa BB sütununda) göre BB2 ile BD53 arasındaki hücrelerde kenarlık olmasını istiyorum.
Yardımlarınızı bekliyorum...

Örnek dosya ektedir...

 

[Levent Menteşoğlu]

Koşullu biçimlendirme ile çözüm bulunan dosyanız ektedir.

 

[betoncu]

Levent bey teşekkür ederim. VBA kod ile bu işlemi yapabilirmiyiz...

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub KENARLIK()
    Range("BA2:BD53").Borders.LineStyle = 0
    
    For Each Tarih In Range("BA4:BD4")
        Select Case Day(Tarih)
            Case 31
                Range("BA2:BD53").Borders.LineStyle = 1
            Case 30
                Range("BA2:BC53").Borders.LineStyle = 1
            Case 29
                Range("BA2:BB53").Borders.LineStyle = 1
            Case 28
                Range("BA2:BA53").Borders.LineStyle = 1
        End Select
    Next
End Sub

 

[betoncu]

Korhan bey teşekkür ederim...