Çözüldü Makro ile Hücre Değerine Göre Otomatik Köprü Oluşturma

[Hattushil]

Başlıkta da belirtiğim gibi excel dosyamın Liste sheetinde Talep No (A2) hücresinde yazan değer ile aynı olacak şekilde Doküman ID (AA2) hücresine (Talep%20Belgeleri\[Talep No]) şeklinde otomatik köprü oluşturmak istiyorum.
Mevcut durumda elle oluşturuyorum (Talep%20Belgeleri\[Talep No]).

Bir de excel dosyamdaki formülleri dosyaya satır eklendiğinde otomatik kopyalama yapabilir mi?

 

[Hattushil]

@Korhan Ayhan hocam rica etsem bakabilir misiniz?

 

[xtrkax]

Bunu deneyebilirsiniz:

Sub OtomatikKopruOlustur()
    Dim ListeSheet As Worksheet
    Dim talepNo As String
    Dim i As Long
    
    Set ListeSheet = ThisWorkbook.Sheets("Liste") ' "Liste" adlı sheetin adını değiştirebilirsiniz
    
    For i = 2 To ListeSheet.Cells(Rows.Count, 1).End(xlUp).Row ' A sütunundaki dolu hücrelerin arasında dön
        talepNo = ListeSheet.Cells(i, 1).Value ' A hücresindeki değeri al
        
        ' A hücresinde değer varsa
        If talepNo <> "" Then
            ' AA hücresine otomatik köprüyü oluştur
            ListeSheet.Hyperlinks.Add Anchor:=ListeSheet.Cells(i, 27), Address:= _
                "Talep Belgeleri\" & talepNo, TextToDisplay:=talepNo
        End If
    Next i
End Sub

 

[Hattushil]

Bunu deneyebilirsiniz:

Sub OtomatikKopruOlustur()
    Dim ListeSheet As Worksheet
    Dim talepNo As String
    Dim i As Long
   
    Set ListeSheet = ThisWorkbook.Sheets("Liste") ' "Liste" adlı sheetin adını değiştirebilirsiniz
   
    For i = 2 To ListeSheet.Cells(Rows.Count, 1).End(xlUp).Row ' A sütunundaki dolu hücrelerin arasında dön
        talepNo = ListeSheet.Cells(i, 1).Value ' A hücresindeki değeri al
       
        ' A hücresinde değer varsa
        If talepNo <> "" Then
            ' AA hücresine otomatik köprüyü oluştur
            ListeSheet.Hyperlinks.Add Anchor:=ListeSheet.Cells(i, 27), Address:= _
                "Talep Belgeleri\" & talepNo, TextToDisplay:=talepNo
        End If
    Next i
End Sub

hocam çok teşekkür ederim.

 

[ermanusta]

Bunu deneyebilirsiniz:

Sub OtomatikKopruOlustur()
    Dim ListeSheet As Worksheet
    Dim talepNo As String
    Dim i As Long
   
    Set ListeSheet = ThisWorkbook.Sheets("Liste") ' "Liste" adlı sheetin adını değiştirebilirsiniz
   
    For i = 2 To ListeSheet.Cells(Rows.Count, 1).End(xlUp).Row ' A sütunundaki dolu hücrelerin arasında dön
        talepNo = ListeSheet.Cells(i, 1).Value ' A hücresindeki değeri al
       
        ' A hücresinde değer varsa
        If talepNo <> "" Then
            ' AA hücresine otomatik köprüyü oluştur
            ListeSheet.Hyperlinks.Add Anchor:=ListeSheet.Cells(i, 27), Address:= _
                "Talep Belgeleri\" & talepNo, TextToDisplay:=talepNo
        End If
    Next i
End Sub

Selamlar

acaba bu makroyu

D Stünundaki hücrelere veri girildiğinde yine D hücresine otomatik köprü atar şeklinde düzenleyebilir misiniz?