Excelde Ek Sayfa Açılması Hakkında | Yardim

Merhabalar,
Alt alta yazmış olduğumuz bir isim listesi var.
Bunu Excel içerisinde ayrı ayrı sayfalara sıra numarasina Göre isimlendirerek nasıl yapabilirim?
Teşekkür ederim

anydesk verin bakalım hocam

Örnek dosya verip isteğinizi görsel olarak anlatırsanız yapmaya çalışalım.

<a href="https://hizliresim.com/6npxy86"><img src="https://i.hizliresim.com/6npxy86.jpg" alt="ff"></a>
57 tane isim var bu şekilde.Bunun alt tarafta otomatik sayfa oluşturmasını istiyorum

Boş bir Excel sayfası açın.
Altta Sayfa1 yazan sekmeye sağ tıklayıp "Kod Görüntüle" deyin.
Aşağıda verdiğim kodu yapıştırın ve kaydedin. Makro içeren excel sayfası olarak kaydedin. Yani .xlsm uzantılı.
A1:A60 hücreleri arasında ne yazarsanız entere her bastığınızda yeni sayfa olarak size verir. İlk sefer için tek tek yazmak gerekebilir.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws As Worksheet
    Dim wsName As String
    
    If Not Intersect(Target, Range("A1:A60")) Is Nothing Then
        Application.EnableEvents = False
        
        If Target.Value <> "" Then
            wsName = Target.Value
            
            On Error Resume Next
            Set ws = ThisWorkbook.Sheets(wsName)
            On Error GoTo 0
            
            If ws Is Nothing Then
                ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)).Name = wsName
            End If
        End If
        
        Application.EnableEvents = True
    End If
End Sub

ee cevap yazmadın

Olmadı hocam