Belirli bir veri içeren hücreye köprü oluşturmak

[senol181]

Merhabalar,
Aylık sevkiyat takibi için hazırladığım dosyada herbir gün için,o günün başlığı altında planlanan ve gerçekleşen sevkiyatları takip etmeye çalışıyorum.
A sütununda Ekim1,......,Ekim30 olarak alt alta yazdım ve her gün için ilgili günün olduğu yere köprü oluşmak istiyorum.
Sorum şu olacak; excel sayfasında belirlenmiş olan bir kriteri içeren hücreye nasıl köprü oluştururum. yani (A50) gibi hücreye değilde,hücrenin içindeki veriye göre köprü oluşturmak mümkünmüdür.

Teşekkürler..

 

[Asri]

Bu kodu

A1 kolonuna Ekim1,Ekim2 verilerini alt alta yazdığınız sayfanın kod bölümüne yapıştırın.

Her bir bilgi girişinde program girilen bilgiye ait bir sayfa var ise linkini atayacak, yok ise sayfayı oluşturup link verecektir.

Public Function WorksheetExists(ByVal WorksheetName As String) As Boolean
   On Error Resume Next
   WorksheetExists = (Sheets(WorksheetName).Name <> "")
   On Error GoTo 0
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 WorksheetExists(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), Address:="", SubAddress:= _
        "'" & isim & "'!A1", TextToDisplay:=isim
    Else
       ActiveSheet.Hyperlinks.Add Anchor:=Cells(Target.Row, Target.Column), Address:="", SubAddress:= _
         "'" & isim & "'!A1", TextToDisplay:=isim
    End If
End Sub