Sütun gizleme makro hata

[telefoncuk]

Arkadaşlar merhaba,
Sürekli yaptığım sütun gizleme işlemi için bir makro yazdım aşağıdaki gibi. Yalnız boş bir workbook'da istediğim gibi çalışırken, eklediğim dosyada istemediğim sütunları da gizliyor. Neden olabilir?

Şimdiden yardımlarınız için çok teşekkürler,

Sub sakla()
Range("B:B,E:E,G:H,J:L,O:O,S:U,W:Y,AD:AE").Select
Selection.EntireColumn.Hidden = True
End Sub

 

[Muzaffer Ali]

Siz hangi kolonları gizlemek istemediğiniz halde bu kodlar gizliyor?

 

[telefoncuk]

İstenmediği halde gizlenen sütunlar;
A, C, F, I.

Teşekkürler,

 

[Muzaffer Ali]

Ben şimdi denedim gizlenmesini istemediğiniz sütunların hiçbiri gizlenmiyor.

 

[telefoncuk]

Eklediğim dosyada mı denediniz, yoksa başka bir dosyada mı?

 

[andruil]

Sub sakla()
Range("B:B,E:E,G:H,J:L,O:O,S:U,W:Y,AD:AE").EntireColumn.Hidden = True
End Sub

selection yazmanıza gerek yok ama yazmanız da sonucu değiştirmez. göndermiş olduğunuz excel'de test ettim problem görünmüyor.

 

[Muzaffer Ali]

Eklediğim dosyada mı denediniz, yoksa başka bir dosyada mı?

Eklediğiniz dosyada denedim.

Sizin dosyanızda VBA kod kısmı tamamen boş, belki bir yerlerde başka bir gizleme kodu çalışması da mümkün değil.

Belkide orijinal dosyanızda bu gizleme kodları çalışırken başka yerde bulunan kodlar gizlenmesini istemediğiniz kolonları gizliyordur.

 

[McDregin]

Sub sakla()
Range("B:C,E:I,K:O,Q:U,W:AA,AC,AD:AG,AI:AM,AO:AS,AU:AY,BA:BE,BG:BK,BM:BQ,BS:BW,BY:CC,CE:CI,CK:CQ:CT,CV:CX").EntireColumn.Hidden = True
End Sub

Yazdım "400" Hata kodu verdi.