Açılan Sayfalara Otomatik Köprü Verme

[NullHero]

Merhaba,

Worksheet içinde bulunan "ŞABLON" sayfasını çoğaltarak (Yeni Hammadde Kodu ekleme), sayfa isimlerini "LİSTE" isimli dosyanın "A8" hücresinden aşağı doğru yazdırıyorum(Her yeni açılan sayfanın adı). Yazdırma beraberinde "KÖPRÜ" ekleme de yapılabilir mi ? Sayfa isimlerini "LİSTE" isimli sayfaya aldığım kodlar, aşağıdaki gibidir. Yardım ve destekleriniz için şimdiden teşekkür ederim.

Private Sub Worksheet_Activate()


Application.ScreenUpdating = False



Range("a7") = "HAMMADDE KODU"

Range("A8:A500").ClearContents

Range("a7").Select


sayy = 7
For i = 1 To Sheets.Count

If Sheets(i).Name = "ŞABLON" Then

ElseIf Sheets(i).Name = "LİSTE" Then

Else

sayy = sayy + 1

Cells(sayy, 1) = Sheets(i).Name

Rows(sayy).RowHeight = 15

Cells(sayy, 1).Select


End If

Next


End Sub

 

[NullHero]

Muzaffer Ali bey 'in daha önceden bir başkası için vermiş olduğu kodları "DoubleClick" yaparak çözüm sağladım. Teşekkür ederim.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim syf As Worksheet
If Not Intersect(Target, Range("A8:A500")) Is Nothing And Not Target.Text = "" And Target.Cells.Count = 1 Then
For Each syf In ThisWorkbook.Worksheets
If syf.Name = Target.Text Then
Worksheets(Target.Text).Activate
Exit Sub
End If
Next
MsgBox "'" & Target.Text & "' isimli sayfa bulunamıyor."
End If
End Sub