Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Bu kodu dener misiniz? (Sayfa isminin alınacağı hücre olarak E3 hücresi baz alınmıştır.)(NOT : Kodlar bu forumdan alıntıdır)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$3" And Cells(Target.Row, "E") <> "" Then
ActiveSheet.Name = Cells(Target.Row, "E")
End If
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.