Yatayara ile çalışma sayfasının değişmesi

[lavvar]

merhabalar
Sorumun örnekle daha iyi anlaşılacağı inancıyla bir örnek dosya yolladım.
Aramalarım sonucunda aşağıdaki linkte tam olarak olmasada benzer bir problemle karşılaştım ama oradaki cevabı kendime uyarlayamadığımdan bu konuyu açtım. Umarım yardımcı olabilirsiniz şimdiden teşekkürler

http://www.excel.web.tr/showthread.php?t=39455

 

[mehmett]

İsteğiniz ancak makro ile olur.

Dosyanıza eklediğim aşağıdaki makroyu deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B11]) Is Nothing Then Exit Sub
yeniad = Cells(2, [B11])
ActiveSheet.Name = yeniad
End Sub

 

[mehmett]

Yukarıda verdiğim makro sadece B11 hücresinde değişiklik olması halinde sayfa adını değiştiriyor.

Sorunuza yeniden bakınca anladım ki, B11 hücresindeki değer formül ile başka yerlerden gelecek.

O zaman aşağıdaki kodlardan birini kullanırsınız.

Private Sub Worksheet_Change(ByVal Target As Range)
yeniad = Cells(2, [B11])
ActiveSheet.Name = yeniad
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Name = Cells(2, [B11])
End Sub

 

[lavvar]

çok teşekkür ederim sn Mehmet bey ilk kodu çalıştıramadım ama yazmış olduğunuz ikinci kod problemi halletti. Tekrardan çok teşekkürler. İyi çalışmalar