Soru Sayfa Listeleme ve Köprü

[xemdarx]

Selamlar,
Bazı sayfalar dışındaki tüm sayfaları listeleyip köprü ekleyebilir miyiz?

 

[hamitcan]

Sub SayfaListele()
i = 3
[am4:am21].ClearContents
    For Each sht In Sheets
        If sht.Name = "veri" Then GoTo 10
        If sht.Name = "arşiv" Then GoTo 10
            i = i + 1

        Cells(i, "am") = sht.Name
10
    Next
End Sub
Sub SayfaSil()
    For i = 4 To [am65536].End(3).Row
        If Cells(i, "ao") = "SİL" Then
            Application.DisplayAlerts = False
            Sheets(CStr(Cells(i, "am"))).Delete
            Application.DisplayAlerts = True
        End If
        
    Next
End Sub

 

[xemdarx]

Sağolun. Köprü eklenmiyor ve Sil deyince sayfaların hepsini siliyor.

 

[hamitcan]

Kodu değiştirdim.

Sub SayfaListele()
i = 3
[am4:am21].ClearContents
    For Each sht In Sheets
        If sht.Name = "veri" Then GoTo 10
        If sht.Name = "arşiv" Then GoTo 10
            i = i + 1

        Cells(i, "am") = sht.Name
10
    Next
    
    For j = 4 To [am65536].End(3).Row
    ActiveSheet.Hyperlinks.Add Anchor:=Cells(j, "am"), Address:="", SubAddress:= _
            "'" & Cells(j, "am").Text & "'!A1"

    Next

End Sub

Diğer sorunuz için ise, yandaki hücrede SİL yazan hücrelerdeki sayfaları siliyor.