Kenarlık çizgilerini otomatikman istediğim gibi yapacak makro

[formentera]

Merhaba,

https://files.fm/u/bffkft6f

Bu link'te basit bir dosta var. Sadece öğrenmek için soruyorum.

2. ve 3. satırlar arasında kalın beyaz çizgi var. Ondan aşağıdaki gördüğünüz satır aralarındaki siyah çizgiyi o hale getirmek istiyorum. Siyah çizgi olan satırları seçip paste special - formats şeklinde yapmaktansa makro ile yapmak istiyorum.

Yani beyaz çizgiden yalnızca her 3 sonraki satır dediğim gibi olacak.

Saygılar.

 

[Korhan Ayhan]

Deneyiniz.

Sub BEYAZ_ÇİZGİ_EKLE()
    For X = 5 To Cells(Rows.Count, 1).End(3).Row Step 3
        With Range("A" & X & ":I" & X).Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .ColorIndex = 2
            .TintAndShade = 0
            .Weight = xlMedium
        End With
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[formentera]

Öncelikle çok teşekkürler Korhan Bey.

Bunu bir butona mı atamam lazım yoksa sadece sayfaya sağ tıklayıp view code'a mı yazmam gereklidir?

Çalıştıramadım da.

 

[formentera]

Tamam yaptım Korhan Bey,

Çok sağolun yardımınız için tekrar.

 

[Korhan Ayhan]

Linkleri inceleyiniz.

http://www.excel.web.tr/f157/modul-ekleme-resimli-anlatym-t73353.html
http://www.excel.web.tr/f157/sayfada-buton-duome-olu-turmak-ve-makro-atamak-t136979.html