hücreye tıklayınca hücrede yazılı isme göre yeni bir sayfa açılması

[gezgin-49]

arkadaşlar ekte gönderdiğim dosyada ana sayfada firma adları mevcut bu firma adlarından herhangi birisine tıkladığımda o firmaya ait aynı adı taşıyan bir sayfa açılmasını ve o firma ile ilgili ne kadar bilgi varsa örnek sayfaya aktarmasını, firma isminin A1 hücresine büyük harf ve puntolarla yazılmasını istiyorum, yardımlarınız için şimdiden teşekkür ederim.

 

[sdegirmenci]

Aşağıdaki kodu sayfanın kod bölümüne yapıştırın.
İyi geceler.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo hata
If Intersect(Target, [c2]) Is Nothing Then Exit Sub
ActiveSheet.Name = [c2]
hata:
MsgBox "Sayfa ismi değişmiştir!"
End Sub

 

[sdegirmenci]

Sayın gezgin49 özür dilerim Soruyu yanlış anlamışım. Sanırım yukarıdaki kod işinizi görmez. hayırlı geceler.

 

[janveljan]

Aşağıdaki örnek sayfa isimleri hariç işinize yarayabilir.
http://www.excel.web.tr/f14/sayfalar-aras-suz-ile-otomatik-aktarma-t58493.html

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. C sütunundaki hücrelere çift tıklayıp deneyiniz.

 

[gezgin-49]

Sayın üstadım Korhan Ayhan her zamanki gibi harikasınız, çok teşekkür ediyorum. Bu arada Sayın Janveljan arkadaşım ile sdegirmenci arkadaşlarıma da ilgilerinden dolayı teşekkür ediyorum.