• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Sütun gizleme

Katılım
10 Mayıs 2006
Mesajlar
27
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.
 
Ekli dosyayı inceleyiniz.:cool:
Kod:
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
 
Yanıt

Kod:
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
 
çok teşekkürler tam olarakda istediğim buydu.
 
Geri
Üst