Sayfa isimlerini listele ve köprü oluşturma

[Believing]

Sayın uzman arkadaşlar,

Ekteki çalışma kitabında sayfa isimlerini "SETTINGS" isimli sayfanın "K2" hücresinde itibaren listeliyor ve listeden sayfalara köprü oluşturuyorum.
Bunu yaparken "SETTINGS, LICENSE, ŞABLON, PARAMETRE, VERİTABANI" gibi sayfaları listelemek istemiyorum.
Bu senaryoyu sağlamak için mevcut kodda nasıl bir değişiklik yapmalıyım? Değerli yardımlarınızı rica ediyorum.

Saygılarımla.

Sub Sayfalari_Listele_Kopru_Kur()
For Each sayfa In ThisWorkbook.Worksheets
Sheets("SETTINGS").Select
Range("K1048576").End(xlUp).Offset(1, 0).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=sayfa.Name & "!K2", TextToDisplay:=sayfa.Name
Next sayfa
End Sub

Örnek Çalışma Kitabı Linki:

Listele_ve_Kopru_Olustur.xlsm dosyasını indir - download

Listele_ve_Kopru_Olustur.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s7.dosya.tc

 

[muysun35]

ö

Bunu yaparken "SETTINGS, LICENSE, ŞABLON, PARAMETRE, VERİTABANI" gibi sayfaları listelemek istemiyorum.

Önce listelesin.. sonra array le görünmesini istemediğiniz sayfaları seçin. ve bağlantısını silin.

 

[veyselemre]

Sub Sayfalari_Listele_Kopru_Kur()
    sat = 2
    Range("K2:K" & Rows.Count).Clear
    For Each sayfa In ThisWorkbook.Worksheets
        Select Case sayfa.Name
            Case "SETTINGS", "LICENSE", "ŞABLON", "PARAMETRE", "VERİTABANI"
            Case Else
                Sheets("SETTINGS").Select
                Cells(sat, "K").Select
                ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=sayfa.Name & "!K2", TextToDisplay:=sayfa.Name
                sat = sat + 1
                sayfa.Select
                [k1].Select
                ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="SETTINGS!K2", TextToDisplay:="SETTINGS"
        End Select
    Next sayfa
End Sub

 

[Believing]

Sayın Veysel bey,

Sadece "K2" hücresine SETTINGS yazmaktadır.

Saygılarımla.

 

[Korhan Ayhan]

SETTINGS sayfasına bakınız.

 

[Believing]

Sayın Korhan bey,

Dikkatiniz takdire muhtaçtır.
Hakkını vermek lazım.
Şahsınıza ve Veysel beye yardımlarınız için çok teşekkür ederim.
ALLAH sizlerden razı olsun, her sorumuzda verdiğiniz katkılar ile yeni bir şeyler öğreniyoruz.
Ellerinize ve emeğinize sağlık.
Kolay gelsin.

Saygılarımla.

 

[Tevfik_Kursun]

Ayrıca diğer sayfalardaki K1 hücresinde SETTINGS yazısına basınız
İyi çalışmalar

 

[Believing]

Sayın uzman arkadaşlar,

Senaryoları daha önceden öngöremediğim için son bir sorum daha olacak.
"SETTINGS" sayfasının "K" sütununa listeleme yaparken mevcut sütun biçimlendirmesini nasıl koruya bilirim?

Saygılarımla

 

[Korhan Ayhan]

Veysel beyin önerisindeki aşağıdaki satıra kırmızı eklemeyi yapınız.

Range("K2:K" & Rows.Count).ClearContents

 

[Believing]

Çok teşekkür ederim Korhan bey,
Emeğinize sağlık

Saygılarımla.