Yardım Çalışma Kitabı Ad listesi

Merhaba,
2007 excel kullanıyorum
1000 adedin üzerinde çalışma kitabı olan dökümanın, çalışma kitabı adları listesi çıkartmak için araştırdığımda;
Formuller, ad yönetici, yeni içerisinde başvuru olarak şu metni yazmam gerektiğine dair bir kaç video seyrettim
=REPLACE(GET.WORKBOOK(1),1,FIND(“]”,GET.WORKBOOK(1)),””)
Ancak çalıştıramadım

Yardımlarınızı rica ederim
Gökhan

Bacardy_Tr' Alıntı:

Merhaba,
2007 excel kullanıyorum
1000 adedin üzerinde çalışma kitabı olan dökümanın, çalışma kitabı adları listesi çıkartmak için araştırdığımda;
Formuller, ad yönetici, yeni içerisinde başvuru olarak şu metni yazmam gerektiğine dair bir kaç video seyrettim
=REPLACE(GET.WORKBOOK(1),1,FIND(“]”,GET.WORKBOOK(1)),””)
Ancak çalıştıramadım

Yardımlarınızı rica ederim
Gökhan

Genişletmek için tıkla ...

Sub SayfaIsimleriniListele_Gelismis()

Dim ws As Worksheet
Dim listeSayfasi As Worksheet
Dim i As Long

On Error Resume Next
Set listeSayfasi = Sheets("SayfaListesi")
On Error GoTo 0

' Eğer yoksa oluştur
If listeSayfasi Is Nothing Then
Set listeSayfasi = Sheets.Add
listeSayfasi.Name = "SayfaListesi"
Else
listeSayfasi.Cells.Clear
End If

' Başlıklar
listeSayfasi.Cells(1, 1).Value = "Sıra No"
listeSayfasi.Cells(1, 2).Value = "Sayfa Adı"

i = 2

For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "SayfaListesi" Then
listeSayfasi.Cells(i, 1).Value = i - 1
listeSayfasi.Cells(i, 2).Value = ws.Name
i = i + 1
End If
Next ws

' Toplam sayfa sayısı
listeSayfasi.Cells(1, 4).Value = "Toplam Sayfa Sayısı:"
listeSayfasi.Cells(1, 5).Value = ThisWorkbook.Worksheets.Count - 1

MsgBox "Liste hazır!"

End Sub


✔ Var olan "SayfaListesi" sayfasını silmez
✔ Eğer varsa otomatik temizler
✔ Sayfa sıra numarasını da yazar
✔ Toplam sayfa sayısını en üste ekler

1) Excel’de dosyanı aç
Sonra:
2) Klavyeden bas:
ALT + F11
(VBA editörü açılır)
3) Üstten tıkla:
Insert > Module

Üstteki kodu yapıştır F5 ile çalıştır