gizlenmiş sheet gösterme

[exworld]

merhaba arkadaşlar,

Çalıştığım tabloda her müşteri için açılmış ayrı ayrı 950 adet sheet var. bu sheetlerin tümünü aynı anda gizlemem gerekiyor ve gizliyorum. Ama istediğim zaman aralarından diyelim ki 325 tanesini göstermek istiyorum. Sheet adları müşteri numaralarını koydum. hali hazırda kullandığım göster için bir kod var. ama tümünü gösteriyor. aşağıda;


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

Bu kodun arasına bir yerine benim belirlediğim ve ilgili tablodan kopyalayacağım sheet isimlerini yazmam mümkünmü??

Aksi halde tek tek sağ tık yapıp göster diyip ordan sheet çağırıp gösteriyorum. Ve bunu icabında tam 450 kere yapıyorum..




Durum çok acil. Bilgilerinize ihtiyacım var..

Teşekkürler

 

[asi_kral]

Merhaba
Açacağınız sayfaları nasıl belirliyorsunuz. Bir yerde listesi mi var_?

 

[exworld]

Merhaba
Açacağınız sayfaları nasıl belirliyorsunuz. Bir yerde listesi mi var_?

Bir yerde listesi var evet. Ama şuan var olanların.. yeni gelirse manuel isim giriyorum.. belli bir sırası yok yani.. ama liste mevcut

tşk.

 

[asi_kral]

Bir yerde listesi var evet. Ama şuan var olanların.. yeni gelirse manuel isim giriyorum.. belli bir sırası yok yani.. ama liste mevcut

tşk.

Merhaba
Sayfa1'in A sütununda sayfa isimleri olduğu varsayılmıştır.

Option Explicit
Sub gizli_aç()
Dim SAT As Long, SAY As Worksheet
With WorksheetFunction
Set SAY = Sheets(1)
For SAT = 1 To Sheets.Count
If .CountIf(SAY.Range("A:A"), Sheets(SAT).Name) > 0 Then
Sheets(SAT).Visible = True
End If: Next: End With
MsgBox "İşlem Tamamlandı", vbInformation
End Sub