[Yardım]  Hyperlinks Yapma

VBE penceresindeki menüler ve işleyiş

Hyperlinks Yapma

İleti#1)  Levent145 » 14 Ekm 2020 20:58

Arkadaşlar Merhaba
Aşağıdaki kodlarla sadece J2 : J arasını hylerlink yapıyor

Oysa ben J2 : J . N2 : N . P2 : P seklinde çoğaltmak istiyorum belirlediğim sütunlarda.
Yardım edebilecek olan var mı

Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)

''''''''''''''''''''''''''''Hyperlinks Yapan Kodlar'''''''''''''''''''''''''''''''''

If Not Intersect(Target, Range("J2:J" & Sheets("PASİF_İŞLEMLERİ").Range("J" & Rows.Count).End(xlUp).Row)) Is Nothing Then

Dim aralik As Range

Dim hucre As Range

Set aralik = ThisWorkbook.Sheets("PASİF_İŞLEMLERİ").Range("J2:J" & Sheets("PASİF_İŞLEMLERİ").Range("J" & Rows.Count).End(xlUp).Row)

For Each hucre In aralik

If hucre.Value <> "" Then

ThisWorkbook.Sheets("PASİF_İŞLEMLERİ").Hyperlinks.Add anchor:=hucre, Address:=hucre, SubAddress:=""

End If

Next hucre

End If


End Sub
Kullanıcı avatarı
Levent145
Yeni Başlamış
 
Kayıt: 09 Ağu 2020 20:51
Meslek: Memur
Yaş: 27
İleti: 40
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Hyperlinks Yapma

İleti#2)  erseldemirel2 » 15 Ekm 2020 15:08

Şunu deneyin; virgül ile çoğaltma

Kod: Tümünü seç
Set aralik = ThisWorkbook.Sheets("PASİF_İŞLEMLERİ").Range("J2:J" & Sheets("PASİF_İŞLEMLERİ"), "N2:N" & Sheets("PASİF_İŞLEMLERİ"), "P2:P" & Sheets("PASİF_İŞLEMLERİ").Range("J" & Rows.Count).End(xlUp).Row)
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 36
İleti: 931
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Hyperlinks Yapma

İleti#3)  Levent145 » 15 Ekm 2020 21:55

Hocam yarın sabah ofiste kodları deneyip burdan geri dönüş yapacağım.
Kullanıcı avatarı
Levent145
Yeni Başlamış
 
Kayıt: 09 Ağu 2020 20:51
Meslek: Memur
Yaş: 27
İleti: 40
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Hyperlinks Yapma

İleti#4)  Levent145 » 16 Ekm 2020 09:56

Hocam malesef ilgili sütunlardaki dosya yolları link olmadı.
Kod malesef çalışmadı.
Kullanıcı avatarı
Levent145
Yeni Başlamış
 
Kayıt: 09 Ağu 2020 20:51
Meslek: Memur
Yaş: 27
İleti: 40
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Hyperlinks Yapma

İleti#5)  erseldemirel2 » 17 Ekm 2020 12:37

Dosya ekleyiniz
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 36
İleti: 931
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Hyperlinks Yapma

İleti#6)  Levent145 » 18 Ekm 2020 19:15

Örnek dosyayı ekledim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Levent145
Yeni Başlamış
 
Kayıt: 09 Ağu 2020 20:51
Meslek: Memur
Yaş: 27
İleti: 40
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Hyperlinks Yapma

İleti#7)  erseldemirel2 » 18 Ekm 2020 21:13

Şunu deneyin;

Kod: Tümünü seç
Sub test()
Dim aralik As Range

Dim hucre As Range

son = Sheets("VERİ").Range("J" & Rows.Count).End(xlUp).Row

Set aralik = ThisWorkbook.Sheets("VERİ").Range("J2:J" & son & ",N2:N" & son & ",P2:P" & son)

For Each hucre In aralik

If hucre.Value <> "" Then

ThisWorkbook.Sheets("VERİ").Hyperlinks.Add anchor:=hucre, Address:=hucre, SubAddress:=""

End If

Next hucre

End Sub
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 36
İleti: 931
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Cevap: Hyperlinks Yapma

İleti#8)  Levent145 » 19 Ekm 2020 14:01

erseldemirel2 yazdı:Şunu deneyin;

Kod: Tümünü seç
Sub test()
Dim aralik As Range

Dim hucre As Range

son = Sheets("VERİ").Range("J" & Rows.Count).End(xlUp).Row

Set aralik = ThisWorkbook.Sheets("VERİ").Range("J2:J" & son & ",N2:N" & son & ",P2:P" & son)

For Each hucre In aralik

If hucre.Value <> "" Then

ThisWorkbook.Sheets("VERİ").Hyperlinks.Add anchor:=hucre, Address:=hucre, SubAddress:=""

End If

Next hucre

End Sub


Hocam ilgili sütunları hyperlink yaptı ama malesef tıklayınca ne bağlantı açılıyor ne de mail adresi olanlar için mail outlook açılmıyor. Sadece bağlantı olduğuna dair maviye dönüyor.
Kullanıcı avatarı
Levent145
Yeni Başlamış
 
Kayıt: 09 Ağu 2020 20:51
Meslek: Memur
Yaş: 27
İleti: 40
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Hyperlinks Yapma

İleti#9)  erseldemirel2 » 20 Ekm 2020 09:01

Başına https yada mailto konulur. Hücrelere öyle deneyin.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 36
İleti: 931
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Hyperlinks Yapma

İleti#10)  Levent145 » 20 Ekm 2020 12:44

Linkler D:\deneme\evrak.pdf
Şeklinde olmasına rağmen açmıyor ama
Kullanıcı avatarı
Levent145
Yeni Başlamış
 
Kayıt: 09 Ağu 2020 20:51
Meslek: Memur
Yaş: 27
İleti: 40
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Hyperlinks Yapma

İleti#11)  erseldemirel2 » 20 Ekm 2020 14:12

Açar. Güvenlik sorunu çıkartır dosyayı açarken. Devam diyebilirsiniz.
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 36
İleti: 931
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya


Forum VBE Penceresi

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe