Çözüldü Makro İle Köprü Oluşturma

[okan32]

Merhaba Arkadaşlar

Köprü oluşturma ile ilgili yapmak istediklerimi ekteki örnek dosyama yazdım. Şimdiden yardımlarınız için teşekkür ederim.

 

[çıtır]

Sayfa1 ,Sayfa kodu olarak kopyalayınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A6:D15]) Is Nothing Then Exit Sub
Sheets("Sayfa" & Target.Value).Select
   End Sub

 

[Muzaffer Ali]

Merhaba.
Alternatif olsun.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A6:D15")) Is Nothing Then Exit Sub
    Hyperlinks.Add Anchor:=Target, Address:="", SubAddress:="Sayfa" & Target.Value & "!A1"
End Sub

 

[okan32]

SAYIN ÇITIR VE DALGALİKUR ÇOK TEŞEKKÜR EDERİM.

 

[çıtır]

SAYIN ÇITIR VE DALGALİKUR ÇOK TEŞEKKÜR EDERİM.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.

 

[okan32]

Sayın çıtır hocam örnek dosyada çalışan kod gerçek dosyamda çalışmadı.Başvuru geçerli değil hatası verdi

Çünkü gerçek dosyamda hücrelere yazdığım değerler numara değil isimler herhalde o yüzden hata verdi
Nasıl düzenleyebiliriz acaba

 

[çıtır]

Örnek dosya ile gerçek dosyanın yapısı aynı olmalı Kod ve formüller ona göre oluşturuluyor. Farklı olması durumunda ne yapılması gerektiğini bilmek için yazdığız değerleri ve sayfa adlarını bilmek gerekir.Hücrelere sayfa adını mı? Yazıyorsunuz.Gerçek belgenizle aynı yapıda örnek belge ekleyin bakalım.

 

[çıtır]

Hücrede Sayfa adı yazılı ise

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A6:D15]) Is Nothing Then Exit Sub
Sheets(Target.Value).Select
   End Sub

 

[okan32]

Çıtır bey Sayfa isimleri değilde Hücrelerde Ad ve Soyadlar var
Sayfalar ise Sayfa1,Sayfa2.........Sayfa145 kadar

 

[çıtır]

Çıtır bey Sayfa isimleri değilde Hücrelerde Ad ve Soyadlar var
Sayfalar ise Sayfa1,Sayfa2.........Sayfa145 kadar

Gerçek dosyanıza uygun örnek dosya paylaşınız.

 

[okan32]

Gerçek dosyamın örneğini ekte gönderiyorum.
yapmak istediğim B5:G28 aralığındaki isimlere tıkladığımda Sayfalara sırayla otomatik köprü oluşturacak
B5 tıkladığımda Sayfa2 B6 tıkladığımda Sayfa3...........g28 tıklayınca Sayfa145 kadar otomatik köprü oluşturulacaktır.
Yarıdımlarınız için şimdiden teşekkürler

 

[Muzaffer Ali]

Dosyanız ekte.

 

[okan32]

Teşekkür ederim sayın dalgalikur

 

[çıtır]

Benim hazırladığım da alternatif olsun.

 

[okan32]

Sağolun sayın çıtır Teşekkürler

 

[çıtır]

Sağolun sayın çıtır Teşekkürler

Rica ederim.Dönüş yaptığınız için teşekkür ederim.