Sutun gizleme makrosu

[f_alkan]

Ekte sorumuz mevcuttur. İlgilenen arkadaşlara tşk eder, iyi çalışmalar dilerim.

 

[hamitcan]

Sub G1G()
Columns.Hidden = False
Columns("f:n").Hidden = True
End Sub
Sub G2G()
Columns.Hidden = False
Columns("k:n").Hidden = True
Columns("a:d").Hidden = True
End Sub
Sub G3G()
Columns.Hidden = False
Columns("a:i").Hidden = True
End Sub

 

[f_alkan]

gizlediğimiz satırları tekrar açmak için sonuna tekrar kod yazabilir miyiz

 

[hamitcan]

Herhalde gizlenen sütunları kastetdiniz. Bunun için;

Sub TumSutunlariAc()
Columns.Hidden = False
End Sub