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

...c.Interior.ColorIndex = 4 adres = "'" & Sheets(i).Name & "'!" & c.Address ActiveSheet.Hyperlinks.Add Cells(sat, "P"), "", adres, adres 'sat = sat Set c = .FindNext(c) Loop While Not c Is Nothing And...

...= (Adres.Height - 8) .Width = (Adres.Width - 8) .Top = (Adres.Top + 4) .Left = (Adres.Left + 4) .Placement = (xlMoveAndSize) End With resimyol = Replace(xresimsec, "\Kucuk\", "\") ActiveSheet.Hyperlinks.Add Anchor:=pic.ShapeRange.Item(1), Address:=resimyol End Sub

...Do c.Interior.ColorIndex = 3 adres = Sheets(i).Name & "!" & c.Address ActiveSheet.Hyperlinks.Add Cells(sat, "P"), "", adres, adres sat = sat + 1 Set c = .FindNext(c) Loop While Not c Is...

"A:\ " da bulunan doc dosyalarını listelemek için kullandığım kodu listboxa nasıl yaparım Ama direk listboxa veri alacak. Excel sayfasını kullanmayacak arama butonu olcak birde Private Sub CommandButton1_Click() Kaynak = "b:\" Range("A2:f65000").ClearContents If Right(Kaynak, 1) <> "\" Then...

...verilere köprü oluşturulmuş durumda. Bu köprüleri Alt klasöründeki dosyalar ile değiştirmek istiyorum. Nasıl yapabilirirm. ActiveSheet.Hyperlinks.Add Anchor:=Cells(c, "C"), Address:=DOSYA & "\" & Dosya.Name, _ TextToDisplay:=Yol & "\" & Dosya.Name ile köprü eklenebiliyor ama bu işlemin...

...& Rows.Count)) + 1 Cells(j, 2) = yol & ekle & Dosya.Name Cells(j, 1) = Dosya.Name ActiveSheet.Hyperlinks.Add Anchor:=Cells(j, 2), Address:=yol & ekle & Dosya.Name, TextToDisplay:=yol Next On Error GoTo sonraki For Each f In fL Liste (f.Path) sonraki: Next Set fL = Nothing End Sub

Ömer beyin bir konuya verdiği cevap çok işime yaradı gerçekten öncelikle çok teşekkür ederim. Ancak tek sıkıntım aşağıda alıntı olarak verdiğim kodları çalıştırdıktan sonra; sonuçlar listelendiğinde linkler doğru, fakat hücre içeriği "'Sayfa3'!$D$1" şeklinde gözüküyor oysa ben hücre içeriğinin...

ekteki dosyaya denemediğim makro kalmadı ama yapamadım..puantaj sayfasınsa A sünununa yazgığım isme göre şablon sayfası oluşsun istiyorum ( ama puantajdaki isimle aynı sayfa olmalı) yardım edecek arkadaşlara şimdiden teşekkürler en son denediğim kod bu ve sarı olan satır hata veriyor Sub...

...Selection.EntireRow.Hidden = False ActiveCell.Offset(0, 1).Value = "«»" ActiveCell.Offset(0, 1).Select 'linke dönüştür ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _ SubAddress:="'" & Fismi.Value & "'!A4", _ ScreenTip:=Fismi.Value & " İsimli Müşteri Sayfasına Gider", _...

...= "Datei: " & InI & " von " & TotFiles StDateiname = Mid(.FoundFiles(InI), InStrRev(.FoundFiles(InI), "\") + 1) ActiveSheet.Hyperlinks.Add Anchor:=Cells(1, InI), _ Address:=.FoundFiles(InI), TextToDisplay:=StDateiname Next InI End If End With Application.StatusBar = OldStatus...

...For i = 3 To 3002 If Range("B" & i) & ".pdf" = dosya.Name Then Range("B" & i).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ "C:\Documents and Settings\KULLANICI\Desktop\PDF DOSYASI\" & dosya.Name GoTo atla End If...

...Adr = c.Address Do adres = Sheets(i).Name & "!" & c.Address ActiveSheet.Hyperlinks.Add Cells(sat, "J"), "", adres, adres sat = sat + 1 Set c = .FindNext(c) Loop While Not c Is Nothing And...

...k As Integer k = 5 Sheets("DENEME").Range("A:A").Clear For Each sayfa3 In Worksheets Sheets("DENEME").Cells(k, 5).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=sayfa3.Name & "!A1", TextToDisplay:=sayfa3.Name k = k + 1 Next sayfa3 Application.ScreenUpdating =...

Merhaba Arkadaşlar; Bir Klasörde ve alt klasörlerinde xls,xlsx,doc ve docx uzantılı word ve excel dosyalarım var. Buralardaki dosyalarımın tamamını .PDF formatında kaydetmek istiyorum. Bu paylaşım sitesindeki arkadaşların verdiği kodlarla Bir excel dosyasına bütün bu klasör ve alt klasördeki...

...olarak "Data" sayfasına eklenen üye ismine, üye adı ile ilişkilendirilmiş sayfaya köprü eklenmesi.. VBA'da çalışan kod ActiveSheet.Hyperlinks.Add Anchor:=Sheets("Data").Range("B" & Bos_Satir), Address:="", SubAddress:= _ "Sayfa1!A1", TextToDisplay:=TextBox1.Text Benim Yapmak...

...aşağıda.... (manuel olarak yaptığım işlemin kodu) yapmam gereken her bir hücrenin içindeki değeri okutmak ve bu değer için 2. satırdaki komutu uygulatmak... sınırlı makro tecrübem pek izin vermiyor... Range("S2").Select ActiveSheet.Hyperlinks.Add Anchor:=Selection...

...kod ile yapabiliyorum. Sub lnk() d1 = "C:\Resimler\Logo\" d2 = Cells(5, 1).Value ads= d1 & d2 Range("A5").Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=ads, _ TextToDisplay:="02.08.2008.jpg" End Sub Benim problemim,resmi acmak icin bir hucreye tikladigimda...

herkese merhabalar; excel tablosunda a1 hücresinde oluşturduğum c diskindeki dosyayı gösteren bir köprüm var. outlook da body kısmına bu a1 hücresindeki yazıyı macro kod ile ekliyorum.fakat yazıyı köprü özelliğiini de koruyarak aktarmak istiyorum.fakat aşagıdaki kodla sadece yazıyı hyperlinkli...

...402 With Dosyam '>>| 403 ActiveSheet.Hyperlinks.Add Anchor:=Range("B" & ui), address:=dsyBak '>>| 404 Range("C" & ui) = .Type...

...404 With Dosyam '>>| 405 ActiveSheet.Hyperlinks.Add Anchor:=Range("B" & ui), address:=dsyBak '>>| 406 Range("C" & ui) = .Type...