Kapalı Sütunları Sil

[baydeniro]

Merhaba arkadaşlar. Bir dosyada kapalı sütunları makro ile silmek mümkün mü ?

 

[fireman64]

Sayfa üzerindeki butona bu makroyu tanımlayın
Range("C:C,F:F,H:H").Select
Selection.Delete Shift:=xlToLeft

 

[baydeniro]

Sayın prens24, ilginize teşekkür ederim. Kod şöyle olabilir mi ? Sütun genişliği sıfır ise sütunu silsin !!

 

[Emir Hüseyin Çoban]

. . .

Sub kod_bir()
Application.ScreenUpdating = False

For i = 256 To 1 Step -1

If Columns(i).EntireColumn.Hidden = True Then
Columns(i).Delete
Else
End If
Next i

Application.ScreenUpdating = True
MsgBox " B i t t i "
End Sub

. . .

 

[baydeniro]

Fevkalede bir kod sayın Hüseyin Çoban. Çok teşekkür ederim.