MakroYa ilave

[CenTay]

s2.Range ("A17:I59").ClearContents
Bu Koda ilave yapıp aynı aralıkta çizgileri de sildirmek istiyorum ne yapmam gerekiyor Teşekkürler

 

[TEGCreative]

s2.Range ("A17:I59").ClearContents
Bu Koda ilave yapıp aynı aralıkta çizgileri de sildirmek istiyorum ne yapmam gerekiyor Teşekkürler

Böyle dener misiniz ?

s2.Range ("A17:I59").Select
    Selection.ClearContents
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

 

[YUSUF44]

Tüm biçimlendirme ve verileri silmek için ClearContents yerine Clear kullanabilirsiniz.

Sadece kenarlıkları silmek için aşağıdaki kodları kullanabilirsiniz:

Range("A17:I59").Borders.LineStyle = xlNone

 

[CenTay]

Değerli arkadaşlar cevaplarınız ve çözümleriniz için teşekkürler sağolun

 

[Ömer BARAN]

Böyle dener misiniz ?

s2.Range ("A17:I59").Select
    Selection.ClearContents
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

Merhabalar Sayın GÜLEÇ.

Bu şekilde uzatmaya lüzum yok bence, yukarıdaki işlemi aşağıdaki tek satırlık kod da yapacaktır.
.

s2.Range("A17:I59").Borders.LineStyle = xlNone

 

[TEGCreative]

Sayın Ömer Hocam ; çizgi stillerinin farklı seçimlerle yapıldığını düşünerek tek seferde hepsinin silinemeyeceği düşüncesine girdim ve o yüzden bu şekilde bir kod verdim. Hepsini bu şekilde etkileyeceğini düşünmüyordum açıkcası. Haklısınız hem daha sade hem daha kullanışlı bir kod Sayın Yusuf44'ün kodu.