sheet gösterme

[exworld]

Arkadaşlar Merhaba,

Excel de sheet gizle/göster olayını çok kullanıyorum. sheetleri makro ile toplu olarak gösterebiliyorum ancak yeri geldiğinde aralarından istediklerimi bir kerede göstermek gibi bir seçeneğim olabilir mi? yani hali hazırda kullandığım;

Sub goster()
For a = 1 To Sheets.Count
Sheets(a).Visible = True
Next
End Sub

koduna ek olarak ben buraya sheet isimlerinin bulunduğu bir liste koysam ve sadece o koyduklarımı gösterse. aksi takdirde tek tek göster diyip sayfa ismi seçmem çok uzun zaman alıyor..

 

[asi_kral]

Arkadaşlar Merhaba,

Excel de sheet gizle/göster olayını çok kullanıyorum. sheetleri makro ile toplu olarak gösterebiliyorum ancak yeri geldiğinde aralarından istediklerimi bir kerede göstermek gibi bir seçeneğim olabilir mi? yani hali hazırda kullandığım;

Sub goster()
For a = 1 To Sheets.Count
Sheets(a).Visible = True
Next
End Sub

koduna ek olarak ben buraya sheet isimlerinin bulunduğu bir liste koysam ve sadece o koyduklarımı gösterse. aksi takdirde tek tek göster diyip sayfa ismi seçmem çok uzun zaman alıyor..

Bir sayfa oluşturun. Oraya açmak istediğiniz sayfaları yazın ve koda şart ekleyin orada yazan isim ile aynı olan sayfaları aktif etsin diğerleri pasif kalsın. Yapamazsanız dosyanızı ekleyin. Ona göre bir çözüm üretelim.

 

[exworld]

Bir sayfa oluşturun. Oraya açmak istediğiniz sayfaları yazın ve koda şart ekleyin orada yazan isim ile aynı olan sayfaları aktif etsin diğerleri pasif kalsın. Yapamazsanız dosyanızı ekleyin. Ona göre bir çözüm üretelim.

Dosyayı eklemem mümkün değil maalesef şirket bilgileri içeriyor. şart derken neyi kastediyorsunuz??

 

[asi_kral]

Dosyayı eklemem mümkün değil maalesef şirket bilgileri içeriyor. şart derken neyi kastediyorsunuz??

Merhaba
Ben sizden asıl dosyanızı istemedim. Örnek dosya oluşturun demiştim.
IF şartı oluşturun. Countif ile yaparsınız.

 

[ofis34]

çok kolay
genelde burda eklenen bilgilerin hepsi gercek değil.birazını silebilirsin,birazını değiştirebilirsin,

 

[exworld]

Merhaba
Ben sizden asıl dosyanızı istemedim. Örnek dosya oluşturun demiştim.
IF şartı oluşturun. Countif ile yaparsınız.

Benim eklediğim koda ek olarak örnek gönderebilir misiniz? ben tam olarak anlamadım.

 

[Hexafluramon]

Arkadaşlar merhaba. Bu konu ile ilgili benim de sorunum var. Yaklaşık 450 sayfalık bir exel dosyam var. "asi_kral" hocamın bahsettiği şekilde sadece listelediğim sayfaların aktif olması mümkün müdür?

 

[Ömer BARAN]

Merhabalar Sayın Hexafluramon.

Sayfa1 adlı sayfanın, A1:A500 hücre aralığında görünmesini istediğniz sayfa adlarının listelendiği varsayımıyla;
aşağıdaki kod'u kullanabilirsiniz.
.

[B]Sub goster()[/B]
Application.ScreenUpdating = False
For a = 1 To Sheets.Count
If WorksheetFunction.CountIf(Sheets("[COLOR="red"][B]Sayfa1[/B][/COLOR]").Range("[B][COLOR="red"]A1:A500[/COLOR][/B]"), Sheets(a).Name) > 0 Then
    Sheets(a).Visible = True
Else
    Sheets(a).Visible = False
End If
Next
Application.ScreenUpdating = True
[B]End Sub[/B]

 

[Hexafluramon]

Ömer Hocam, çok teşekkür ederim. Sabahtan gördüm ama detaylı deneme yapamadım. Sabah yaptığım denemede listede olmayan sayfalarda aktif kalıyor gibiydi. Akşam evde sayfa isimlerini listeleme makrosuyla deniycem. Birde gizlenen sayfaları tekrar açmak için gizli sayfaları açma makrosu ekliycem. Detaylı kurcaladıktan sonra tekrar sana yazarım Ömer hocam. Tekrar teşekkür ederim

 

[Ömer BARAN]

Verdiğim kod;
-- Sayfa1'deki listede adı olanları gösterirken,
-- bu listede olmayan sayfaları gizler
zaten.

 

[Hexafluramon]

Ömer Hocam, tekrar teşekkür ederm. Sayfa isimlerini, sayfaları listele makrosu ile çıkardım. Bu şekilde listeleyince sıkıntısız çalışıyor. Birde gizli sayfaları göster makrosunu ekledim. İkisi birlikte süper oldu. Emeğine sağlık hocam. İyi çalışmalar...