Linke Tıklayınca Değer Değişsin

[Barfly]

Herkese selamlar,

Bir tablo üzerinde çalışıyorum, derdimi ekteki örnekte anlatmaya çalıştım. Değerli hocalarımın ve sizlerin yardımlarını rica ediyorum.

Saygılarımla,

 

[Levent Menteşoğlu]

Dosyanıza gerekli kodları ilave ettim. Sanıyorum istediğiniz buydu.

 

[Barfly]

Levent Hocam,

Ellerinize sağlık, çok güzel olmuş bir sıkıntımda veri içermeyen satırların görünmemesiydi. Örnekte detay sayfasında A18 ve sonrasında veri yok mesela.

Saygılarımla,

 

[Levent Menteşoğlu]

Rica ederim. Dosyanızda 1-26. satırdan sonrası görünmesin demişsiniz bende kodu ona göre düzenlemiştim. Bir üst mesajımdaki dosyayı yeniledim tekrar inceleyebilirsiniz.

 

[Barfly]

Levent Hocam,

Çok teşekkür ederim, kodları anlamaya çalışıyorum.

Saygılarımla,

 

[Barfly]

Hocam,

Aşağıda kırmızı ile işaretlediğim kısımları anlamadım, yardımlarınızı rica ederim.

Sub Makro3()
Range("C10").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub


Sub Makro4()
Range("B36").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"ÖZET!A1", TextToDisplay:="ÖZET!A1"
End Sub

Sub Makro5()
Rows("30:30").Select
Range(Selection, Selection.End(xlDown)).Select
End Sub


Bu başvurular hangi sayfanın hücrelerine tekabül ediyor, ayrıca detay yada özet olarak belirttiğim sayfa isimlerini Alınan Detay ve Veilen Detay olarak değiştirmek istesem kodlarda nereleri değiştirmem gerekecek.



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Hyperlinks.Count = 0 Then Exit Sub
ad = Cells(Target.Row, "b")
sayfa = Target.Hyperlinks.Item(1).TextToDisplay
Set s1 = Sheets("" & sayfa)
s1.[b7] = ad
s1.Rows("1:65536").EntireRow.Hidden = False
sat = s1.[a65536].End(3).Row + 1
s1.Rows(sat & ":65536").EntireRow.Hidden = True
End Sub

B7 hangi sayfanın B7 si çözemedim. Ayrıca ben tabloyu excel 2007 de hazırlıyorum ve satır sayısı 1.048.576 olarak görünüyor ve kullanılmayan satırların gizlenmei çok zaman alıyor, başka bir yöntemi var mıdır?

Saygılarımla,

 

[Levent Menteşoğlu]

İsminde makro kelimesi geçenlerin dosyanızda hiç bir işlevi yoktur. Ben bazı komutları elde etmek için makro kaydet yöntemini kullanırım bu makrolarda öyle elde edilmiştir. Sadece silmeyi unutmuşum. Asıl işi yapan selectionchange olayındaki sorularınıza gelince;

Çözümde sayfa adı, köprüye tanımladığınız metinden "sayfa = Target.Hyperlinks.Item(1).TextToDisplay" satırı ile alınmakta ve s1 değişkenine atanmaktadır. Dolayısıyla "s1.[b7]" tıklanan köprünün adından alınan sayfadaki B7 hücresidir. Eğer sayfa adlarını değiştirirseniz bu mantıkta köprü metinlerinide sayfa isimleri ile aynı yapmanız gerekir.

65536 ise 2003 versiyonu için azami satır sayısını ifade eder. 2007 kullanıyorsanız bu sayıyı 1048576 olarak değiştirin.