Sayfa Ismi

[pelin5353]

Her sayfanin A1 Hucre degeri kendi sayfa isimine esit olabilir mi?

 

[AS3434]

Şu kodu deneyin.

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

 

[pelin5353]

Acikcasi denedim ama calistiramadim bu kodu...

 

[Orion1]

Merhaba.
Belkide istediğiniz aşağıdaki kod ile yazılandır.

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

 

[kombo]

sn pelin5353

Dosyayı kapatıp açtınızmı. Çünkü kod açılışta çalışıyor. Sayfaların A1 hücrelerinin değerlerini Sayfa adı olarak atıyor.
Ama siz Sayfa adını A1 hücresine vermek istiyorum dediğiniz için, kodu şöyle değiştirin.

Sub Autpen()
For i = 1 To Worksheets.Count
Sheets(i).[a1] = Sheets(i).Name
Next
End Sub

Kodu bir modüle yazdıktan sonra dosyayı kapatıp açın. Her açılışta dosya isimlerini Sayfaların A1 hücrelerine verecektir.​

 

[Merhum İdris SERDAR]

ThisWorbook'un Private Sub Workbook_SheetSelectionChange olayına;


Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
ActiveSheet.Name = Range("a1").Value
End Sub

kodları yazın.

Örnek dosya ekte.


..

 

[pelin5353]

Super... Calisiyor... cok tesekkur ederim...

 

[Orion1]

Merhaba.
Aşıdaki kodu yazdığınızda sayfalar aktif olduğunda sayfa ismini a1 hücresine yazacaktır.

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

 

[pelin5353]

Bu kod calismadi ... diger kodun yerine sadece bunu kopyaladim.. hata yaptigim nokta mi var acaba..?

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.

 

[pelin5353]

Sayin Sezar ,

Gercekten cok tesekkur ederim. Tam olarak istedigim bu idi... Emeginiz icin tesekkuler tekrardan...

 

[Orion1]

Rica ederim.
İyi çalışmalar.

 

[kombo]

bu deneme mesajıdır.