çalışma sayflarının isimlerini listelemek

[doubleupon]

merhaba benim sorum şu olacak. kullandıgım bir excel dosyasının içinde yuzlerce sayfa var bunların bir listesini alabilirmiyim. hatta biraz ileri gideyim baska bir excel çalışma sayfasında sadece isimlerini ekletip onları listeleyip tek bir sayfada özetleyebilirmiyim. ve tabii bunu gecmis olarak degil yeni eklentilerdede kullanabilirmiyim.

yardımlarınız için simdiden tesekkurler

 

[uzmanamele]

merhaba
ekteki dosya gibi birşey istiyorsunuz galiba

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub sayfalar()
Dim i As Integer
Application.ScreenUpdating = False
Range("A2:A65536").ClearContents
For i = 1 To Worksheets.Count
    Cells(i + 1, "A").Value = i
    Cells(i + 1, "B").Value = Sheets(i).Name
Next
Application.ScreenUpdating = True
MsgBox i - 1 & " Adet sayfa listelendi..!!"
End Sub

 

[doubleupon]

tesekkurler arkadaslar yardımlarınız için. evren bey cok makbule gecti.
peki başka bir soru sorsam . ben bunu carilerimin takibinde kullanmak istiyorum. her bir calısma sayfam ayrı bir cari hesabım.bu cari hesaplarımı yine aynı listelediğim çalışma sayfamda bakiye olarak gorebilirmiyim acaba ? yani listele dediğim anda hem cari adını hem bakiyesini hemde alacak yada borç verdiğini görebilecegim bir kod var mıdır

 

[Orion1]

tesekkurler arkadaslar yardımlarınız için. evren bey cok makbule gecti.
peki başka bir soru sorsam . ben bunu carilerimin takibinde kullanmak istiyorum. her bir calısma sayfam ayrı bir cari hesabım.bu cari hesaplarımı yine aynı listelediğim çalışma sayfamda bakiye olarak gorebilirmiyim acaba ? yani listele dediğim anda hem cari adını hem bakiyesini hemde alacak yada borç verdiğini görebilecegim bir kod var mıdır

Bir tane örnek dosya ekleyiniz.Bir miktar veri giriniz.Ve dosyaya istediğinizi açıklayınız.

 

[doubleupon]

örnek dosyayı ekte bilgilerinize sundum Evren bey. şimdiden teşekkürler.

 

[Orion1]

örnek dosyayı ekte bilgilerinize sundum Evren bey. şimdiden teşekkürler.

Dosyanız Hazır.

Sub RAPOR()
Dim syf As Worksheet, sat As Integer
Sheets("RAPOR").Select
sat = 2
Application.ScreenUpdating = False
Range("A2:F65536").ClearContents
For Each syf In Worksheets
    If syf.Name <> "RAPOR" Then
        Cells(sat, "A").Value = sat - 1
        Cells(sat, "B").Value = syf.Range("B1").Value
        Cells(sat, "C").Value = syf.Range("G6").Value
        Cells(sat, "C").NumberFormat = "#,##0.00"
        Cells(sat, "D").Value = "BURAYA HANG&#304; H&#220;CREDEK&#304; DE&#286;ER YAZILACAK ANLAMADIM..!!"
        Cells(sat, "E").Value = Date
        Cells(sat, "E").NumberFormat = "dd.mmmm.yy"
        sat = sat + 1
    End If
Next syf
Application.ScreenUpdating = True
MsgBox "[ " & sat - 2 & " ] Adet Listeleme Yap&#305;ld&#305;..!!", vbOKOnly + vbInformation, Application.UserName
End Sub