sayfa isimlerini listelemek

[acolkesen1]

Merhaba arkadaşlar,
Ekli dosyada sayfa isimleri her sayfanın A sütununda listeleniyor ve hücrelere tıklayınca yazılı olan sayfaya gidiliyor.Ancak sayfa silinince sayfa ismi listeden silinmiyor. Acaba sayfalar silindiğinde listelerden sayfa isimleri nasıl silinir? Bir de bu kodlar sadece bir sayfada Örn. Sayfa1 de nasıl çalıştırılır? İlgilenen arkadaşlara teşekkür ederim.

 

[uzmanamele]

merhaba
aşağıdaki kodları denermisiniz

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Range("a:a").ClearContents

Dim pir As Worksheet
Dim i As Integer
For Each pir In Worksheets
Range("A1").Offset(i) = pir.Name
i = i + 1
Next
Call sayfa_sirala

End Sub

 

[acolkesen1]

Merhaba sayın uzmanamele,yaptığınız değişikllkle silinen sayfaların isimleri de listeden siliniyor. Çok teşekkür ederim. Bu kodların sadece sayfa1 de çalışmasını nasıl sağlarız acaba? İlginize çok teşekkür ederim..

 

[uzmanamele]

merhaba

aşağıdaki şekliyle denermisiniz
sayfa1'in kod sayfasına

Private Sub Worksheet_Activate()
Range("a:a").ClearContents

Dim pir As Worksheet
Dim i As Integer
For Each pir In Worksheets
Range("A1").Offset(i) = pir.Name
i = i + 1
Next
Call sayfa_sirala

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("a:a")) Is Nothing Then Exit Sub
Call sec
End Sub


ekleyeceğiniz modül sayfasına

Sub sec()
Sheets(ActiveCell.Row).Select
End Sub
Sub sayfa_sirala()
Dim intI As Integer, intJ As Integer
For intI = 1 To Sheets.Count
For intJ = 1 To Sheets.Count - 1
If UCase(Sheets(intJ).Name) > UCase(Sheets(intJ + 1).Name) Then
Sheets(intJ).Move after:=Sheets(intJ + 1)
End If
Next
Next
End Sub

 

[acolkesen1]

Değerli uzmanamele, yardımlarınız için çok teşekkür ederim. Sağlıcakla kalın.