sayfa adını yazma

[aydgur]

İyi yıllar !! BAKİYE adlı sayfamın A2 den itibaren a sütununa dosyadaki tüm sayfa adlarını yazdırmak istiyorum , nasıl yapabilirim ?

 

[Ayhan Ercan]

Merhaba
Aşağıdaki kod işinizi görür

Private Sub CommandButton1_Click()
For i = 1 To Sheets.Count
Cells(i + 1, 1) = Sheets(i).Name
Next
End Sub

 

[Necdet]

Merhaba,

Aşağıdaki kodları deneyebilirsiniz.

Sub SayfaAdlari()
Set sb = Sheets("BAKİYE")
j = 1
For i = 1 To Sheets.Count
    sb.Cells(j, "A") = Sheets(i).Name
    j = j + 1
Next i
End Sub

 

[aydgur]

Her ikinizi de teşekkür ederim,tekrar iyi yıllar.

 

[unur]

Günaydın arkadaşlar;

Yukarıdaki kodları kullanarak Sayfa isimlerini yazdırıyorum.
şimdi yapmak istediğim bu sayfa isimlerinin karşısına; isimlerini yazdırdığım sayfadaki bazı bilgileri yazdırmak istiyorum.Yardımcı olursanız sevinirim.

 

[unur]

Arkadaşlar bu konuda fikri olan yokmu?

 

[dEdE]

Merhaba,
Aşağıdaki kodu dener misiniz?

Sub Auto_Open()
    For i = 2 To Sheets.Count
        Cells(i + 5, 2) = Sheets(i).Name
        Cells(i + 5, 3) = Sheets(i).[j6].Value
        Cells(i + 5, 4).Value = WorksheetFunction.Max(Sheets(i).Range("V1:V" & Sheets(i).[V65536].End(3).Row))
        Cells(i + 5, 5).Value = WorksheetFunction.Max(Sheets(i).Range("W1:W" & Sheets(i).[W65536].End(3).Row))
    Next
End Sub

 

[unur]

Dede çok teşekkürler elinize sağlık.

 

[unur]

Arkadaşlar dede nin vermiş olduğu kodlar çok güzel çalışıyor eline sağlık.
Ben bir yerde görmüştüm yanlış hatırlamıyorsam.kodun başına bir satır ekleniyor.Sayfada işlemi tek tek yapmaktan ziyade hesaplamayı bitirdikten sonra tüm sayfaya birden işlem yapıyordu.
Yukarıdaki kodların başına o satırı eklemek istiyorum.
Umarım derdimi doğru anlatabilmişimdir.
Yardımcı olacak arkadaşlara şimdiden teşekkürler.

 

[dEdE]

Merhaba,
Bu mudur?

Sub Auto_Open()
Application.ScreenUpdating = False
    For i = 2 To Sheets.Count
        Cells(i + 5, 2) = Sheets(i).Name
        Cells(i + 5, 3) = Sheets(i).[j6].Value
        Cells(i + 5, 4).Value = WorksheetFunction.Max(Sheets(i).Range("V1:V" & Sheets(i).[V65536].End(3).Row))
        Cells(i + 5, 5).Value = WorksheetFunction.Max(Sheets(i).Range("W1:W" & Sheets(i).[W65536].End(3).Row))
    Next
Application.ScreenUpdating = True
End Sub