Sayfa ismin hücreden alması

[seyfi38]

Excel sayfamda A1 den A200 e kadar 200 adet isim var ve ben her hücre adına sekme açmak ve bunların isimlerini de hücreden almasını istiyorum
Ustalardan rica ediyorum.

 

[Ömer]

Merhaba,

Deneyiniz.

Sub sayfa_ac()
    Dim i As Integer, S1 As Worksheet, syf As String
    Set S1 = Sheets("Sayfa1")
    Application.ScreenUpdating = False
    For i = 1 To S1.Cells(Rows.Count, "A").End(xlUp).Row
        syf = S1.Cells(i, "A")
        If Not varmi(syf) Then
            Sheets.Add After:=Sheets(Sheets.Count)
            ActiveSheet.Name = syf
        End If
    Next i
    S1.Select
End Sub

Function varmi(adi As String) As Boolean
    On Error Resume Next
    varmi = CBool(Len(Worksheets(adi).Name) > 0)
End Function

 

[seyfi38]

Teşekkürler ÖMER Ustam