Soru Hyperlinks Yapma

[TURKOLOG]

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ı

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