TOPLU SEKME OLUŞTURMA

[hureyre84]

Merhabalar.
Dosyamdaki ana sayfa sekmesinde ki toplu listemde (sadece A sütunundaki liste) yer alan her satırdan bir sekme oluşturmak istiyorum. Listeyi oluşturduktan sonra tek düğmeyle sekmelerin oluşturulması lazım.

Yardımcı olursanız çok sevineceğim.
Saygılarımla...

 

[Necdet]

Merhaba,

Sayfa sekmesi dediğiniz xl sayfası sanırım.

Aşağıdaki kodları bir Modüle kopyalayıp deneyiniz. Amacınız sadece sayfa açmaksa kodlar bu işi yapar.

Sub SayfaOlustur()

    Dim Sh  As Worksheet, _
        ShY As Worksheet, _
        Syf As String, _
        i   As Long

    Application.ScreenUpdating = False
    
    Set Sh = Sheets("Sayfa1")

    For i = 2 To Sh.Cells(Rows.Count, "A").End(3).Row
    
        Syf = Sh.Cells(i, "A")
        
        If Not SayfaVar(Syf) Then
          Set ShY = Sheets.Add
          ShY.Move After:=Worksheets(Worksheets.Count)
          ShY.Name = Syf
        End If
    Next i
    
    Sh.Select

    Application.ScreenUpdating = True
    
End Sub

Function SayfaVar(SayfaAdi As String) As Boolean

    On Error Resume Next
    SayfaVar = CBool(Len(Worksheets(SayfaAdi).Name) > 0)
    
End Function

 

[hureyre84]

Çok teşekkür ederim. Ellerinize sağlık. İşime yaradı.