Soru Makro ile Aktif Hücre İçeriğine Uygun Sayfa Açma ve O Sayfaya Köprü verme

[guntacmert]

arkadaşlar merhabalar
çok aradım ama hiçbir yerde bulamadım malesef

sizden ricam şu
başlıkta da belirttiğim gibi tabloma bir buton ekleyeceğim o butona makro atayacağım.
atayacağım makronun işlevi de
Dataların bulunduğu tablonun A sütununda hangi hücre aktifse makroyu çalıştırdığımda hücre içeriğine uygun sayfa açıp o hücreden o sayfaya köprü atayacak.
(mesela A5 hücresindeyim ve Hücrede X Firması yazıyor. Makroyu çalıştırınca X Firması diye sayfa açıp A5 hücresinden o sayfaya köprü atayacak.)
destek olabilecek arkadaşlara şimdiden teşekkürler.

 

[Muzaffer Ali]

Merhaba.
Firma isimlerinin bulunduğu sayfa adını "Ana Sayfa" olarak yazdım sizde farklıysa kodu düzenleyin.

Sub Test()
    Dim syf As Worksheet
    Dim SayfaAdi As String
    With Worksheets("Ana Sayfa")
        SayfaAdi = ActiveCell.Text
        If SayfaAdi = Empty Then
            MsgBox "Seçili hücre boş."
            Exit Sub
        End If
           
        Set syf = Sheets.Add(after:=Worksheets(Worksheets.Count))
        .Select
       On Error GoTo SayfaVar
        syf.Name = SayfaAdi
        .Hyperlinks.Add Anchor:=ActiveCell, Address:="", SubAddress:=SayfaAdi & "!A1", TextToDisplay:=SayfaAdi
    End With
    Exit Sub
SayfaVar:
    MsgBox Err.Description
End Sub

 

[guntacmert]

çok teşekkür ederim. sorunsuz çalıştı kod.
emeğinize sağlık.