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. 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
  2. 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 <=...
  3. 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 <=...
  4. 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...
  5. 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)...
  6. 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...
  7. 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.
  8. 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.
  9. H

    Güncel Market Fiyatları İnternetten Bulmak

    ...Then iRow = iRow + 1 Cells(iRow + 1, 1) = Divs(x).getElementsByTagName("a")(0).Title ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & iRow + 1), Address:="https://www.onlineyedekparca.com/" & Replace(Divs(x).getElementsByTagName("a")(0).href, "about:/", "")...
  10. H

    Güncel Market Fiyatları İnternetten Bulmak

    ...Then iRow = iRow + 1 Cells(iRow + 1, 1) = Divs(x).getElementsByTagName("a")(0).Title ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & iRow + 1), Address:="https://www.onlineyedekparca.com/" & Replace(Divs(x).getElementsByTagName("a")(0).href, "about:/", "")...
  11. H

    Güncel Market Fiyatları İnternetten Bulmak

    ...Then iRow = iRow + 1 Cells(iRow + 1, 1) = Divs(x).getElementsByTagName("a")(0).Title ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & iRow + 1), Address:="https://www.onlineyedekparca.com/" & Replace(Divs(x).getElementsByTagName("a")(0).href, "about:/", "")...
  12. Y

    hücre içerisinde yazılı dosya yoluna tıklayarak ulaşma

    Korhan kardeşim tekrar teşekkür ederim. Emeğine sağlık
  13. Korhan Ayhan

    hücre içerisinde yazılı dosya yoluna tıklayarak ulaşma

    ...Add_Hyperlink() Dim Rng As Range Application.ScreenUpdating = False For Each Rng In Selection ActiveSheet.Hyperlinks.Add Anchor:=Rng, _ Address:=Rng.Value, TextToDisplay:=Rng.Value Next Application.ScreenUpdating = True MsgBox "Köprüler...
  14. Muzaffer Ali

    Çözüldü Makroyu tüm sayfalara çalıştırma

    ...Sayfa" .TextFrame2.VerticalAnchor = msoAnchorMiddle .TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignCenter End With ActiveSheet.Hyperlinks.Add Anchor:=myShape, Address:="", SubAddress:="'Ana Sayfa'!A1" End If Next...
  15. O

    Çözüldü Makroyu tüm sayfalara çalıştırma

    ...800, 20, 90, 30) With myShape .TextFrame.Characters.Text = "Ana Sayfa" .TextFrame2.VerticalAnchor = msoAnchorMiddle .TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignCenter End With ActiveSheet.Hyperlinks.Add Anchor:=myShape, Address:="Sayfa2" End Sub
  16. G

    Soru Kaynak Şablon kullanarak Otomatik köprü bağlantılı yeni sayfalar ekleme

    yardımlarınız için sizlere teşekkür ederim buradan yola çıkarak düzenleme yapabilirim ..kendimce sıfırdan makro öğrenmeye başladım iyi bir kaynak kitap araştırıyorum umarım güzel bir şey bulurum...tekrar teşekkürler emeğinize Allah razı olsun...
  17. Asri

    Soru Kaynak Şablon kullanarak Otomatik köprü bağlantılı yeni sayfalar ekleme

    ...= 1 For i = 1 To Sheets.Count If InStr(Sheets(i).Name, "-") > 0 Then satir = satir + 1 ActiveSheet.Hyperlinks.Add Anchor:=Cells(satir, "A"), Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1", TextToDisplay:=Sheets(i).Name End If Next i End Sub
  18. Korhan Ayhan

    Sayfalara Makro ile gidilmesi yardım isteğim

    VBA tarafında alt satıra geçerken boşluk ve sonrasında alt tire kullanılır. Aşağıdaki satırlarda boşluk görünmüyor. ActiveSheet.Hyperlinks.Add_ Anchor:=Selection, Address:="", SubAddress:=_ Ek olarak sayfa ismini de Listele olarak revize etmelisiniz. Sheets("index").Range("A:A").Clear
  19. dEdE

    Çözüldü ŞEKİLLERE VBA İLE LİNK VERMEK

    Sayfanın kod bölümüne yazarak dener misiniz? Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [A1]) Is Nothing Then Exit Sub ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Shapes("Dikdörtgen 1"), Address:=[A1].Value End Sub
  20. C

    Hücredeki değeri klasör içinde arama

    çok teşekkür ederim
Üst