Merhaba, elimde 15binden fazla kayıtlı linkim var ve bunları Excel'e attığımda direkt link olarak geçmiyorlar. Bir hücreye çift tıklarsam ancak link haline dönüşüyor ve 15bin linke tek tek tıklamak çok mantıksız olurdu. Bunu toplu halde link haline dönüştürebileceğim bir yol var mı? Örnek bir görsel bırakıyorum.
Ben hala çözümü bulamadım. Yardımcı olabilirseniz sevinirim.
Belki bir başkasının işine yarar sonunda çözebildim.
Excelde link olan ama üzerine tek tek tıklamadan linke dönüşmeyen linklerimizi bir sütuna yapıştırıyoruz.
- Üst kısımda bulunan geliştirici sekmesine tıklıyoruz (Geliştirici sekmesi kapalıysa Excel>Dosya>Seçenekler>Şeridi Özelleştir>Geliştiri kutucuğuna tıklayıp tamam diyip kapatıyoruz.)
- Geliştirici sekmesinden en solda bulunan VBA'yı açıyoruz.
- Sol taraftaki küçük beyaz boşluğa sağ tıklayıp Insert > Module diyip aşağıda verdiğim kodu yapıştırıp kapatıyoruz.
- Sonrasında Alt+F8 / VBA ya da Makrolar kısmına tıklayıp Çalıştır diyoruz ve işlemimiz bu kadar.
Bu şekilde bu problemi bir daha yaşamıyorsunuz. Belki birisi görür işine yarar.
Ben hala çözümü bulamadım. Yardımcı olabilirseniz sevinirim.
Belki bir başkasının işine yarar sonunda çözebildim.
Excelde link olan ama üzerine tek tek tıklamadan linke dönüşmeyen linklerimizi bir sütuna yapıştırıyoruz.
- Üst kısımda bulunan geliştirici sekmesine tıklıyoruz (Geliştirici sekmesi kapalıysa Excel>Dosya>Seçenekler>Şeridi Özelleştir>Geliştiri kutucuğuna tıklayıp tamam diyip kapatıyoruz.)
- Geliştirici sekmesinden en solda bulunan VBA'yı açıyoruz.
- Sol taraftaki küçük beyaz boşluğa sağ tıklayıp Insert > Module diyip aşağıda verdiğim kodu yapıştırıp kapatıyoruz.
Kod:
Sub MetinleriLinkeDonustur()
Dim rng As Range
Dim cell As Range
Set rng = Selection ' Seçili hücre aralığını alın
For Each cell In rng
If cell.Value <> "" Then
cell.Hyperlinks.Add _
Anchor:=cell, _
Address:=cell.Value, _
TextToDisplay:=cell.Value ' Metni tıklanabilir link olarak ekle
End If
Next cell
End Sub
- Sonrasında Alt+F8 / VBA ya da Makrolar kısmına tıklayıp Çalıştır diyoruz ve işlemimiz bu kadar.
Bu şekilde bu problemi bir daha yaşamıyorsunuz. Belki birisi görür işine yarar.
Dosya Ekleri
Son düzenleme: