Sutun gizleme makro ile

[torik52]

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

 

[torik52]

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

 

[torik52]

bu yukardaki vermiş olduğum kod sütünlara nasıl uygulanır

 

[Emir Hüseyin Çoban]

. . .

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

. . .

 

[istanbulcahan]

Ben düzenlemeye çalıştım ama olmadı. Beceremedim.

[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]