Sayfayı Hücre bilgisine Göre Adlandırma

[neo]

:agla: Merhaba Dostlar ........

Çok ugraştım ama yapmayı başaramadım

A1 Hücresine yazmış olduğum metin yada sayının sayfa ismi olarak değişmesi ve açmış olduğum bir çok sayfada da bunu uygulamak birde aynı ismi kullanırsam beni uyramasını saglamak mümkünmü
bir kaç örnek dosya da inceledim ama yapamadım yardımcı olursanız sevinirim

Saygılarımla.

 

[veyselemre]

Aşağıdaki kodları ThisWorkbook kod kısmına yapıştır dene

[vb:1:4acb21d803]Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If [a1] = "" Or ActiveSheet.Name = [a1] Then Exit Sub
On Error GoTo mesaj
If ActiveSheet.Name <> [a1] Then ActiveSheet.Name = [a1]
Exit Sub
mesaj:
MsgBox [a1] & " İsmi Kullanılmıştır." & vbCr & "İşlem Gerçekleşmedi!!!"
End Sub
[/vb:1:4acb21d803]

 

[bekir38]

sayın neo,

ekteki dosyada bazı örnekler var. umarım işinize yarar.
hücre değerine göre; kitabı farklı kaydetme ve sayfa oluşturma ile ilgili örnekler.

iyi çalışmalar,

 

[neo]

:hey:

Sn veyselemre ve Sn bekir38 yardımlarınız için çok teşekkur ederim

 

[bekir38]

sayın neo,

başka bir örnek daha buldum.
bu dosyada sizi mesaj box ile uyarıyor. belki buda işinize yarar.

iyi çalışmalar, :hey:

 

[neo]

:hey:

Sn bekir38 tekarar tekrar çok teşekkur edrim oldukça işime yardılar