Makro İle Kenar Çİzgİlerİ

[tatasoy]

100 Satirlik Bİr Fİyat Lİstesİnde A Ve B Sutunu BoŞ Olan Satirlarin Dİkey Kenar Çİzgİlerİnİ Makro İle Nasil Sİlebİlİrİz.

Yardimlariniz İÇİn Şİmdİden TeŞekkÜrler...

 

[BG]

eger dogru anladiysam, ornek yapmaya calistim dosyanız ektedir.

 

[tatasoy]

Ektekİ Örnek Dosyasinda Fİyat Lİstesİ Bulunmaktadir.
Her BÖlÜm Arasinda BoŞ Satir Bulunmaktadir.
BÖlÜm Ayrimlarini Daha İyİ GÖrebİlmek İÇİn Sadece BoŞ Olan Satirlardakİ Dİkey Kenarliklari Makro İle Kaldirmak İstİyorum.

İlgİnİze TeŞekkÜrler...

 

[Ayhan Ercan]

Merhaba

Aşağıdaki makroyu deneyiniz..

Sub kenarsil()
For i = 1 To Sheets("Sayfa1").[a65536].End(3).Row
    With Sheets("Sayfa1")
        If .Cells(i, 2) = Empty Then
            .Range("A" & i & ":F" & i).Select
            With Selection
                .Borders(xlEdgeLeft).LineStyle = xlNone
                .Borders(xlEdgeRight).LineStyle = xlNone
                .Borders(xlInsideVertical).LineStyle = xlNone
            End With
        End If
    End With
Next
End Sub

 

[tatasoy]

istedigim gibi oldu.

çok teşekkürler

 

[Ayhan Ercan]

istedigim gibi oldu.

çok teşekkürler

Rica ederim
İyi Çalışmalar.. k::