ilk ve son sayfaların ismini almak

[altanson]

"ahmet, mehmet, hasan...... ali" diye sayfa isimleri olan bir dosya olsun. istediğim; bir sayfaya ilk ve son sayfaların isimlerini belirli bir hücreye nasıl getirebilirim? hatta baştan 2. sayfa veya sondan 3. sayfanın adını getirebilir miyim? Teşekkürler.

 

[Ömer]

Merhaba,

Sorudaki gibi alacağınız sayfalar değişken olacaksa tüm sayfa adlarını sırayla yazdırın sonra istediğinizi içinden alın.

Sub SayfaAdi()
Set S1 = Sheets("Sayfa1")
S1.Range("A:A").ClearContents
On Error Resume Next
    For i = 1 To Worksheets.Count
        sat = sat + 1
        S1.Range("A" & sat) = Worksheets(i).Name
    Next i
End Sub

Sayfa1 A sütununa sayfa adlarını yazar.

.

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki kullanıcı tanımlı fonksiyonuda kullanabilirsiniz.

Hücrede kullanım şekli;

[B][COLOR=blue]=SAYFA_ADI(1)[/COLOR][/B]

Option Explicit
 
Function SAYFA_ADI(SAYFA_INDEX As Integer) As String
    Dim SAYFA As Worksheet
 
    Application.Volatile True
 
    If Worksheets.Count < SAYFA_INDEX Then
        SAYFA_ADI = "Sayfa Adı Bulunamadı !"
        Exit Function
    End If
 
    For Each SAYFA In Worksheets
        If SAYFA.INDEX = SAYFA_INDEX Then
            SAYFA_ADI = SAYFA.Name
            Exit For
        End If
    Next
End Function

Ayrıca direkt olarak ilk sayfa adını bulmak için aşağıdaki fonksiyonu kullanabilirsiniz.

Hücrede kullanım şekli;

[B][COLOR=blue]=İLK_SAYFA_ADI()[/COLOR][/B]

Option Explicit
 
Function İLK_SAYFA_ADI() As String
    Application.Volatile True
    İLK_SAYFA_ADI = Worksheets(1).Name
End Function

Yine direkt olarak son sayfa adını bulmak için aşağıdaki fonksiyonu kullanabilirsiniz.

Hücrede kullanım şekli;

[B][COLOR=blue]=SON_SAYFA_ADI()[/COLOR][/B]

Option Explicit
 
Function SON_SAYFA_ADI() As String
    Application.Volatile True
    SON_SAYFA_ADI = Worksheets(Worksheets.Count).Name
End Function

 

[altanson]

teşekkürler fakat ben bu alacağım sayfa isimleri ile bir formül oluşturmak istiyorum. mesela tüm sayfalardaki a1 hücresini toplamak istiyorum bunun için de =topla('ahmet:mehmet'!a1) gibi bir formül kullanıyorum. fakat sürekli yeni sayfalar eklendiği ve sayfa isimleri değiştiği için formülü de değiştirmek gerekiyor. eğer ilk ve son sayfaların isimleri alabilirsem sürekli formülü değiştirmeme gerek kalmayacak.

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajıma iki adet kullanıcı tanımlı fonksiyon daha ekledim. Dilediğinizi kullanabilirsiniz.

 

[altanson]

teşekkürler fonksiyonları dosyaya ekledim çalışıyor fakat bunu istediğimi yapmak için formüle dökemedim.

örnek dosya ekte. yapma istediğim "son" sayfası en sonda sabit kalmak şartıyla diğer sayfa adları değişse de, yeni sayfa eklense de, çıkarılsa da tüm sayfalardaki A1 hücrelerini toplayacak bir formül yazılabilir mi?

 

[omerceri]

Sn altanson aşağıdaki kullanıcı tanımlı fonksiyonu kullanınız.
Function HEP_TOPLA()
Application.Volatile True

For i = 1 To Worksheets.Count - 1
A = A + Worksheets(i).Range("a1")
Next
HEP_TOPLA = A
End Function

 

[altanson]

yardımcı olan herkese teşekkürler.

 

[Merhum İdris SERDAR]

teşekkürler fakat ben bu alacağım sayfa isimleri ile bir formül oluşturmak istiyorum. mesela tüm sayfalardaki a1 hücresini toplamak istiyorum bunun için de =topla('ahmet:mehmet'!a1) gibi bir formül kullanıyorum. fakat sürekli yeni sayfalar eklendiği ve sayfa isimleri değiştiği için formülü de değiştirmek gerekiyor. eğer ilk ve son sayfaların isimleri alabilirsem sürekli formülü değiştirmeme gerek kalmayacak.

Amacınız sırf bunu yapmaksa, linkte yer alan dosyayı inceleyin.

3B - 3D formülleri


.

 

[omerceri]

Sn altanson
Benim 3B-3D fonksiyonlar konusunda bilgim yoktu. Sn yurttas'ın çalışmasını inceledikten sonra sizin dosyanızda toplamını alacağınız sayfaların başına ve sonuna boş bir sayfa eklerseniz, yukarda sizinde kullandığınız 3B formülü bu sayfaları kapsayacak şekilde düzenlerseniz toplamı etkilemeyeceğinden işinizi görür KTF kullanmanıza gerek kalmaz diye düşünüyorum.

 

[altanson]

Sn omerceri,

sayda isimleri sürekli değişeceği ve yeni sayfalar ekleneceği için sizin gönderdiğiniz KTF daha çok işimi görecek gibi. Yardım eden herkese teşekkürler.

 

[Merhum İdris SERDAR]

Sn omerceri,

sayda isimleri sürekli değişeceği ve yeni sayfalar ekleneceği için sizin gönderdiğiniz KTF daha çok işimi görecek gibi. Yardım eden herkese teşekkürler.

Söylediğiniz şeyleri verdiğim linkte engelleyen bir duruma rastlamadım.

O zaman linkteki dosyayı bir kez daha incelemenizi öneriririm.

.