listeleme link hk. NASIL YAPARIZ !!!

[zetkatamet]

Arkadaslar merhaba,
Ekteki dosyadaki yukaridan asagi listelenmis bilgileri ilk hazirlamamda duzenlemis oldugum linklerde hicbir problem olmuyor. Araya ilave ettigim maddelerde linkerin hepsini degistirmem gerekiyor. Bu sorunu nasil halledebiliriz. Simdiden tesekkurler.

 

[zetkatamet]

Sayın uzman arkadaşlar,
En azından bu istedigin sey olmaz falan deyin, bizde bir umutla beklemeyelim. Cozumu benim icin cok onemli. Tesekkurler.

 

[zetkatamet]

uzman arkadaşlar,
ilk verdim örneğe C1 ve C2 satırlarını ekledim. daha önce bu ilaveler yok iken linklerde hiçbir problem olmuyordu, bu ilaveler den sonra aşağıya doğru satır ilavesi olduğundan linklerin hepsini değiştirmem gerekiyor, lütfen yardımcı olurmusunuz.

 

[zetkatamet]

uzman arkadaşlar,
duyun sesimi, her 5 dakikada bir cevap geldimi diye bakıyorum. lütfen yardımcı olurmusunuz.

 

[Ferhat Pazarçevirdi]

Siz, yeni bir grup girildiğinde; sıralama bozulmadan link'in nasıl verileceğini mi merak ediyorsunuz ?

Eğer öyleyse; C sütununa; her grubu ifade edecek; örnek datalar girip, dosyanızı buraya tekrar upload ediniz.

Mesela A grubu; A ile başlayanlar mıdır ?


.

 

[zetkatamet]

sn.pazarçevirdi,
evet A grubu A ile başlayanlar anlamında. mesela listeye cezve ve ciger diye ilave yaptım. kullanıcı c linkine bastığında cankat seçeneğine geliyor. ilave yaptığım zaman c ile başlayan yerin altındaki bütün linkler kayıyor. umarım anlatabilmişimdir.
liste uzun olduğundan bütün linkleri değiştirmek zaman alıyor.

 

[Ferhat Pazarçevirdi]

Daha iyi anlayabilmek adına soruyorum ...

"C" harfiyle başlayan ve listenizde bulunan birçok veri olsun. Bu durumda; siz,

Ca Ce Cib Cic Cid Co Cu

şeklinde mi link verilmesini istiyosunuz ?

 

[zetkatamet]

hayır, c nin en başına gitsin, daha sonra detayı görmek isteyen mouse un scroll u ile asagiya gidebilir.

 

[zetkatamet]

istediğim yapılabilir bir şeymi, beklemeye devam edeyimmi. rica etsem birisi cevaplayabilir mi.

 

[Ferhat Pazarçevirdi]

Ekteki dosyayı inceleyiniz.

Aşağıdaki kodlar kullanılmıştır.

Sub Linkleri_Yenile()
    Dim rngArl As Range
    Dim rngHcr As Range
    Dim rngBul As Range
    Set rngArl = Range("O3:S11")
    
    For Each rngHcr In rngArl.Cells
        If rngHcr.Row Mod 2 > 0 Then
            Set rngBul = Range("C5:C65000").Find(UCase(rngHcr) & "*", _
                                                 Lookat:=xlWhole)
            If Not rngBul Is Nothing Then
            
                ActiveSheet.Hyperlinks.Add _
                    Anchor:=rngHcr, _
                    Address:="", _
                    SubAddress:=rngBul.Worksheet.Name & "!" & rngBul.Address, _
                    TextToDisplay:=rngHcr.Text
            
            End If
        End If
    Next
    Set rngArl = Nothing
    Set rngBul = Nothing
End Sub

 

[zetkatamet]

çok ama çok teşekkür ederim, gayet güzel bir çalışma oldu. emeğinize sağlık. saygılar.

 

[zetkatamet]

sn.ferhat pazarcevirdi bey msn adresinize bir e-mail gonderdim. rica etsem müsait bir zamaninizda bakabilirmisiniz.
Iyi calismalar.
Saygilar.

 

[zetkatamet]

sn.ferhat pazarcevirdi bey msn adresinize bir e-mail gonderdim. rica etsem müsait bir zamaninizda bakabilirmisiniz.
Iyi calismalar.
Saygilar.