Kenarlık silme

[barış34]

Belirli bir aralık tanımlamasındaki , örneğin f10:y500 , "sadece kenarlıkları" kaldıracak bir makro nasıl oluşturulabilir

[erseldemirel]

Örnek bir uygulama deneyiniz

Sub test()
Set rng = Range("F10:Y500")
For Each cell In rng
With cell.Borders
.LineStyle = xlNone
End With
Next cell
End Sub

[barış34]

Örnek bir uygulama deneyiniz

Sub test()
Set rng = Range("F10:Y500")
For Each cell In rng
With cell.Borders
.LineStyle = xlNone
End With
Next cell
End Sub

Evet Ersel bey tam böyle bir yapı çok teşekkür ederim , sorunsuz çalışıyor.

[erseldemirel]

İyi günler dilerim