Sayfa Adı

[Shymshec]

Bir dosyada 100 den fazla sayfa var ve sayfaların isimleri farklı adlar ile adlandırılmış.

Benim isteğim her sayfanın ismini kendi içerisinde A1'e yazması bunu nasıl yapabilirim.

Şimdiden ilgilenen arkadaşlara teşekkürler.

 

[Ali]

Aşağıdaki linki inceleyiniz.

hücre yardımıyla sayfa adını nasıl değiştiririm?

.

 

[Shymshec]

Demek istediğim bu değil. sayafa isimlerini değiştirmek istemiyorum. Varolan sayfaların isimlerini A1 hücresine yazdırmak istiyorum.

 

[uzmanamele]

merhaba
bu kod işinizi görür mü

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("a1") = ActiveSheet.Name
End Sub

veya

Sub sayfalar()
For i = 1 To Sheets.Count
Sheets(i).Range("a1") = Sheets(i).Name
Next
End Sub

 

[Ali]

Bir modüle aşağıdaki kodları ekleyerek çalıştırınız.

Sub isimver()
For i = 1 To Sheets.Count
Sheets(i).Range("A1") = Sheets(i).Name
Next
End Sub

 

[Ali]

Yaşlanıyorum galiba Süleyman Bey önce davranmış.

 

[Shymshec]

Çok teşekkürler yardımlarınız için.

 

[Orion1]

Alternatif.
Thisworkbook modülüne aşağıdaki kodları yapıştırınız.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Range("A1").Value = ActiveSheet.Name
End Sub

 

[Shymshec]

Çok teşekkürler yardımlarınız için.

Peki bu isimleri yeni bir sayfa açıp alt alta yazdıra bilirmiyiz.

 

[Merhum İdris SERDAR]

Bu da fonksiyonla:

A1 hücresinde SHIFT tuşuna basarak tüm sayfaları seçlii hale getirdikten sonra,

=MID(CELL("FILENAME";A1);FIND("]";CELL("FILENAME";A1))+ 1;255)

=PARÇAAL(HÜCRE("DOSYAADI";A1);BUL("]";HÜCRE("DOSYAADI";A1))+ 1;255)

formülünü girin.



.

 

[Shymshec]

Bu da fonksiyonla:

A1 hücresinde SHIFT tuşuna basarak tüm sayfaları seçlii hale getirdikten sonra,

=MID(CELL("FILENAME";A1);FIND("]";CELL("FILENAME";A1))+ 1;255)

=PARÇAAL(HÜCRE("DOSYAADI";A1);BUL("]";HÜCRE("DOSYAADI";A1))+ 1;255)

formülünü girin.



.

bu benim için daha anlaşılır

 

[Orion1]

Syafa1 de a sütununa syafa isimlerini sıaralar.
Kırmızı ile yazılan yere siz istediğiniz sayfanın adını yazınız.

Sub Sayfa_isimleri()
Dim i As Integer
Sheets("[B][COLOR="Red"]Sayfa1[/COLOR][/B]").Range("A1:A65536").ClearContents
For i = 1 To Worksheets.Count
    Sheets("[B][COLOR="red"]Sayfa1[/COLOR][/B]").Cells(i, "A").Value = Worksheets(i).Name
Next i
End Sub

 

[Shymshec]

sizler sayesinde güzel şeyler öğreniyorum ve sorunlarımı çözmeye başladım.

yardımlarınız için teşekkürler.