Hücre Değerini Sekme İsmi Olarak Verme

[em.mehmetaliates]

Günaydın,

H5 hücresindeki değeri sekme ismi olarak vermek istiyorum. Nasıl yapabilirim. Yeni başlayanlar bölümünde yazdım fakat cevaplamalarına rağmen pozitif sonuç alamadım.Yardımlarınızı bekliyorum.

 

[Emir Hüseyin Çoban]

. . .

Bu işlemi makro kullanarak yapabilirsiniz.

Sub KOD()
ActiveSheet.Name = Range("H5")
End Sub

. . .

 

[em.mehmetaliates]

Aynı cevabı diğer bölümde de aldım ama nasıl uygulanacağını tam bilmediğimden beceremedim sanırım. Kodlar hakkında çok çok az bilgim var. Bişeyler denedim fakat olmadı. İzlemem gereken yöntemide belirtirseniz sevinirim.

Başka bir kodu daha kullanıyorum. Şu yöntemi izledim. Hatamı söyleyebilir misinz?

(Kodu Alt+F11 yaptıktan sonra This workbook seçtikten sonra karşılaştığım alana yapıştırıyorum)

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim Say As Byte
Say = ThisWorkbook.Sheets.Count
If Say > 26 Then
MsgBox "Sayfa ekleme sınırını aştınız!" & Chr(10) & _
"Yeni eklenen sayfa silinecektir.", vbCritical, "Uyarı!"
Application.DisplayAlerts = False
Sh.Delete
Application.DisplayAlerts = True
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ActiveSheet.Name = Range("H5").Value

End Sub

 

[Emir Hüseyin Çoban]

. . .

Sorunuz eksik. Sayfa ismini hangi durumda değiştirmek istiyorsunuz.
Yeni sayfa açınca otomatik H5 hücresinden mi ismini alsın.

. . .

 

[em.mehmetaliates]

Yeni bir Sekme açıyorum.ZAten yeni açıldığı için h5 hücresinden veri alma gibi bir durum söz konusu olamaz.Bende daha sonra Başka bir excel sayfasından aldığım veriyi arşivlemek amacıyla buraya kopyalıyorum.(ctrl+C Ctrl+V ile) h5 hücresi değer içerdiği zaman bunun sekme adı olarak kullanılmasını istiyorum.

 

[Emir Hüseyin Çoban]

. . .

Yeni açtığınız çalışma sayfasının kod bölümüne yapıştırın.

H5 hücresine yeni veri girildiğinde sayfa ismini değiştirir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> "H5" Then Exit Sub
ActiveSheet.Name = Range("H5").Value
End Sub

. . .

 

[em.mehmetaliates]

Hocam ilgi alakanız için çok teşekkürler fakat. Sorunum çözülebilmiş değil.

Benim hata yapma ihtimalim de yüksek olduğu için kodu nasıl kullandığımıda anlamanız açısından dosya ekleyeceğim.

 

[ZorBey_]

Sayın em.mehmetaliates kodlar çalışıyor.
Yeni açtığınız sayfanın kod bölümüne
kopyalayıp denermisiniz.

 

[em.mehmetaliates]

Aslında sorun ufacak bişey. Kodu nereye yazacağımı tam olarak bilmiyorum. Kodu Alt+F11 yaptıktan sonra This workbook seçtikten sonra karşılaştığım alana yapıştırıyorum. Eğer bu yaptığım yer ise denedim olmuyor. Eğer başka bi yer ise bu konuda yardımcı oabilir misiniz. Kusura bakmayın basit bi konu için sizi çok fazla uğraştırdım.

Beki gönderdiğim örnek dosyayı incelediniz mi benim gönderdiğim ekte neden çalışmıyor?

 

[Emir Hüseyin Çoban]

. . .

Kodu VBA penceresinde sayfa ismini çift tıklayın, açılan pencereye yapıştırın.
Yani kodu Sayfaların kod kısımlarına yazmanız gerekiyor.

. . .

 

[em.mehmetaliates]

Hüseyin bey,

bu şekilde kod işliyor fakat benim esas ihtiyacım olan her yeni sekme açtığım otomatik olarak h5 hücre değerini sekme ismi olarak yazdırması.Bu şekilde sadece kodu yapıştırdığım sayfada işe yaramakta.Bu benim ihtiyacımı karşılamıyor. Çünkü zaten her yeni sekme açışımda sekme ismini değiştirmeyi kolaylaştırmak için bi yöntem arıyorum. Yazdığım bu kodun tüm sekmelere etki etmesini sağlamamın bi yolu var mıdır?

 

[Korhan Ayhan]

Kodu dosyanızın ThisWorkbook bölümüne uygulayınız.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Range("H5") <> "" Then
        Sh.Name = Left(Range("H5"), 31)
    End If
End Sub

 

[em.mehmetaliates]

Teşekkür ederim. Sorun çözülmüştür.