Makro ile Görünen sayfaları seçmek

[excelman]

Merhabalar;

Çalışma kitabımda 15 sayfa var ve bunların 5 i gizlenmiş durumda. Makro ile sadece görünen sayfaları seçmek için nasıl bir kod kulllanabilirim?

Şimdiden teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub SAYFA_SEÇ()
    Dim SAYFA As Worksheet, GÖRÜNEN_SAYFALAR() As String, X As Byte
    
    For Each SAYFA In ThisWorkbook.Worksheets
        If SAYFA.Visible = -1 Then
            ReDim Preserve GÖRÜNEN_SAYFALAR(0 To X)
            GÖRÜNEN_SAYFALAR(X) = SAYFA.Name
            X = X + 1
        End If
    Next
    
    Sheets(GÖRÜNEN_SAYFALAR()).Select
End Sub

 

[Necdet]

Merhaba,

Sonuç aynı, benimde yaptığım boşa gitmesin.

Sub Gorunur_Sayfalari_Sec()
 
    Dim i As Integer
    Dim j As Integer
    Dim s()
 
    For i = 1 To Sheets.Count
        If Sheets(i).Visible = True Then
            ReDim Preserve s(j)
            s(j) = Sheets(i).Name
            j = j + 1
        End If
    Next i
 
    Sheets(s).Select
 
End Sub

 

[excelman]

Sayın Korhan Ayhan ve Necdet Yeşertener cevaplarınız için teşekkür ederim. İşime yaradı.

İyi çalışmalar dilerim