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

...Set xFiDialog = Nothing If xPath = "" Then Exit Sub Set xFSO = CreateObject("Scripting.FileSystemObject") Set xFolder = xFSO.GetFolder(xPath) For Each xFile In xFolder.Files I = I + 1 ActiveSheet.Hyperlinks.Add Cells(I, 1), xFile.Path, , , xFile.Name Next...

...göre hyperlink ile dosyaları açabiliyordum.. İlgili kod: Sub hyper1() Set S1 = ActiveSheet S1.[c1].ClearContents ActiveSheet.Hyperlinks.Add Anchor:=S1.Range("c1"), Address:=ThisWorkbook.Path & "/" & "test" & "/" & S1.Range("c5").Value & ".pdf" S1.Range("c1").Hyperlinks(1).Follow (True) End...

...+ 4) .Left = (Adres.Left + 4) .Placement = (xlMoveAndSize) End With resimyol = Replace(xresimsec, "\Kucuk\", "\") ActiveSheet.Hyperlinks.Add Anchor:=pic.ShapeRange.Item(1), Address:=resimyol t1 = Cells(8, 79) + 13 k = Cells(10, 79) t = Cells(t1, k) Sheets(t).Cells(21, 38).Hyperlinks.Add...

....Close End With Worksheets("ARŞİV").Select sonsat = Worksheets("ARŞİV").Range("K" & 65536).End(xlUp).Offset(1, 0).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Yol & "\" & klasoradi & "\" & dosyaadi & ".xlsx", TextToDisplay:=Yol & "\" & klasoradi & "\" & dosyaadi & ".xlsx"

...= ScreenWidth / 60 Range("B:B").ColumnWidth = ScreenWidth / 60 For Counter = 1 To UBound(FindCell) ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & Counter + 2), _ Address:="", SubAddress:=Chr(39) & FindSheet(Counter) & Chr(39) & "!" & FindCell(Counter), _...

..."xlsx" .SaveAs isim .Close End With Worksheets("ARŞİV").Select sonsat = Worksheets("ARŞİV").Range("K" & 65536).End(xlUp).Offset(1, 0).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=isim, TextToDisplay:=isim Application.DisplayAlerts = True MsgBox "İşlem tamam.", vbInformation...

...yordamın alt kısmındaki bu bölgeye işaretlediğim satırlar da kopyalayın. For Counter = 1 To UBound(FindCell) ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & Counter + 2), _ Address:="", SubAddress:=Chr(39) & FindSheet(Counter) & Chr(39) & "!" & FindCell(Counter), _...

...= ScreenWidth / 60 Range("B:B").ColumnWidth = ScreenWidth / 60 For Counter = 1 To UBound(FindCell) ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & Counter + 2), _ Address:="", SubAddress:=Chr(39) & FindSheet(Counter) & Chr(39) & "!" & FindCell(Counter), _...

...& "xlsx" .SaveAs isim .Close Worksheets("ARŞİV").Select sonsat = Cells(Rows.Count, "K").End(3).Row + 1 Range("K" & sonsat).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=isim, TextToDisplay:=isim End With Application.DisplayAlerts = True MsgBox "İşlem tamam.", vbInformation End Sub

...= ScreenWidth / 10 Range("C:C").ColumnWidth = ScreenWidth / 10 For Counter = 1 To UBound(FindCell) ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & Counter + 2), _ Address:="", SubAddress:=Chr(39) & FindSheet(Counter) & Chr(39) & "!" & FindCell(Counter), _...

Tüm sayfaların isimlerini Anasayfa diye bir sayfa oluşturup buraya attı ve köprüleri verdi burası 2. isteğim di çok güzel elinize sağlık. Fakat ilk isteğim sayfalarda bulunan tablo isimlerini sayfa ismi olarak vermedi.?

...ActiveSheet.Name = "AnaSayfa" Sheets("AnaSayfa").Range("A:A").Clear For Each ws In Worksheets Sheets("AnaSayfa").Cells(x, 1).Select ActiveSheet.Hyperlinks.Add _ Anchor:=Selection, Address:="", SubAddress:= _ ws.Name & "!A1", TextToDisplay:=ws.Name x = x + 1 Next ws End Sub

...& i) = "https://api.whatsapp.com/send?phone=+994" & numara & "&text=" & mesaj Range("F" & i).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ Range("F" & i) Next For i = 2 To son numara = Sheets("Sheet1").Range("C" & i) mesaj = Sheets("Sheet1").Range("E" & i)...

Herkese Merhaba, Köprü yapılmış olan linklere ulaşmak için eklediğim dosyayı kullana bilirsiniz. Çalışmanın orjinal sayfası için Tıkla Sub ExtractHL() Dim HL As Hyperlink For Each HL In ActiveSheet.Hyperlinks HL.Range.Offset(0, 1).Value = HL.Address Next End Sub Function...

Deneyiniz. Option Explicit Sub Koordinatlari_Hucreye_Yaz() Dim My_Link As Hyperlink, Adres As Variant For Each My_Link In ActiveSheet.Range("A:A").Hyperlinks Adres = Split(Split(My_Link.Address, "@")(1), ".") My_Link.TextToDisplay = Adres(1) Next MsgBox...

hocam cevabınız için teşekkürler fakat vba konusunda çok yeniyim kodu tam olarak nereye yazacağımı anlayamadım.

...+ 1, 1), Cells(i + 1, 1)).Select Range("A" & i).Value = objFile.Name Range("B" & i).Value = objFile.Path Range("c" & i).Value = uzanti Range("d" & i).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ objFile.Path, _ TextToDisplay:=objFile.Name i = i + 1 End If Next End Sub

Hocam ben excel sayfasını indirdim orada hedef klasörünü belirtince köprülenmiş şekilde geliyor ben o bağlantı linklerini makrosuz olan diğer excel sayfama nasıl çekebilirim. Düşeyara komutuyla denedim "yok" hatası alıyorum.

ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Shapes(ad), Address:="", SubAddress:="'" & ad & "'" & "!A1" bu sayfada bulamadım yada ben yeterince incelememişim. burada da paylaşayım belki benim gibi ihtiyacı olan birileri çıkar. yabancı bir sayfada şöyle bir kod buldum. "ad" benim köprü...

Çok teşekkür ederim problem çözüldü emeğinize sağlık