Soru Tabloyu aralığa dönüştürme kodu.

[FERAZ]

Merhaba.
Acaba Tabloyu normal aralığa dönüştürme kodu nedir.
Makro kaydet ile çıkmıyor

 

[turist]

Aşağıdaki Kodu deneyin.

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.

 

[FERAZ]

Teşekkürler tam istediğim gibi.

 

[turist]

Kolay gelsin.