Sayfalara Otomatik Köprü Oluşturmak.

[gsahmet56]

Öncekle herkese merhabalar.

Kendimce sitede yaptığım araştırmalarla ve bulduğum kodlarla bir dosya hazırladım.

1) Dosyayı şu şekil düşündüm Anasayfada A1'e yazdığım isimde yeni sayfa oluşturup ismini de A1'deki gibi yazıyor.

2) İkinci aşamada sayfa isimlerini köprü oluşturarak G sütununa yazsın. Sorun da burada çıkıyor. Sayfa isminde boşluk yoksa çalışıyor, boşluk varsa köprü çalışmıyor(Başvuru geçerli değil uyarısı alıyorum.).

Şimdiden teşekkürler.

 

[Asri]

Sayfanın kod bölümüne aşağıdaki şekilde ekleyip deneyiniz.

Link verirken sayfa adının başında tek tırnak olması gerekiyor.
Bu şekilde boşluklu isimler olduğunda sorun olmaz.

  "'" & isim & "'!A1"

Private Function SheetExists(sname) As Boolean
    Dim x As Object
    On Error Resume Next
    Set x = ActiveWorkbook.Sheets(sname)
        If Err = 0 Then
            SheetExists = True
        Else
            SheetExists = False
        End If
End Function


Private Sub Worksheet_Change(ByVal Target As Range)
    Dim aktifkitap As Workbook
    If Intersect(Target, Range("A1:A10000")) Is Nothing Then Exit Sub
    isim = Target.Value
    If Not SheetExists(Target.Value) Then
       aktifsayfa = ActiveSheet.Name
       Set NewSh = Sheets.Add(After:=Sheets(Sheets.Count))
       NewSh.Name = isim
       
       Sheets(aktifsayfa).Select
       ActiveSheet.Hyperlinks.Add Anchor:=Cells(Target.Row, Target.Column + 5), Address:="", SubAddress:= _
        "'" & isim & "'!A1", TextToDisplay:=isim
    Else
       ActiveSheet.Hyperlinks.Add Anchor:=Cells(Target.Row, Target.Column + 5), Address:="", SubAddress:= _
         "'" & isim & "'!A1", TextToDisplay:=isim
    End If
End Sub

 

[gsahmet56]

İlginiz için teşekkürler ama yapamadım çalışmıyor. Örnek dosyada yapıp ekleme şansınız var mı acaba?

 

[Asri]

Hayır yok : )

örnek dosyayı dosya.tc ye yüklemeniz gerekiyor.

 

[gsahmet56]

Buyrun yükledim.

http://s5.dosya.tc/server2/zp7ug3/Makro_Deneme_Veresiye_2.zip.html

 

[Asri]

A sütünunda aşağı doğru isimleri girin.
Her isim girdiğinizde o isme ait sayfa var ise ona G sütununda link verecektir.
O isimde sayfa yok ise sayfayı oluşturup, G sütununda link verecektir.

http://s4.dosya.tc/server2/3kyaba/SayfaLinkEkle.zip.html

 

[gsahmet56]

İstediğim bu değildi yine de teşekkür ederim.

Anasayfada bir şablon olacak ben A1'e bir isim yazacam, yazdıktan sonra Yeni sayfa butonuna bastığımda o sayfayı oluşturacak. Sadece A1'e isim yazacam A2, A3... isim yazılmayacak.

Daha sonrasında Liste butonuna bastığımda sayfaları bana sıralayıp köprüleyecek. Sadece köprü aşamasında sıkıntı çıkarıyor. Boşluk varsa olmuyor.

 

[Asri]

Yazdığınız ilgili kodu aşağıdaki şekilde güncelleyin.

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & sayfa.Name & "'!A1", TextToDisplay:=sayfa.Name

 

[gsahmet56]

Hocam oldu.

ÇOK TEŞEKKÜR EDERİM.