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. 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?
  2. 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
  3. 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.
  4. 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
  5. 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...
  6. 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...
  7. 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 =...
  8. K

    Cümle içinde kelime arama

    Çok teşekkür ederim. İstediğim gibi oldu.
  9. 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...
  10. 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?
  11. 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
  12. 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
  13. 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
  14. 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 <=...
  15. 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 <=...
  16. 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:/", "") ElseIf...
  17. E

    Hucrelere, klasordeki word belgelerini köprülemek

    ...If oFSO.GetExtensionName(oFile) = "docx" Then ws.Cells(i + 2, 1) = oFolder.Path ActiveSheet.Hyperlinks.Add ws.Cells(i + 1, 1), ws.Cells(i + 1, 1).Value 'hyperlinke çevir ws.Cells(i + 2, 2) = GetFileFolderFromPath(oFolder.Path)...
  18. E

    Hucrelere, klasordeki word belgelerini köprülemek

    ...ws.Cells(i + 1, 2) = oFile.Name ws.Cells(i + 1, 3) = oFolder.Path & "\" & oFile.Name ActiveSheet.Hyperlinks.Add ws.Cells(i + 1, 3), ws.Cells(i + 1, 3).Value 'hyperlinke çevir ws.Cells(i + 1, 4) = oFile.DateLastModified i = i + 1...
  19. E

    Güncel Market Fiyatları İnternetten Bulmak

    Vay arkadaş maşallah ya. Kod anlatılmaz yazılır olduğunu defalarca öğrenmiş olduk. Emeğine yüreğine sağlık üstad.
  20. ibere

    Güncel Market Fiyatları İnternetten Bulmak

    Hocam eline sağlık, şu xmlhttp nesnesini öğrenmek istiyorum fakat detaylı bir rehber bulamadım. Yardımcı olursan sevinirim.
Üst