• DİKKAT

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

Sutun gizleme makro ile

Katılım
7 Ekim 2015
Mesajlar
82
Excel Vers. ve Dili
2007
abc sütunlarında bulunan formüllere göre oluşan bir grfiğim var abc sütünlarını makro ile gizlemek istiyorum gerektiğindede göstermek istiyorum.Forumda bulduğum makroları uyguladığımda sütunlar gizlenince grfk te bozuluyor bu konuda yardımcı olurmusunuz.ayrıca sayfa gizleme ve göster makrosuda verirseniz çok sevinirim.saygılarımla
 
sayfa gizle ve gösteri hallettim 3 sayfam var aşşağıdaki ile yaptım ancak ilk sorumu yapamadım yardımlarınızı bekliyorum


Sub GÖSTER()
sifre = InputBox("Lütfen şifrenizi giriniz.")
If sifre = "" Then Exit Sub
If sifre = "12345" Then
Sheets("VERİ").Visible = True
Sheets("SON").Visible = True
Sheets("LİSTE").Select
Range("B2").Select
Else:
MsgBox "Yanlış şifre girdiniz. Kodlar çalışmayacak."
End If
End Sub
Sub GİZLE()
sifre = InputBox("Lütfen şifrenizi giriniz.")
If sifre = "" Then Exit Sub
If sifre = "12345" Then
Sheets("veri").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("son").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("LİSTE").Select
Range("B2").Select
Else:
MsgBox "Yanlış şifre girdiniz. Kodlar çalışmayacak."
End If
End Sub
 
. . .

Kod:
Sub GÖSTER()
    sifre = InputBox("Lütfen şifrenizi giriniz.")
    If sifre = "" Then Exit Sub
    If sifre = "12345" Then
      [COLOR="DarkGreen"]  'Sheets("VERİ").Visible = True
        'Sheets("SON").Visible = True
        'Sheets("LİSTE").Select
        'Range("B2").Select[/COLOR]
        [COLOR="DarkRed"]Columns("A:C").EntireColumn.Hidden = False[/COLOR]
    Else
        MsgBox "Yanlış şifre girdiniz. Kodlar çalışmayacak.", vbCritical
    End If
End Sub
Sub GİZLE()
    sifre = InputBox("Lütfen şifrenizi giriniz.")
    If sifre = "" Then Exit Sub
    If sifre = "12345" Then
        [COLOR="darkred"]Columns("A:C").EntireColumn.Hidden = True[/COLOR]
       [COLOR="darkgreen"] 'Sheets("veri").Select
        'ActiveWindow.SelectedSheets.Visible = False
        'Sheets("son").Select
        'ActiveWindow.SelectedSheets.Visible = False
        'Sheets("LİSTE").Select
        'Range("B2").Select[/COLOR]
    Else
        MsgBox "Yanlış şifre girdiniz. Kodlar çalışmayacak.", vbCritical
    End If
End Sub

. . .
 
Ben düzenlemeye çalıştım ama olmadı. Beceremedim.
Kod:
[CODE]Sub GÖSTER()
    sifre = InputBox("Lütfen şifrenizi giriniz.")
    If sifre = "" Then Exit Sub
    If sifre = "12345" Then
        'Sheets("VERİ").Visible = True
        'Sheets("LİSTE").Select
        'Range("Z2").Select
        Columns("M:R").EntireColumn.Hidden = False
    Else
        MsgBox "Yanlış şifre girdiniz. Kodlar çalışmayacak.", vbCritical
    End If
End Sub
Sub GİZLE()
    sifre = InputBox("Lütfen şifrenizi giriniz.")
    If sifre = "" Then Exit Sub
    If sifre = "12345" Then
        Columns("M:R").EntireColumn.Hidden = True
        'Sheets("veri").Select
        'ActiveWindow.SelectedSheets.Visible = False
        'Sheets("son").Select
        'ActiveWindow.SelectedSheets.Visible = False
        'Sheets("LİSTE").Select
        'Range("Z2").Select
    Else
        MsgBox "Yanlış şifre girdiniz. Kodlar çalışmayacak.", vbCritical
    End If
End Sub
[/CODE]
 

Ekli dosyalar

Geri
Üst