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

[hakan_demirkan]

Arkadaşlar hücre yardımıyla sayfa ismini nasıl değiştirebilirim, yani "A1" hücresine Excell yazdığımda sayfanın adıda Excell olsun istiyorum bunu yapabilen bir kod bilen varmı??? Veya başka bir görüşü olan varsa acill yardım !!!

 

[uzmanamele]

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1").Value = Empty Then Exit Sub
ActiveSheet.Name = "BENİM_SAYFAM_" & Range("A1").Value
End Sub

 

[hakan_demirkan]

Tşk. ama kodları çalıştıramadım macro ekranı boş çıkıyor modülede yazıyorum olmuyor

 

[Leoncio]

Sayın Uzmanamele'nin kodlarında problem yok. Gayet düzgün çalışıyor.

 

[uzmanamele]

merhaba
sayfanın kod bölümüne yazarak deneyiniz

 

[hakan_demirkan]

teşekkürler çok iyi oldu, birşey daha sormak istiyorum bu kod uygulamasını bütün sayfalara nasıl uygulayabilirim yani tek tek sayfalara bu kodu yazmadan bütün çalışma kitabına nasıl yayabilirim, Form aracılığı ile mi olur Textbox yardımıyla

 

[Ali]

Thisworkbook içine yapıştıracaksınız.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

....Bu kısma kodlarınızı yazacaksınız....

End Sub

 

[hakan_demirkan]

herkese çok tşk. ellerinize sağlık