Makro ile aralığa dönüştür

[ØjousefØ]

Merhaba,

Tabloyu " ARALIĞA DÖNÜŞTÜR" seçeneği ile aynı işlemi makro ile yapabilir miyim.

Teşekkürler.

 

[Muhammet Okumuş]

Makro kaydet ile deneyebilirsiniz.

 

[ØjousefØ]

Makro kaydet ile deneyebilirsiniz.

Makro kaydet ile denemiştim ama bir sonuç elde edemedim çünkü aralığa dönüştür dediğimde visual basic editöründe işlem yapılmış görünmüyor

 

[Muhammet Okumuş]

O zaman kod yazmalısınız.

 

[ØjousefØ]

O zaman kod yazmalısınız.

Aynı işlemi yapacak bir kod malesef yazamadım.

 

[Muhammet Okumuş]

Dosyayı paylaşın hocam. Yapılabilecek bir makro ise yazmaya çalışırız.

 

[Korhan Ayhan]

Aşağıdaki gibi deneyiniz.

Sub Makro1()
    Dim Tablo As Range

    With Worksheets("Sayfa1").ListObjects("[COLOR="Red"]Tablo1[/COLOR]")
        Set Tablo = .Range
        .Unlist
    End With
    
    With Tablo
        .Interior.ColorIndex = xlColorIndexNone
        .Font.ColorIndex = xlColorIndexAutomatic
        .Borders.LineStyle = xlLineStyleNone
    End With
End Sub

 

[ØjousefØ]

Çok teşekkür ederim Korhan Bey tam olarak istediğim buydu