Soru EXCEL'DE İSTENMEYEN SUTÜNLARI SİLME

[dawy]

Merhabalar Arkadaşlar

Bir Excel tablom var, belirsiz aralıklarla çok fazla istenmeyen sütun var( bana gerekli 15 başlık olması gerekiyor yaklaşık 80 başlık var)
Bunları aralarında boşluk olmayacak şekilde nasıl silebilirim.

Yardımlarınızı rica ederim.

 

[Hakan ERDOST]

Ekteki dosyayı inceleyiniz. Not; istenmeyen sütundan boş sütun olduğu varsayımı ile hareket edilmiştir.

 

[dawy]

teşekkür ederim

sütunlarda veri var boş değil,altın üye olmadığım için sanırım belgeyi indiremiyorum başka şekilde yardımcı olabilir misiniz

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Sutun_Sil()
    With Sheets("Sheet1")
        .Range("A:A,E:E,I:I,M:M,Q:Q").EntireColumn.Delete
    End With

    MsgBox "Silme işlemi tamamlanmıştır.", vbInformation
End Sub

 

[dawy]

Deneyiniz.

Option Explicit

Sub Sutun_Sil()
    With Sheets("Sheet1")
        .Range("A:A,E:E,I:I,M:M,Q:Q").EntireColumn.Delete
    End With

    MsgBox "Silme işlemi tamamlanmıştır.", vbInformation
End Sub

Hocam çok teşekkür ederim.