Sorgu için arama sonuçları: ActiveSheet.Hyperlinks.Add

Merhabalar, Excel sayfasını SaveAsPDF makrosu ile tasarladım. Tek sıkıntım dosyayı istediğim konuma kaydetmiyor. Makromu aşağıda görebilirsiniz. path = "C:\Users\Lfss2\YandexDisk\Satis (Lfss)\CI\" belirlememe rağmen kaydettiği konum Satis (LFSS) konumu oluyor. CI'nın içine kaydetmiyor...

Bu kodu bir dene Sub YeniSayfaOlustur() Dim yeniSayfaAdi As String Dim sablonSayfa As Worksheet Dim yeniSayfa As Worksheet Dim hedefHucresi As Range ' Kullanıcıdan yeni sayfanın adını al yeniSayfaAdi = InputBox("Yeni sayfa adını yazın:", "Sayfa Adı") ' Eğer kullanıcı iptal ederse veya boş bir...

Hocam teşekkür ederim, çok işime yaradı. Exceli boş yüklemişim kusura bakmazsın umarım.

...= Dir(KlasorYolu & "\*.*") While Dosya <> "" DoEvents X = Cells(Rows.Count, 1).End(3).Row + 1 ActiveSheet.Hyperlinks.Add Anchor:=Cells(X, 1), _ Address:=KlasorYolu & "\" & Dosya, TextToDisplay:=Dosya Dosya = Dir Wend MsgBox "İşleminiz...

...If tbl Is Nothing Then Exit Sub With tbl If InStr(Test, .Range.Address) = 0 Then ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:=.Range.Worksheet.Name & "!" & Split(.Range.Address, ":")(0), TextToDisplay:=Cells(i, 1).Value Test = Test & .Range.Address...

Böyle deneyiniz. Sub SayfayaLink() Sheets("Sheet1").Select Range("A3:A2500").Clear For i = 1 To Sheets.Count Range("A" & i + 2) = Sheets(i).Name ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i + 2), Address:="", _ SubAddress:=Sheets(i).Name & "!" & "A1", TextToDisplay:=Sheets(i).Name Next End Sub

...SayfayaLink() Sheets("Sheet1").Select Range("A3:A2500").Clear For i = 1 To Sheets.Count Range("A" & i) = Sheets(i).Name ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i), Address:="", _ SubAddress:=Sheets(i).Name & "!" & "A1", TextToDisplay:=Sheets(i).Name Next End Sub Sizin kodunuza 1...

...Done adında sayfanız olduğunu varsayalım. Sub SayfayaLink() Sheets("Done").Select For i = 1 To Sheets.Count Range("A" & i) = Sheets(i).Name ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i), Address:="", _ SubAddress:=Sheets(i).Name & "!" & "A1", TextToDisplay:=Sheets(i).Name Next End Sub

Zaman ayırdığınız için hepinize ayrı ayrı teşekkür ederim. Bu kod ile sayfa isimlerini link olarak listeliyor, muhteşem gerçekten. Fakay yeni bi sayfa açıp orada yapıyor bunu. Bu işi macroyu kullanacağım sayfada direkt a sütununda yapması için kodun hangi kısmını değiştirmeliyim?

Merhaba Deneyiniz. Sub SayfayaLink() Sheets.Add Before:=Sheets(1) For i = 2 To Sheets.Count Range("A" & i) = Sheets(i).Name ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i), Address:="", _ SubAddress:=Sheets(i).Name & "!" & "A1", TextToDisplay:=Sheets(i).Name Next End Sub

Teşekkür ederim kodun Address kısmını değiştirince istediğim gerçekleşti çok teşekkürler.

Deneyiniz ... Sub test_link_Ekle() For i = 2 To ActiveSheet.Cells(Rows.Count, 1).End(3).Row ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 2), Address:= _ Cells(i, 1) & "/" & Cells(i, 2) Next End Sub iyi çalışmalar

...i As Long Application.ScreenUpdating = False For i = 5 To Cells(Rows.Count, "A").End(3).Row Range("A" & i).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="C:\Users\SS\Desktop\PDF\" & Cells(i - 4, "A") & ".pdf" Next i Application.ScreenUpdating = True MsgBox "Link...

...= False For i = 1 To Cells(Rows.Count, "A").End(3).Row Range("A" & i).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="C:\Users\SS\Desktop\PDF\" & Cells(i, "A") & ".pdf" Next i Application.ScreenUpdating = True MsgBox "Link...

...= Dir(DosyaYolu & "*.*") Do While DosyaAdi <> "" If DosyaAdi <> "." And DosyaAdi <> ".." Then ActiveSheet.Hyperlinks.Add Anchor:=Cells(Satir, 1), Address:=DosyaYolu & DosyaAdi, TextToDisplay:=DosyaAdi Satir = Satir + 1 End If DosyaAdi =...

Çok teşekkür ederim. İstediğim gibi oldu.

...yer = Right(Fnd.Address, 1) .Cells(yer, "E").Value = Cells(R, 1).Value ActiveSheet.Hyperlinks.Add Cells(R, 1), Address:="", SubAddress:="'" & ActiveSheet.Name & "'!D" & yer ' Hyperlink eklendi End If Next R End With...

Hocam tekrardan Merhaba yardımınız için teşekkür ederim, detay butonuna tıklamadan olduğu gibi açıklamalarıda getirebilir miyiz?

Hocam bu kod çalışsa çok iyi olacaktı fakat çalışmıyor. Hatta açılışa değil makroya atadım öyle de çalışmıyor

...Klasor = "dosya yolunu buraya yazın" Dosya = Dir(Klasor & "*.*", vbNormal) i = 1 Do While Dosya <> "" Cells(i, 1) = Dosya ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:= _ Klasor & "\" & Dosya i = i + 1 Dosya = Dir Loop End Sub