Herhangi bir hücreye göre sayfa adı belirleme

[staluer]

Sayfa1 Sayfa2 diye hazır gelen sayfa isimlerinin aynı sayfada bulunan bir hücreye girdiğimiz isme göre değişmesini sağlayabilir miyiz.
Yani a1 hücresine xxx yazdığımda sayfa adı da otomatik olarak xxx olabilir mi ?

Teşekkür ederim...

 

[Merhum İdris SERDAR]

Aşağıdaki kodu kullanın.

A1 hücresindeki değere göre sayfanın adı değişir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [a1] = "" Or ActiveSheet.Name = [a1] Then Exit Sub
On Error GoTo mesaj
If ActiveSheet.Name <> [a1] Then ActiveSheet.Name = [a1]
Exit Sub
mesaj:
MsgBox [a1] & " Bu isimde bir sayfa var!..." & vbCr & "İşlem yapılmadı!..."
End Sub


.

 

[staluer]

teşekkürler.

 

[staluer]

ya denemeye çalıştım ama beceremedim.daha doğrusu kod yazma konusunda epey acemiyim...yardımcı olursanız teşekkür ederim.

 

[staluer]

Tamam. Teşekkürler nihayet hallettim.....çok teşekkür ederim....

 

[uyrdkl]

Teşekkür ederim işime yarar