Otomatik köprü atmak

[Eser Gökay]

arkadaslar ekte dosyamda musteri kartları var. bu kartlarının toplam bilgilerini aldıgım bir icmal sayfası. yapmak istediğim macroyla icmal sayfasına gelen bu bilgilere tıklandıgında verinin geldiği sayfaya köprü atamak. Bunu köprü atayarak yapamıyorum. çünkü sayfaların alfabetik sıraya dizilmesi, sayfa eksilmesi artması gibi durumlardan dolayı standart köprüler koyamıyorum. yardımlarınızı bekler iyi calismalar dilerim...

 

[ibrahim_44]

merhaba

00 Mizan sayfanızın kod bölümüne aşağıdaki kodu yapıştırın

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
Cancel = True
 ad = Target
 Sheets(ad).Select
End Sub

doğru anladıysam snırım sorunuzu çözecektir

mizan sayfasında A stünundaki hücreye çift tıkladığınızda o sayfaya gidecektir

 

[parametre]

kopru atacağın dosya tekmi yani tum bilgilerin a dosyasındaysa tek noktaya baglarsın meslede olmaz derim ama farklı dosyalara kopru atmak istiyorsan onun için makro yazmak gerekir benden evvelki arkadasta yazmıs zaten

 

[erkankamilonas]

Sub HücredeYazanSayfaAdınıKöprüOlarakEkler()
slc = Selection
Sayfa1.Hyperlinks.Add Anchor:=Selection, _
Address:="Kartlar.xls" & "#" & "'" & Selection & "'" & "!A1", _
TextToDisplay:=slc
End Sub

Sub KöprüyüSil()
Selection.Hyperlinks(1).Delete
End Sub