toplu otamatik köprü oluşurmu

[halilkalyoncu]

selamün aleyküm ustalar sorunumu dosya içinde anlatmaya çalıştım yardımcı olabirmisiniz.

 

[asi_kral]

Merhaba
Sayfanın kod bölümüne kopyalayın ve deneyin

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Column = 1 And Target.Row > 2 Then
Sheets(Target.Text).Select
End If: End If
End Sub

 

[Emir Hüseyin Çoban]

. . .

Sub Kod()
    Dim Sayfa As String
    For a = 3 To Cells(Rows.Count, "A").End(3).Row
        Sayfa = Cells(a, "A").Value
        If Not SayfaVarMi(Sayfa) Then
        Else
            ActiveSheet.Hyperlinks.Add Anchor:=Cells(a, "A"), _
            Address:="", SubAddress:=Sayfa & "!A1", TextToDisplay:=Sayfa
        End If
    Next a

End Sub

Function SayfaVarMi(Sayfa As String) As Boolean
On Error Resume Next
SayfaVarMi = CBool(Len(Worksheets(Sayfa).Name) > 0)
End Function

. . .

 

[bkk]

Merhabalar,

bende toplu olarak köprü atamak istiyorum ama benim istediğim a1 hücresini sıradaki sekmeye ataması, kodu biraz inceledim sayfa1 sayfa2 sayfa3 için çalışıyor,

Talebim mümkün müdür?