listelediğim değerlere otomatik link vermek istiyorum ?

[pitsss]

Merhaba arkadaşlar.
forumdaki arkadaşlar dan(tahiroğlu, AS3434 , Sezar gibi) yardım alarak makrolu bir excel sayfası oluşturdum.
kitap11 deki anasayfa sayfasındaki e1 hücresine girdiğim değer adında yeni sayfa oluştur butonuna basınca e1 hücresindeki değer ile yeni bir sayfa oluşturuyorum.
yeni sayfa oluşturur oluşturmaz da, senet sayfasında yeni oluşturduğum ve daha önceden oluşturduğum tüm sayfaların isimleri ile birlikte bilgleri sıralanıyor.
sorum ise şu:
bu senet sayfasında ki b sutunundaki sayfa isimlerinde link te olsun istiyorum. yani 1 sayfasına tıklayınca 1 sayfasına gitsin. 2sayfasına tıklayınca 2 sayfasına gitsin.
bunu nasıl yapabilrim?
bu link olayının da otomatik olmasını istiyorum. Aynı senet sayfasının listelenmesi gibi.
şimdiden herkese teşekkürler arkadaşlar.

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sayfa As String
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
sayfa = ActiveCell.Value
For i = 1 To Sheets.Count
If sayfa = Sheets(i).Name Then
Sheets(i).Select
End If
Next
End Sub

 

[pitsss]

Merhaba.
Ekli dosyayı inceleyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sayfa As String
sayfa = ActiveCell.Value
For i = 1 To Sheets.Count
If sayfa = Sheets(i).Name Then
Sheets(i).Select
End If
Next
End Sub

çok Teşekkürler. yine tam istediğim gibi oldu.
İnsan bilince ne kadar harika oluyor. İnşalalh. bizde öğreneceğiz silerin yardımıyla. elimizden geldiğince.

 

[Orion1]

Merhaba.

Dim sayfa As String

Yukarıdaki kodun altına aşağıdaki kodu koyarsanız dağa doğru olacaktır.

If Intersect(Target, [B:B]) Is Nothing Then Exit Sub

Dosyayı yukarıdaki koda göre yeniledim .Tekraradan indirebilirsiniz.

 

[pitsss]

Merhaba.

Dim sayfa As String

Yukarıdaki kodun altına aşağıdaki kodu koyarsanız dağa doğru olacaktır.

If Intersect(Target, [B:B]) Is Nothing Then Exit Sub

Dosyayı yukarıdaki koda göre yeniledim .Tekraradan indirebilirsiniz.

tekrar teşekkür ederim.
ilginiz ve alakanız için.
Sağolun.

 

[Orion1]

Rica ederim.
İyi çalışmalar.