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

ActiveSheet.Hyperlinks.Add Cells(I, 1), xFile.Path, , , xFile.Name Yerine, Cells(I,1)=xFile.name yazıp deneyin.

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

...If InStr(1, dosya.Name, "pdf") > 0 Then a = a + 1 Cells(a, "A").Value = dosya.Name ActiveSheet.Hyperlinks.Add Anchor:=Cells(a, "A"), _ Address:=yol & Cells(a, "A"), TextToDisplay:="" & Cells(a, "A") & "" End If Next dosya MsgBox...

Aşağıdaki kodları deneyin. Sub ASKM() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("Kroki") For i = 2 To Sheets("Dolaplar").Range("A" & Rows.Count).End(3).Row With ActiveSheet.Shapes.Range(i) Set hyperLinkedShape = ws.Shapes(i) .TextFrame2.TextRange.Characters.Text =...

O konuda haklısınız ama bu şekilde yapmak zorundayım .Konuyu şöyle açılayayım. Aşağıdaki kodlar word dosyası oluşturmak için. Ben excel için uyarlamaya çalıştım ama yapamadım. Private Sub CommandButton1_Click() Dim sonsatir As Long Dim sicilno As Range Dim WordBelgesi As Object Dim dosyayolu...

Çok teşekkür ederim ömer bey. Tamam inşallah p.tesi denerim. Sağolun iyi tatiller selamlar

...adres = ActiveSheet.Name & "!" & Cells(WorksheetFunction.Match(Target, [F:F], 0), 6).Address(0, 0) ActiveSheet.Hyperlinks.Add Anchor:=[X3], Address:="", SubAddress:=adres, TextToDisplay:="GİT" Else [X3].Hyperlinks.Delete MsgBox "Seçilen tarih F sütununda YOK!", vbCritical End If...

Merhaba, Bu şekilde deneyin. Sub Kopru_Adres_Degistir() Dim a As Hyperlink For Each a In ActiveSheet.Hyperlinks a.Address = Replace(a.Address, "..\..\..\Users\Hüseyin%20Eker\AppData\Roaming\Microsoft\Excel", "") Next End Sub

uyarı verdiğinde bu satırı işaretliyor Dim WordBelgesi As Word.Application birde listeye isim eklediğimde "dll" hatası veriyor. Kodlar hiç açılmıyor.

...10 i = i + 1 Cells(i, "am") = sht.Name 10 Next For j = 4 To [am65536].End(3).Row ActiveSheet.Hyperlinks.Add Anchor:=Cells(j, "am"), Address:="", SubAddress:= _ "'" & Cells(j, "am").Text & "'!A1" Next End Sub Diğer sorunuz için ise...

...sınıf adlarına göre KÖPRÜler kuran : Sub link() For i = 3 To Sheets("SINIF").Range("A65536").End(xlUp).Row ActiveSheet.Hyperlinks.Add Anchor:=Range("c" & i), Address:="", SubAddress:= _ "'" & Sheets("SINIF").Range("A" & i).Value & "'!A1" Next i End Sub kodlarıyla kurduğum köprüleri...

...FSO.getExtensionName(MyFile) = arrPicExt(j) Then Range("E" & i) = FSO.getBaseName(MyFile) ActiveSheet.Hyperlinks.Add Anchor:=Range("E" & i), Address:=MyFile i = i + 1 End If Next Next Erase arrPicExt Set...

...If FSO.getExtensionName(MyFile) = "jpg" Then Range("E" & i) = FSO.getBaseName(MyFile) ActiveSheet.Hyperlinks.Add Anchor:=Range("E" & i), Address:=MyFile i = i + 1 End If Next Set WshShell = Nothing Set MyFolder = Nothing Set FSO...

Köprüler aynı sütunda bulunuyor. Fakat köprü yapılan hücre isimleri evrak kayıt numaraları. Bu yüzden bu işe yaramıyor. Sanırım fakat forumda farklı bir konudan aradığımı buldum. Sub KopruAdresleriDegistir1() eski = "C:\Users\vr-22\AppData\Roaming\Microsoft" yeni = "" For Each h...

Kusura bakma biraz acele ettim. log sayfasının dışındaki logunun tutulmasını istediğin sayfaların kod sayfasına yapıştırın. Dim eski_deger$ Private Sub Worksheet_Change(ByVal Target As Range) Set sayfa = ThisWorkbook.Sheets("log") With sayfa satir =...

...hücresinde yazılı olan veriyi almasını istiyorum ama bu haliyle çalıştıramadım. Sub KOPRU() Range("B2").Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="KAYIT!R1", TextToDisplay:="KAYIT!R22" Selection.Hyperlinks(1).Follow NewWindow:=False...

Merhaba, Biraz araştırdıktan sonra Sayfa içindeki bağlantı yollarını göstermek için çözümü buldum, kodu aşağıdaki gibi değiştiriniz. (Örnek: 00 sayfasının a1 hücresine verilen linki > '00'!A1 olarak gösterecektir.) 1. Yol: Kullanmak için makroyu çalıştırın, Linkin olduğu hücrenin sağındaki...

Merhaba, Şöyle bir kod buldum işinizi görür sanırım, denedim Office 2019'da çalışıyor. Örnek 1 : Sub ExtractHL() Dim HL As Hyperlink For Each HL In ActiveSheet.Hyperlinks HL.Range.Offset(0, 1).Value = HL.Address Next End Sub Yada şunu kullanabilirsiniz. Örnek 2: Function...

netzone nickli arkadaşın belirttiği "/" ve "\" durumunu dikkate almak için bir de aşağıdaki kodu deneyin ... Sub Test2() Dim Link1 As String, Link2 As String, i As Integer Dim myLink As Hyperlink Link1 = "\AppData\Roaming\Microsoft\Excel" Link2 = "\astas1\Desktop\155-255"...