sayfa içindeki herhangi bir hücrenin değerinin sekmede görünmesi

[şehiriçi]

değerli forum üyeleri ; benim istediğim herhangi bir sayfada bizim istediğimiz herhangi bir hücrenin değerini excel sekme ismi olarak otomatik getirsin

 

[Murat OSMA]

ThisWorkbook(BuÇalışmakitabı) kod sayfasına bu kodları yazın ve herhangi bir sayfanın A1 hücresine sekme ismi olarak belirlemek istediğiniz ismi yazın.

[FONT="Trebuchet MS"]Private Sub [COLOR="Red"]Workbook_SheetChange[/COLOR](ByVal Sh As Object, ByVal Target As Range)
    If [COLOR="red"]Target.Address(0, 0)[/COLOR] <> "[COLOR="red"]A1[/COLOR]" Then Exit Sub
    [COLOR="red"]ActiveSheet[/COLOR].Name = [COLOR="red"]Target[/COLOR].Value
End Sub[/FONT]

 

[şehiriçi]

murat osma; öncelikle ilgilendiğiniz için çok teşekkür
fakat ben bu kodu çalıştıramadım .ayrıca bu işlem formülle de olabilirmi ?
mümkünse hem formülle hemde kod la gönderebilirmisin

 

[Murat OSMA]

Bu işlem formülle olmaz.

Verdiğim kodu ne yaptınız da çalıştıramadınız ?
Bunu söylerseniz hatanızın ne olduğunu söyleyip, sonrasında yönlendirme yapabilirim.

 

[şehiriçi]

herhangi bir excel kitabı açtım sayfa1 e girdim fare ile kodu göster deyip verdiğiniz kodu kopyaladım sonra a1 hücresine ali yazdım ama sayfa1 > yerine ali gelmedi hala sayfa1

 

[bzace]

Murat bey'in dediğini tam anlamıyla yapmamışsınız anlaşılan.
ThisWorkbook(BuÇalışmakitabı) içerisine yazmanız lazım, Siz çalışma sayfasının içerisine yazmışsınız.

Kod penceresini açıp, sol tarafta yer alan Project - VBAProject penceresi altında yer alan bölümde bulunan ThisWorkbook(BuÇalışmakitabı) içerine yazınız.
Bahsi geçen pencere sol tarafta açık değilse açmak için;
View / Project Explorer seçimini yapınız. Kısa yol CTRL + R

Murat bey sitede olmadığından açıklama yapılmıştır.

 

[şehiriçi]

şimdi oldu
sayın bzace ve murat osma iyiki varsınız.

 

[şehiriçi]

şöyle bir proplem oluştuğu için tekrar sormak zorunda kaldım
aslında ben örnek olsun diye a1 hücresi dedim
oysa benim dosyamda sekme ismi olması gereken m1 hücresi
kod üzerinde a1 değiştirip m1 yapmama rağmen kod çalışmadı
tekrar dönerseniz beni bir sıkıntıdan kurtaracaksınız teşekkürler
Proplemi çözdüm ,basitte bir sorunmuş küçük harf olunca kabul etmedi büyük harf M1 yazınca düzeldi .
Bu son sorumu bu şekilde düzeltme gereği duydum
teşekkürler

 

[şehiriçi]

tekrar merhaba
sayın murat osma nın vermiş olduğu kod da şöyle bir değişiklik yapılabirmi
eğer N1 = "" ise M1 hücresi ile sekme aynı olsun

 

[YUSUF44]

Şöyle :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Address(0, 0) = "M1" And [n1] = "" Then
    ActiveSheet.Name = Target.Value
    End If
End Sub

ya da şöyle deneyin:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   
    If Intersect(Target, Range("m1")) Is Nothing Then Exit Sub
    If [n1] = "" Then
    ActiveSheet.Name = Target.Value
    End If
End Sub