HÜCREDE YAZAN SAYFA ADINA GÖRE BAĞLANTI YAPMA!

[Şamil basayev]

bir sayfada tüm sayfa adları yazılı olan hücreler vardır. yan taraflarındaki hücrelere veya aynı hücreye o hücrede yazan sayfaya bağlantı yapma...

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz:

Sub kopruleme()
son = Cells(Rows.Count, "A").End(3).Row
For i = 1 To son
    If Cells(i, "A") <> "" Then
        For j = 1 To Sheets.Count
            If Sheets(j).Name = Format(Cells(i, "A"), "@") Then
                ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, "B"), Address:="", SubAddress:= _
                    "'" & Cells(i, "A") & "'!A1"
                j = Sheets.Count
            End If
        Next
    End If
Next
End Sub

 

[Şamil basayev]

hmmm makrosuz yapma durumumuz yok mu? ben makrolarda kod yazma işlemini bilmiyorum.

 

[YUSUF44]

Burdan başlayabilirsiniz:

Kodları kopyalayın.
Excel dosyanızda Alt+F11 yapın ya da sayfa sekmesine sağ tıklayıp kod görüntüle deyin
Insert menüsünden Module'yi seçin
Açılan sayfaya bu kodları yapıştırın
Excel dsoyanızda köprü eklenecek sayfanıza geçin
Sayfaya bir düğme/şekil/resim ekleyin
Eklediğinize sağ tıklayıp Makro ata deyin
Açılan listede kopruleme makrosunu seçip işlemi tamamlayın.
Dosyanızı Makro içerebilen excel dosyası olarak kaydedin.
Artı o eklediğinize bastığınızda koprü işlemini yapacaktır.

 

[muratboz06]

Sayfa isimlerinin olduğu excel sayfasının kod bölümüne aşağıdaki kodu kopyalayın ve çalıştırın.

Sub KöprüEkle()
    ' A1 hücresinden itibaren A sütununda yer alan her bir dolu hücre için içindeki değerin adındaki sayfaya köprü ekler.
    LastRow = ActiveSheet.Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row

    For i = 1 To LastRow
        Range("A" & i).Select
 
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
                                   ActiveCell.Value & "!A1", TextToDisplay:=ActiveCell.Value
    Next i
    Range("A1").Select
End Sub

 

[Şamil basayev]

bu söylediklerinizi yapmış bulunmaktayım. ancak başvuru geçerli değil gibi bir ibare çıktı.

 

[muratboz06]

Hücrenin içindeki veri adında bir sayfa yok ise bu uyarıyı verir. Sayfa isimlerini kontrol ediniz.

 

[Şamil basayev]

yardımlarınız için çok teşekkürler. sorunu hallettim.