Üç satır arayla koşullu biçimlendirme

[Feylosof]

İyi geceler diliyorum.
Ekteki çalışmamda 5. satırdan başlamak üzere her üç satır arayla ki bu B sütununda bulunana birleştirilmiş hücrelerde bulunan isimleri çevreleyecek şekilde kalın çizgi ile çevreleyecek bir vba koda ihtiyacım var. Aynı şekilde haftanın günlerini de çevreleyecek ve bu işlem diğer satırlar arasında gözle ayrımı kolaylaştırmayı sağlayacak.
Şimdiden excel dostlarına teşekkür ederim.

 

[Feylosof]

Konu günceldir.

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz.
Daha kalın çizgi isterseniz koddaki xlMedium yerine xlThick kullanınız.

Sub kod()
sonsat = Cells(Rows.Count, "B").End(3).Row + 2
sonsut = Cells(3, Columns.Count).End(1).Column
Application.ScreenUpdating = False
For a = 1 To sonsat Step 3
    Range(Cells(a, 1), Cells(a, sonsut)).Borders(xlEdgeBottom).Weight = xlMedium
Next
For a = 5 To sonsut Step 8
    Range(Cells(2, a), Cells(sonsat, a)).Borders(xlEdgeRight).Weight = xlMedium
Next
Application.ScreenUpdating = True
End Sub

 

[Feylosof]

Değerli üstadım @ÖmerBey çok teşekkür ediyorum. Var olun. Hemen deniyorum.