Çalışma kitabında 100 den fazla sekmeyi A sütununda listeletme

[hureyre84]

Merhabalar herkese.
Şöyle bir sorunum var.
Çalışma kitabımda 100 den fazla sekmem var ve ben onları A sütununda listeletmem lazım. Yalnız sekmelere her yeni bir sekme eklediğimde listenin devamına eklemesi lazım. Eski listeyi silip yeniden listelememesi gerekir. Ben bir çözüm buldum ama her defasında A sütunundaki oluşturduğu listeyi silip yeniden listeliyor. Sonuçta istediğim oluyor ama asıl istediğim listenin devamına yeni oluşturulan sekmeyi eklemesi.

Şimdiden teşekkür ederim.
Saygılarımla

 

[muygun]

Merhaba;
Sayfanın kod bölümüne;

Sub sayfaları_listele()
Application.ScreenUpdating = False
On Error Resume Next
For i = 1 To Sheets.Count
sayfaadı = Sheets(i).Name
If WorksheetFunction.CountIf(Range("a1:a" & 200), sayfaadı) = 0 Then
sonsatir = Range("A65536").End(xlUp).Row + 1
Cells(sonsatir, 1) = sayfaadı
End If
Next i
End Sub

Kodlarını ekleyip deneyin.
İyi çalışmalar.

 

[hureyre84]

Merhaba;
Sayfanın kod bölümüne;

Sub sayfaları_listele()
Application.ScreenUpdating = False
On Error Resume Next
For i = 1 To Sheets.Count
sayfaadı = Sheets(i).Name
If WorksheetFunction.CountIf(Range("a1:a" & 200), sayfaadı) = 0 Then
sonsatir = Range("A65536").End(xlUp).Row + 1
Cells(sonsatir, 1) = sayfaadı
End If
Next i
End Sub

Kodlarını ekleyip deneyin.
İyi çalışmalar.

çok teşekkür ederim yardımlarınız için işimi gördü. Ellerinize sağlık