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

  1. Aşağıdaki kelimeler çok kısa, çok uzun veya çok yaygın oldukları için aramanıza dahil edilmemiştir: Add
  1. T

    Çözüldü Klasör içerisindeki pdflerin listesini excele aktarma (Linkli) Yardım

    ...= Dir(KlasorYolu & "\*.*") While Dosya <> "" DoEvents X = Cells(Rows.Count, 1).End(3).Row + 1 ActiveSheet.Hyperlinks.Add Anchor:=Cells(X, 1), _ Address:=KlasorYolu & "\" & Dosya, TextToDisplay:=Dosya Dosya = Dir Wend MsgBox "İşleminiz...
  2. A

    Çift tıklamayla Tablo adına köprü oluşturma veya gitme

    ...If tbl Is Nothing Then Exit Sub With tbl If InStr(Test, .Range.Address) = 0 Then ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:=.Range.Worksheet.Name & "!" & Split(.Range.Address, ":")(0), TextToDisplay:=Cells(i, 1).Value Test = Test & .Range.Address...
  3. Korhan Ayhan

    Çalışma kitabı içindeki sayfaların köprülerini oluşturma

    Böyle deneyiniz. Sub SayfayaLink() Sheets("Sheet1").Select Range("A3:A2500").Clear For i = 1 To Sheets.Count Range("A" & i + 2) = Sheets(i).Name ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i + 2), Address:="", _ SubAddress:=Sheets(i).Name & "!" & "A1", TextToDisplay:=Sheets(i).Name Next End Sub
  4. S

    Çalışma kitabı içindeki sayfaların köprülerini oluşturma

    ...SayfayaLink() Sheets("Sheet1").Select Range("A3:A2500").Clear For i = 1 To Sheets.Count Range("A" & i) = Sheets(i).Name ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i), Address:="", _ SubAddress:=Sheets(i).Name & "!" & "A1", TextToDisplay:=Sheets(i).Name Next End Sub Sizin kodunuza 1...
  5. uzmanamele

    Çalışma kitabı içindeki sayfaların köprülerini oluşturma

    ...Done adında sayfanız olduğunu varsayalım. Sub SayfayaLink() Sheets("Done").Select For i = 1 To Sheets.Count Range("A" & i) = Sheets(i).Name ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i), Address:="", _ SubAddress:=Sheets(i).Name & "!" & "A1", TextToDisplay:=Sheets(i).Name Next End Sub
  6. S

    Çalışma kitabı içindeki sayfaların köprülerini oluşturma

    Zaman ayırdığınız için hepinize ayrı ayrı teşekkür ederim. Bu kod ile sayfa isimlerini link olarak listeliyor, muhteşem gerçekten. Fakay yeni bi sayfa açıp orada yapıyor bunu. Bu işi macroyu kullanacağım sayfada direkt a sütununda yapması için kodun hangi kısmını değiştirmeliyim?
  7. uzmanamele

    Çalışma kitabı içindeki sayfaların köprülerini oluşturma

    Merhaba Deneyiniz. Sub SayfayaLink() Sheets.Add Before:=Sheets(1) For i = 2 To Sheets.Count Range("A" & i) = Sheets(i).Name ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i), Address:="", _ SubAddress:=Sheets(i).Name & "!" & "A1", TextToDisplay:=Sheets(i).Name Next End Sub
  8. D

    Makro ile hyperlink oluşturma

    Teşekkür ederim kodun Address kısmını değiştirince istediğim gerçekleşti çok teşekkürler.
  9. T

    Makro ile hyperlink oluşturma

    Deneyiniz ... Sub test_link_Ekle() For i = 2 To ActiveSheet.Cells(Rows.Count, 1).End(3).Row ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 2), Address:= _ Cells(i, 1) & "/" & Cells(i, 2) Next End Sub iyi çalışmalar
  10. Asri

    Klasörden excele dosya almak

    ...i As Long Application.ScreenUpdating = False For i = 5 To Cells(Rows.Count, "A").End(3).Row Range("A" & i).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="C:\Users\SS\Desktop\PDF\" & Cells(i - 4, "A") & ".pdf" Next i Application.ScreenUpdating = True MsgBox "Link...
  11. S

    Klasörden excele dosya almak

    ...= False For i = 1 To Cells(Rows.Count, "A").End(3).Row Range("A" & i).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="C:\Users\SS\Desktop\PDF\" & Cells(i, "A") & ".pdf" Next i Application.ScreenUpdating = True MsgBox "Link...
  12. U

    Köprü ile belirlenmiş linke tıkladığımızda pdf veya jpg dosyasını sayfada ki image nesnesine nasıl getirebiliriz.

    ...= Dir(DosyaYolu & "*.*") Do While DosyaAdi <> "" If DosyaAdi <> "." And DosyaAdi <> ".." Then ActiveSheet.Hyperlinks.Add Anchor:=Cells(Satir, 1), Address:=DosyaYolu & DosyaAdi, TextToDisplay:=DosyaAdi Satir = Satir + 1 End If DosyaAdi =...
  13. K

    Cümle içinde kelime arama

    Çok teşekkür ederim. İstediğim gibi oldu.
  14. E

    Cümle içinde kelime arama

    ...yer = Right(Fnd.Address, 1) .Cells(yer, "E").Value = Cells(R, 1).Value ActiveSheet.Hyperlinks.Add Cells(R, 1), Address:="", SubAddress:="'" & ActiveSheet.Name & "'!D" & yer ' Hyperlink eklendi End If Next R End With...
  15. S

    Güncel Market Fiyatları İnternetten Bulmak

    Hocam tekrardan Merhaba yardımınız için teşekkür ederim, detay butonuna tıklamadan olduğu gibi açıklamalarıda getirebilir miyiz?
  16. S

    Soru Klasör listeleme ve açma işlemi

    Hocam bu kod çalışsa çok iyi olacaktı fakat çalışmıyor. Hatta açılışa değil makroya atadım öyle de çalışmıyor
  17. E

    Soru Klasör listeleme ve açma işlemi

    ...Klasor = "dosya yolunu buraya yazın" Dosya = Dir(Klasor & "*.*", vbNormal) i = 1 Do While Dosya <> "" Cells(i, 1) = Dosya ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:= _ Klasor & "\" & Dosya i = i + 1 Dosya = Dir Loop End Sub
  18. E

    Soru Klasör listeleme ve açma işlemi

    ...' İstediğiniz dosya yolunu yapıştırın For Each bulunandosya In klasor.Files Cells(i + 1, 1) = bulunandosya.Name Cells(i + 1, 2) = bulunandosya.Path ActiveSheet.Hyperlinks.Add Cells(i + 1, 2), Cells(i + 1, 2).Value 'hyperlinke çevir i = i + 1 Next End Sub
  19. H

    Güncel Tablo Çekme

    ...= "comp-cell _02 vtable" Then Range("C" & j) = objCollection(i).innerText ActiveSheet.Hyperlinks.Add Anchor:=Range("C" & j), Address:="https://www.kap.org.tr/" & Replace(objCollection(i).getElementsByTagName("a")(0).href, "about:/", "") If j <=...
  20. H

    Güncel Tablo Çekme

    ...= "comp-cell _02 vtable" Then Range("B" & j) = objCollection(i).innerText ActiveSheet.Hyperlinks.Add Anchor:=Range("B" & j), Address:="https://www.kap.org.tr/" & Replace(objCollection(i).getElementsByTagName("a")(0).href, "about:/", "") If j <=...
Üst