İstenilen aralıklarda sütun gizleme

[Muhammet Okumuş]

Arkadaşlar herkese merhaba,
Bu kod ile E:H arası gizlenebiliyor. Yani 5 ile 8. sütünlar arası.

Sub Gizle()
Range("E:H").EntireColumn.Hidden = True
End Sub

Bu kodu

Sub Gizle()
x=6
y=13
Range(x & ":" & y).EntireColumn.Hidden = True
End Sub

gibi x ve y değişkenlerine göre değiştirmek istiyorum. Gizleyeceğim alanı değişken değere göre nasıl düzenleyebilirim?

 

[Necdet]

Merhaba,

Aşağıdaki gibi kod olabilir.

    Range(Cells(1, x), Cells(1, y)).EntireColumn.Hidden = True

 

[Muhammet Okumuş]

Sn Necdet Bey,
Çok teşekkür ederim. Çok işime yarayacak verdiğiniz bu bilgi.

 

[Necdet]

Rica ederim Muhammet bey,

Rows(x & ":" & y) yazılımına izin veriyor ama kolon olunca yapmıyor, bende anlamadım

 

[Muhammet Okumuş]

Satır için denememiştim. Satır için gerek olursa yukarıda belirttiğiniz kalıbı kullanırım.