Var olan sayfaları listeleme

[svorm]

Selamlar,

Sitede çok aradım ama bulamadım. Bir dosyada açık olan dosyaları bulup listelemenin bir yolu var mı?
Aayrıca bu sayfaları sıra ile seçtirmek istiyorum.Burada adı "Genel" olan sayfayı seçtirmeden devam etmesini sağlayabilirmiyim

Teşekkürler

 

[Ergün Güler]

Selamlar,

Sitede çok aradım ama bulamadım. Bir dosyada açık olan dosyaları bulup listelemenin bir yolu var mı?
Aayrıca bu sayfaları sıra ile seçtirmek istiyorum.Burada adı "Genel" olan sayfayı seçtirmeden devam etmesini sağlayabilirmiyim

Teşekkürler

Selam,
Aşağıdaki kodlar Genel adlı sayfa haricindeki tüm sayfaları listeler.
İstediğiniz böyle birşey midir?

Sub sayfa_listele()

For i = 1 To Worksheets.Count
    If Sheets(i).Name <> "Genel" Then
    adlar = adlar & vbLf & Sheets(i).Name
    End If
Next

MsgBox adlar

End Sub

 

[uuthbey]

Selam,
Aşağıdaki kodlar Genel adlı sayfa haricindeki tüm sayfaları listeler.
İstediğiniz böyle birşey midir?

Sub sayfa_listele()

For i = 1 To Worksheets.Count
    If Sheets(i).Name <> "Genel" Then
    adlar = adlar & vbLf & Sheets(i).Name
    End If
Next

MsgBox adlar

End Sub

Hocam teşekkür ederim,
ancak bu kod sayfa adlarını pop-up şeklinde bir pencerede listeledi. Ben mi bir yerde yanlış yaptım bilmiyorum.

Diğer yandan sayfa adları B2'den itibaren listelendi diyelim, ben bu adlara nasıl yukarıda bahsettiğim şekilde formül uygulayacağım?

 

[alicimri]

Ergün Güler'in kodlarını aşağıdaki gibi değiştirin

Sub sayfa_listele()
satir = 2
For i = 1 To Worksheets.Count
    If Sheets(i).Name <> "Genel" Then
range("B" & satir).value = Sheets(i).Name
satir=satir+1
    End If
Next
End Sub