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

...= 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

...Dim celll As Range Set myRange = Range("B13:B" & Cells(Rows.Count, "B").End(xlUp).Row) For Each celll In myRange ActiveSheet.Hyperlinks.Add Anchor:=celll, Address:="", SubAddress:="'" & celll & "'!A1" Next End Sub Anasayfada yazan A1 yazılarını silin sonra kodu çalıştırın.

Hocam çok teşekkür ederim, Örnekte denedim sorun yok, asıl çalışmamda deneyeceğim. Aralık yazabilirsiniz dediğiniz yeri nasıl yapabilirim, hiç kod bilgim yok. Örnek Z6:Z150 arası işlem yapılacak olsa kod nasıl olmalı

Deneyin lütfen Sub Köprü() Range("Z:Z").Hyperlinks.Delete For i = 1 To 10 'İlk ve Son Satır numaralarınızı yazabilirsiniz ActiveSheet.Hyperlinks.Add Anchor:=Range("Z" & i), Address:=Range("Z" & i), TextToDisplay:=Range("Z" & i).Text Next i End Sub

...Case Else Sheets("SETTINGS").Select Cells(sat, "K").Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=sayfa.Name & "!K2", TextToDisplay:=sayfa.Name sat = sat + 1 sayfa.Select...

...For Each sayfa In ThisWorkbook.Worksheets Sheets("SETTINGS").Select Range("K1048576").End(xlUp).Offset(1, 0).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=sayfa.Name & "!K2", TextToDisplay:=sayfa.Name Next sayfa End Sub Örnek Çalışma Kitabı Linki...

...Range("A" & i + 2) = meta.getelementsbyclassname("sn-gs")(0).innertext ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i + 2), _ Address:=meta.getelementsbytagname("a")(0).href, _ TextToDisplay:=Range("A" & i + 2).Value...

...End If .tif dosyasını çektiğim kod bu şekilde ve dediğiniz gibi makro kaydet yardımı ile aldığım makro verilerini revize etmeye çalıştım ama yapamadım malesef. ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ "BAYRAM%20YARTAŞ.tif", TextToDisplay:="BAYRAM YARTAŞ.tif"