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

...Then iRow = iRow + 1 Cells(iRow + 1, 1) = Divs(x).getElementsByTagName("a")(0).Title ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & iRow + 1), Address:="https://www.onlineyedekparca.com/" & Replace(Divs(x).getElementsByTagName("a")(0).href, "about:/", "")...

...Then iRow = iRow + 1 Cells(iRow + 1, 1) = Divs(x).getElementsByTagName("a")(0).Title ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & iRow + 1), Address:="https://www.onlineyedekparca.com/" & Replace(Divs(x).getElementsByTagName("a")(0).href, "about:/", "")...

...Then iRow = iRow + 1 Cells(iRow + 1, 1) = Divs(x).getElementsByTagName("a")(0).Title ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & iRow + 1), Address:="https://www.onlineyedekparca.com/" & Replace(Divs(x).getElementsByTagName("a")(0).href, "about:/", "")...

Korhan kardeşim tekrar teşekkür ederim. Emeğine sağlık

...Add_Hyperlink() Dim Rng As Range Application.ScreenUpdating = False For Each Rng In Selection ActiveSheet.Hyperlinks.Add Anchor:=Rng, _ Address:=Rng.Value, TextToDisplay:=Rng.Value Next Application.ScreenUpdating = True MsgBox "Köprüler...

...Sayfa" .TextFrame2.VerticalAnchor = msoAnchorMiddle .TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignCenter End With ActiveSheet.Hyperlinks.Add Anchor:=myShape, Address:="", SubAddress:="'Ana Sayfa'!A1" End If Next...

...800, 20, 90, 30) With myShape .TextFrame.Characters.Text = "Ana Sayfa" .TextFrame2.VerticalAnchor = msoAnchorMiddle .TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignCenter End With ActiveSheet.Hyperlinks.Add Anchor:=myShape, Address:="Sayfa2" End Sub

yardımlarınız için sizlere teşekkür ederim buradan yola çıkarak düzenleme yapabilirim ..kendimce sıfırdan makro öğrenmeye başladım iyi bir kaynak kitap araştırıyorum umarım güzel bir şey bulurum...tekrar teşekkürler emeğinize Allah razı olsun...

...= 1 For i = 1 To Sheets.Count If InStr(Sheets(i).Name, "-") > 0 Then satir = satir + 1 ActiveSheet.Hyperlinks.Add Anchor:=Cells(satir, "A"), Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1", TextToDisplay:=Sheets(i).Name End If Next i End Sub

VBA tarafında alt satıra geçerken boşluk ve sonrasında alt tire kullanılır. Aşağıdaki satırlarda boşluk görünmüyor. ActiveSheet.Hyperlinks.Add_ Anchor:=Selection, Address:="", SubAddress:=_ Ek olarak sayfa ismini de Listele olarak revize etmelisiniz. Sheets("index").Range("A:A").Clear

Sayfanın kod bölümüne yazarak dener misiniz? Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [A1]) Is Nothing Then Exit Sub ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Shapes("Dikdörtgen 1"), Address:=[A1].Value End Sub

çok teşekkür ederim

...& Rng.Value & "*") While My_File <> "" Cells(Rng.Row, Last_Column) = My_File ActiveSheet.Hyperlinks.Add Anchor:=Cells(Rng.Row, Last_Column), Address:=File_Path & My_File Last_Column = Last_Column + 1 My_File = Dir...

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

İyi çalışmalar; Muavin dökümünü ayrıştırarak cari isimlere göre link sayfasına cari isimleri listeleyerek ilgili carinin sayfasına link veriliyor. Form sitesinde hazırlanan güzel bir çalışma. Aynı isme sahip ancak farklı kodu olan carilerde kodları görmek işlemi pratikleştirecek. Link sayfası...

Hocam bendemi sorun var bilmiyorum ama bazı yazı karakterleri çince. vaktiniz olursa bunu excelde çalışır halde paylaşabilir misiniz?

...one sheet. Sub Index_更新() Dim ws As Worksheet Dim x As Integer x = 1 Range("A:A").Clear For Each ws In Worksheets Cells(x, 1).Select ActiveSheet.Hyperlinks.Add _ Anchor:=Selection, Address:="", SubAddress:= _ ws.Name & "!A1", TextToDisplay:=ws.Name x = x + 1 Next ws...

Aşağıdaki makro ilave olarak oluşturulan cari sayfasının I2:J2 hücrelerini birleştirerek Linkler sayfasına bağlantı verir: Sub cariayir() Set s1 = Sheets("Sayfa5") Set s2 = Sheets("Linkler") son = s1.Cells(Rows.Count, "A").End(3).Row a = s2.Cells(Rows.Count, "A").End(3).Row + 1...

İki kodu birlikte kullanmak isterseniz şöyle olabilir: Sub cariayir() Set s1 = Sheets("Sayfa5") Set s2 = Sheets("Linkler") son = s1.Cells(Rows.Count, "A").End(3).Row a = s2.Cells(Rows.Count, "A").End(3).Row + 1 Application.ScreenUpdating = False For i = 2 To son If s1.Cells(i, "A")...

Merhaba kodu kullandığım zaman ekteki gibi hata alıyorum out of memory