• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

Katılım
24 Temmuz 2019
Mesajlar
484
Excel Vers. ve Dili
EXCEL 2010 TÜRKÇE
İ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.
 

Ekli dosyalar

Merhaba,
Aşağıdaki kodu deneyiniz.
Daha kalın çizgi isterseniz koddaki xlMedium yerine xlThick kullanınız.
Kod:
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
 
Değerli üstadım @ÖmerBey çok teşekkür ediyorum. Var olun. Hemen deniyorum.
 
Geri
Üst