Sub NormalYap()
Dim Tablo As Range
With Worksheets("Sayfa1").ListObjects("Tablo1")
Set Tablo = .Range
.Unlist '
End With
With Tablo
.Interior.ColorIndex = xlColorIndexNone
.Font.ColorIndex = xlColorIndexAutomatic
.Borders.LineStyle = xlLineStyleNone
End With
End Sub
Not:
Sayfa1 ve Tablo1 yazanları kendinize uyarlayın.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.