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

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

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