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ı
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:
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