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

...Sheets(i).Hyperlinks.Add Anchor:=Sheets(i).Cells(1, 1), Address:="", SubAddress:="SayfaIndex!A1", TextToDisplay:="SayfaIndex" ActiveSheet.Hyperlinks.Add Anchor:=Cells(satir, kolon), Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1", TextToDisplay:=Sheets(i).[v3].Value .............

...NewSh.Name = "SayfaIndex" Cells.ClearContents kolon = 1 satir = 2 Cells(1, 1).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="SayfaIndex!A1", TextToDisplay:="SayfaIndex" For i = 2 To Sheets.Count Cells(satir, kolon).Value = Sheets(i).Name...

...NewSh.Name = "SayfaIndex" Cells.ClearContents kolon = 1 satir = 2 Cells(1, 1).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="SayfaIndex!A1", TextToDisplay:="SayfaIndex" For i = 2 To Sheets.Count Cells(satir, kolon).Value = Sheets(i).Name...

...In alan Do While dz(a, 1) = "#" a = a + 1 Loop hcr.Value = Split(dz(a, 1), "#")(0) If Split(dz(a, 1), "#")(1) <> "" Then ActiveSheet.Hyperlinks.Add hcr, Split(dz(a, 1), "#")(1) hcr.Offset(0, 1).Value = Split(dz(a, 2), "#")(0) If Split(dz(a, 2), "#")(1) <> "" Then ActiveSheet.Hyperlinks.Add...

...In alan Do While dz(a, 1) = "#" a = a + 1 Loop hcr.Value = Split(dz(a, 1), "#")(0) If Split(dz(a, 1), "#")(1) <> "" Then ActiveSheet.Hyperlinks.Add hcr, "", Split(dz(a, 1), "#")(1) hcr.Offset(0, 1).Value = Split(dz(a, 2), "#")(0) If Split(dz(a, 2), "#")(1) <> "" Then...

...Resume Next Range("a1:a65536").ClearContents For i = 1 To ActiveWorkbook.Sheets.Count Cells(i, 1).Value = Sheets(i).Name ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i), Address:="", SubAddress:= _ "'" & Range("A" & i).Value & "'!A1" Next i End Sub Kodlarını ekleyin. Böylece sayfaya her...

Aşağıdaki Kod'u deneyin. Sub KopruDegistir() Dim kopru As Hyperlink Dim eskisi As String Dim yenisi As String eskisi = "http:// www.eskisite.com/xxxyyy" yenisi = "http:// www.yenisite.com/xxxyyy" For Each kopru In ActiveSheet.Hyperlinks kopru.Address =...

Merhabalar. Bu konuyu daha önce yazmıştım ama word dosyası oluşturmuştu. Konu şu; tablom da sicil no adı soyadı diye iki sütun var ve 5000 satırda veriler dolu. Yapmak istediğim buton ekleyip butona bastığımda belirttiğim klasöre excel dosyası oluştursun. Bu dosyanın adı da sicil no sütunundaki...

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