sayfa ismini hücreden değiştirmek

[kenangulal]

arkadaşlar günaydın , erken saatlerden beri arıyorum fakat bulamadım sorum şu;

excel de hücreye yazdığım rakkam yada harflerin kitapta bulunan sayfalara ad olarak verilmesidir tab kısmına sırasıyla isim vermek istiyorum

örnek A1= "20-05-2005" ise sayfa ismi(tab) ="20-05-2005"olsun yardımlarınız için teşekkür ederim.
syg.

 

[nziya]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
isim = Range("a1")
ActiveSheet.Name = isim
End Sub

 

[kenangulal]

sayın nziya cevabınız için teşekkür ederim fakat modulde sayfada ve userformda denedim çalıştıramadım ne yapmam gerekir?

syg.

 

[zafer]

Merhaba

Çalıştığınız sayfanın kod kısmına yukarıdaki kodları yapıştıracaksız.

Sayfa1 yazısının üstüne fare ile gidin sağ tuşa basın gelen menüde en sonda kod görüntüle çıkar onu seçip kodları yapıştırın

A1 e yazdığınız metin sayfanızın ismi olur

Hangi sayfada isterseniz onlarada aynı işlemi uygulayın.
Bütün sayfaları tek bir komut kullanarak da yapabilirsiniz fakat bu pek elverişli olmaz ben şahsen önermem.

 

[kenangulal]

çok teşekkür ederim sayın zafer,sayın nziya işimi tamamiyle gördü. kolay gelsin

saygılarımla.

 

[mehmetb84]

peki bunun tam tersi mümkün mü,yani sayfa adlarını A1'e yazdırmak?

 

[İhsan Tank]

peki bunun tam tersi mümkün mü,yani sayfa adlarını A1'e yazdırmak?

merhaba
kitabınızın kod bölümünde bulunan thisworkbook bölümüne

Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim ts
ts = "A1"
Range(ts) = ActiveSheet.Name
End Sub

bu kodu kopyalayın