Çalışma sayfalarını gizleme

[Jeeday]

Merhabalar,

Sorum şu şekilde...

01.01
02.01
.
.
08.03
.
.
.
.
31.12

isminde 365 tane sayfam olan bir dosyam var...

bir butona tıkladığımda açılacak olan msgbox'a yazacağım veri ile; "atıyorum 08" ile başlayan günler dışındaki tüm sayfaları gizlemek istiyorum...

sonuç olarak geriye sadece 08.01, 08.02, 08.03,...., 08.12 kalsın...

böyle bir formül yada makro mümkün mü???

 

[Necdet]

Merhaba,

Basla adındaki sayfa başlangıç sayfasıdır. Makroyu çalıştıracak olan buton buradadır. Basla sayfası sürekli görünür haldedir. Gerektiğinde siz bu sayfayı değiştirebilirsiniz.

Sub SayfaGizleGoster()
    
    Dim Yanit   As Variant, _
        i       As Integer
    
    Yanit = Application.InputBox("Hangi Sayfalar Gösterilecek?", "Mesaj..", Type:=2)
    If Yanit = False Then Exit Sub
    Yanit = Yanit & "*"
    Application.ScreenUpdating = False
    For i = 1 To Sheets.Count
        If Not Sheets(i).Name = "Basla" Then
            If Sheets(i).Name Like Yanit Then
                Sheets(i).Visible = True
            Else
                Sheets(i).Visible = False
            End If
        End If
    Next i
    Application.ScreenUpdating = True
    MsgBox "İşlem Tamam"
    
End Sub

 

[Jeeday]

10 numara olmuş... bir de veri olarak açılan msgbox'a "00" yazınca tüm sayfaların görünmesini eklemek mümkün mü??

bu butonu her sayfaya ekleyebilir miyiz peki???

 

[Necdet]

Merhaba,

İlk mesajımdaki kodları ve dosyayı değiştirdim.

Boş geçtiğinizde tüm sayfalar gösterilir.