Açılan Yeni Sekmenin Adını Hücreden Alma

[TURANNET]

Uygulamayı çalıştırmayı başardım.Kod çalışıyor.
Ancak sayfayı aktive ettiğimizde adını değiştiriyor.Kod yazma olayından pek anlamıyorum ama zaten yazdığınız koddan da bu şekilde olacağını şimdi anlıyorum
Peki bunu tek seferde yaptırma yöntemi varmıdır.
Bunuda yanıtlarsanız çok sevinrim Teşekkürler tekrar

 

[İhsan Tank]

Uygulamayı çalıştırmayı başardım.Kod çalışıyor.
Ancak sayfayı aktive ettiğimizde adını değiştiriyor.Kod yazma olayından pek anlamıyorum ama zaten yazdığınız koddan da bu şekilde olacağını şimdi anlıyorum
Peki bunu tek seferde yaptırma yöntemi varmıdır.
Bunuda yanıtlarsanız çok sevinrim Teşekkürler tekrar

tek seferde derken onu anlamadım.
siz hangi sekmeye geçerseniz orda kod aktif oluyor böyle daha kullanışlı değil mi_?
ayrıca hücrede bilgi yok ise uyarıyor ve giriş yapmanızı sağlıyor ve kod'un hata verme olasılığı bulunmuyor.
direk yapmasını istiyorsanız hücreye bilgiyi yazın sonra başka bir sayfaya geçin tekrar bilgiyi yazdığınız sekmeye tıklayın değişikliği farkedeceksiniz.

 

[TURANNET]

Uygulama güzel olmuş gerçekten elinize sağlık.BU haliyle sekme adlarını değiştiriyor.
Ancak elimdeki herbir excell dosyasında 500,1000 veya daha fazla sekme olabiliyor (Dosya sayına göre değişiyor)
L7 hücresinde dosya adları yer alıyor ve sekme içine; yani sayfaya girme den hangi dosyada çalışacağımı bilemiyorum.
Yani dosya adlarının çalışmaya başlamadan önce L7 hücresinden okunarak sekme adına aktarılmasını istiyorum

 

[İhsan Tank]

Uygulama güzel olmuş gerçekten elinize sağlık.BU haliyle sekme adlarını değiştiriyor.
Ancak elimdeki herbir excell dosyasında 500,1000 veya daha fazla sekme olabiliyor (Dosya sayına göre değişiyor)
L7 hücresinde dosya adları yer alıyor ve sekme içine; yani sayfaya girme den hangi dosyada çalışacağımı bilemiyorum.
Yani dosya adlarının çalışmaya başlamadan önce L7 hücresinden okunarak sekme adına aktarılmasını istiyorum

merhaba
biraz önce thisworkbook'a yazdığınız kod'u bununla değişin

Option Explicit
Private Sub Workbook_Open()
Dim ts(), kaplan
Sheets(1).Select
ReDim ts(Sheets.Count - 1)
For kaplan = 0 To Sheets.Count - 1
ts(kaplan) = Sheets(kaplan + 1).Name
Sheets(ts(kaplan)).Select
Sheets(ts(kaplan)).Name = Range("L7")
Next kaplan
End Sub

 

[TURANNET]

Çok teşekkür ederim İnanın çok makbule geçti.
Ellerinize sağlık....

 

[İhsan Tank]

Çok teşekkür ederim İnanın çok makbule geçti.
Ellerinize sağlık....

rica ederim
:yazici: