linkleri gösteren makroda değişiklik

[fercan]

Bir makro buldum bu siteden bir dosyadaki link alan hücreleri listeleyip sarıya boyuyor. Bu makroyu sadece aktif olan sheet'de çalışacak ve linklerin adreslerini de gösterecek şekilde yapabilir miyiz?

 

[Recep İpek]

Kodları veya linkini ekleyebilirmisiniz?

 

[fercan]

Sub LinkBul()
Dim alan As Range
Dim i, j, adet As Integer
Dim Mesaj1, Mesaj2, Mesaj3 As String
Dim MyArray()
For i = 1 To Worksheets.Count
adet = 0
For Each alan In Sheets(i).UsedRange
If InStr(1, alan.Formula, "[") Then
alan.Interior.ColorIndex = 6
adet = adet + 1
ReDim MyArray(1 To adet)
MyArray(adet) = Sheets(i).Name & " --- " & alan.Address(False, False)
For j = LBound(MyArray) To UBound(MyArray)
If MyArray(j) <> "" Then Mesaj2 = Mesaj2 & Chr(13) & MyArray(j)
Next
End If
Next
Mesaj1 = Mesaj1 & Chr(13) & Sheets(i).Name & " Sayfasında " & adet & " adet "
Next
Mesaj3 = "(Bulunan Hücreler Sarı Renkle İşaretlenmiştir)"
MsgBox Mesaj1 & Chr(13) & WorksheetFunction.Rept("--", 25) & Chr(13) _
& "Dış Bağlantılı Hücre Bulundu." & Chr(13) & Chr(13) _
& "Bulunan Hücreler :" & Chr(13) & Mesaj2 & Chr(13) & Chr(13) & _
Mesaj3, , "Uyarı"
End Sub




pardon kodu unutmuşum

 

[Recep İpek]

A&#351;a&#287;&#305;daki kodlar&#305; deneyebilirmisiniz?

Sub LinkBul01()
On Error Resume Next
Dim alan As Range
Dim i, j, adet, son As Integer
Dim Mesaj1, Mesaj2, Mesaj3 As String
Dim MyArray()

adet = 0
For Each alan In ActiveSheet.UsedRange
If InStr(1, alan.Formula, "[") Then
alan.Interior.ColorIndex = 6
adet = adet + 1
son = adet
ReDim MyArray(1 To adet)
MyArray(adet) = ActiveSheet.Name & "  ---  " & alan.Address(False, False) & Chr(13) & alan.Formula & Chr(13)
For j = LBound(MyArray) To UBound(MyArray)
If MyArray(j) <> "" Then Mesaj2 = Mesaj2 & Chr(13) & MyArray(j)
Next j
End If
Next
Mesaj1 = Mesaj1 & Chr(13) & ActiveSheet.Name & " Sayfas&#305;nda " & adet & " adet "

If son = 0 Then
MsgBox "Ba&#287;lant&#305;l&#305; H&#252;cre Adresi Bulunamad&#305;.", vbCritical + vbDefaultButton1 + vbOKOnly, "Link Bulma"
Exit Sub
End If

Mesaj3 = "(Bulunan H&#252;creler Sar&#305; Renkle &#304;&#351;aretlenmi&#351;tir)"
MsgBox Mesaj1 & Chr(13) & WorksheetFunction.Rept("--", 50) & Chr(13) _
& "D&#305;&#351; Ba&#287;lant&#305;l&#305; H&#252;cre Bulundu." & Chr(13) & Chr(13) _
& "Bulunan H&#252;creler :" & Chr(13) & Mesaj2 & Chr(13) & Chr(13) & _
Mesaj3, , "Link Bulma"
End Sub

 

[fercan]

te&#351;ekk&#252;r ederim syn ripek &#231;al&#305;&#351;&#305;yor tek bir sorunum kald&#305; o da &#231;ok fazla link olunca a&#231;&#305;lan pencereye s&#305;&#287;m&#305;yor.

onun bir ayar&#305; var m&#305;d&#305;r?

 

[Recep İpek]

&#350;u an i&#231;in yok.

 

[kykbt]

Arkadaşlar Merhaba

Sayın Recep Beyin kodları cok işime yaradı, Teşekkür ediyorum.

Burada Tüm linkleri değilde bizim secimimize göre linklerin bulunduğu hücreleri renklendirse ve her bulduğu hücre evveli uyarı verir ise anında linkler ile ilgili gerekir ise düzenleme yapılabilir. Renlendirdiğimiz hücrede değişiklik yapınca rengi kaldırtarak düzenleme dahada kullanışlı olabilir.

Renklendirme işi haric excel Düzen Bul dan benzer iş yapılabiliyor.

Bu konuyla ilgilenen arkadaşlara şindiden teşekkür ediyorum.

 

[kykbt]

Arkadaşlar Merhaba

Sayın Recep Beyin kodları cok işime yaradı, Teşekkür ediyorum.

Burada Tüm linkleri değilde bizim secimimize göre linklerin bulunduğu hücreleri renklendirse ve her bulduğu hücre evveli uyarı verir ise anında linkler ile ilgili gerekir ise düzenleme yapılabilir. Renlendirdiğimiz hücrede değişiklik yapınca rengi kaldırtarak düzenleme dahada kullanışlı olabilir.

Renklendirme işi haric excel Düzen Bul dan benzer iş yapılabiliyor.

Bu konuyla ilgilenen arkadaşlara şindiden teşekkür ediyorum.

Arkadaşlar Tekrar Merhaba;

Bu konuyla ilgili acaba bir gelişme sağlayabilirmiyiz diye tekrar gündeme taşımak istedim.
Her link bulduğunda sıra ile uyarı verdirebilirmiyiz.