Sütun gizleme

[turunc]

Arkadaşlar mesaili puantaj tutuyorum işin içine mesai de karışınca işler biraz karışık oluyor bir tuşa bastığımda bütün mesai sütunlarının gizlenmesini istiyorum bunu nasıl yapabilirim şimdiden teşekkürler.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub gizle()
Dim i As Byte
For i = 2 To 8 Step 2
    Columns(i).Hidden = True
Next
End Sub
Sub goster()
Dim i As Byte
For i = 2 To 8 Step 2
    Columns(i).Hidden = False
Next

End Sub

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub GIZLE()
Dim SAT As Byte
For SAT = 1 To 100
If Cells(1, SAT) = "Mesai" Then
Columns(SAT).Hidden = True
End If
Next
End Sub
Sub GOSTER()
Dim SAT As Byte
For SAT = 1 To 100
Columns(SAT).Hidden = False
Next
End Sub

 

[turunc]

çok teşekkürler tam olarakda istediğim buydu.