Aktif sayfa ismini A1 hücresine

[tufan03]

Arkadaşlar Excelde aktif safa ismini devamlı olarak A1 hücresine yazacak makro lazım. Selamlar

 

[N.Ziya Hiçdurmaz]

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

 

[kombo]

Dosyanızın her açılışında sayfaların ismini her sayfanın A1 hücresine yazmak için;
Sub Autpen()
For i = 1 To Worksheets.Count
Sheets(i).[a1] = Sheets(i).Name
Next
End Sub

 

[tufan03]

Sayın V.Basic ve kombo çok teşekkür ederim.

 

[Orion1]

Merhaba.
Thisworkbook modülüne aşağıdaki kodu yazarsanız.Sayfalar her aktif olduğunda sayfanın ismini a1 hücresine yazar.
İyi çalışmalar.

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