Çalışma sayfalarını gizleme -2-

[Jeeday]

Daha öncede bu konu ile ilgili bir isteğim olmuştu, bu sefer benzer ama başka bir koşul söz konusu...

365 adet çalışma sayfası olan bir dosya var. Her sayfa "1 güne" denk geliyor. Her sayfanın a1 hücresinde o günün tarihi var (formatı "09 Temmuz 2012 Pazartesi" şeklinde). Sayfa isimleri "01.01", "01.02", "01.03",....., "31.12" şeklindedir...

Daha önce istediğim yardım "her ayın belli bir gününü filtrelemekti". Örneğin her ayın 5i olan çalışma sayfaları görünsün, diğerleri gizlensin gibi....

Şimdi istediğim yardım ise günlere göre filtrelemek. Örneğin a1 hücrelerinde "Salı" günü olan tarihlere göre filtrelensin, diğer günlere denk gelen sayfaları gizlesin...

Şimdiden teşekkür ederim

 

[Huseyinkis]

ekli dosyayı incelermisiniz.

 

[Jeeday]

daha önceden gelen makro şu şekildeydi...

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

End Sub




bunun gibi açılır pencereye gün adı yazarak yapabilir miyiz?

 

[Jeeday]

ve ayrıca makronuzun kuralını çözemedim...

 

[Huseyinkis]

ve ayrıca makronuzun kuralını çözemedim...

Merhaba Ekteki kodları incelermisiniz.


Yanıt kısmına hangi gunler kalıcaksa o günün tarihini girmeniz yeterli Örnek Salı Günü İçin

10.07.2012 yazarsanız bütün salılar görünür.

Sub aaaa()

yanit = Application.InputBox("Hangi Sayfalar Gösterilecek?", "Mesaj..", Type:=2)

For x = 1 To Sheets.Count
If Sheets(x).Visible = False Then
Sheets(x).Visible = True
End If
Next

For i = 1 To Sheets.Count
Gün_Kontrol = Weekday(Sheets(i).Cells(1, 1).Value)
Filitre = Weekday(yanit)
If Gün_Kontrol <> Filitre Then
Sheets(i).Visible = False
End If
Next
End Sub

 

[Jeeday]

hata veriyor...

 

[Jeeday]

10.07.2012 değilde 10.07 şeklinde yazınca hata vermedi... yanlız ne yazarsak yazalım hep cumartesi günleri görünüyor...

 

[Jeeday]

ok çözdüm...
1 - Pazar
2 - pazartesi
.
.
.
6 - cuma

şeklinde yazınca oluyo... sayı yeterli...

 

[Huseyinkis]

ok çözdüm...
1 - Pazar
2 - pazartesi
.
.
.
6 - cuma

şeklinde yazınca oluyo... sayı yeterli...

dosyanızın örneğini yüklermisiniz sadece tarih ler kalsa yeterli.