Soru İstenen Sekmeleri Seçili Duruma Getirme

[xternet]

Merhaba Arkadaşlar

Çalışma kitabımda belli bir sayfada ve belli bir seçili alanda adı yazılı olan sayfa sekmelerini seçili duruma getirmek istiyorum.

Sayfa sekmelerinin isimleri hücrelerdeki isimlere bağlı olduğu için makro kaydederek olmuyor.
Birde tabi sekme sayısı da değişebilir. Yine buda ilgili hücrelerde yazan sekme sayısına bağlı.

Örnek dosya ile daha anlaşılır olucak sanırım.
İyi çalışmalar.

 

[Muzaffer Ali]

Merhaba.

Sub SayfaSec()
    Dim Bak As Integer
    Dim Say As Integer
    Dim Sayfalar As Variant
    Say = Cells(Rows.Count, "E").End(xlUp).Row
    ReDim Sayfalar(Say - 6)
    For Bak = 6 To Say
        Sayfalar(Bak - 6) = Cells(Bak, "E")
    Next
    On Error Resume Next
    Worksheets(Sayfalar).Select
    If Err.Number = 9 Then
        MsgBox "Lütfen sayfa isimlerini kontrol ediniz. Bulunamayan sayfa/lar var.", vbExclamation
    End If
End Sub

 

[AdemCan]

Merhaba, sayfa1 kod bölümüne ekleyip kullanabilirsiniz.

Option Base 1
Sub test()
Dim i As Long, dizi() As String, son As Long, say As Long, sayfa As Worksheet
son = Cells(Rows.Count, 5).End(3).Row
For i = 6 To son
    For Each sayfa In Worksheets
        If Cells(i, 5) = sayfa.Name Then
            say = say + 1
            ReDim Preserve dizi(say)
            dizi(say) = Cells(i, 5)
        End If
    Next
Next i
Sheets(dizi).Select
End Sub

Not: düzenleme yaparken cevap gelmiş, alternatiftir.

 

[xternet]

İki yanıt içinde çok teşekkür ederim ustalar.

Elinize, zihninize sağlık.