columns silme

[burhanyildirim11]

iyi geceler arkadaşlar ,


döngü kurmadan

satır veya kolon silmek için

columns(2,4,61 vs ).delete şeklinde silmek istediklerimizi virgül ile içi içe yazma gibi bir kullanım tarzı var mı

yoksa tek tek alta alta yazmak mı gerekiyor ?

teşekkür ederim

 

[askm]

Sub ASKM()
Dim Rng As Range
    Set Rng = Union(.Columns(1), .Columns(3), .Columns(5))
    Rng.Delete Shift:=xlToLeft
    
    'Yada Sütun isimleri yazarak
    'Range("D:D,F:F,G:G,H:H,I:I").EntireColumn.Delete
    
    'Yada cells ile ilk satır ve sütun numaraları yazarak
    'Range(Cells(1, 11), Cells(1, 100)).EntireColumn.Delete '1-100 sütunları siler
End Sub

 

[burhanyildirim11]

Sub ASKM()
Dim Rng As Range
    Set Rng = Union(.Columns(1), .Columns(3), .Columns(5))
    Rng.Delete Shift:=xlToLeft
   
    'Yada Sütun isimleri yazarak
    'Range("D:D,F:F,G:G,H:H,I:I").EntireColumn.Delete
   
    'Yada cells ile ilk satır ve sütun numaraları yazarak
    'Range(Cells(1, 11), Cells(1, 100)).EntireColumn.Delete '1-100 sütunları siler
End Sub

cevabınız için teşekkür ederim

kolay gelsin