Excel'de bir hücreden başka bir hücreye yalnızca bağlantıyı kopyalamak nasıl yapılır?
Diyelim ki, A sütununda değerlerden oluşan bir liste var ve her hücre farklı bir köprü (hyperlink) içeriyor. Şimdi, aşağıdaki ekran görüntüsünde gösterildiği gibi, yalnızca metin olmadan köprüleri E sütununa kopyalamak istiyorum. Excel'de bu işi yapmak için doğrudan bir yol olmayabilir, ancak size bununla başa çıkmak için bir VBA kodu tanıtabilirim.
VBA koduyla bir hücreden başka bir hücreye Bağlantıyı Kopyala
VBA koduyla bir hücreden başka bir hücreye Bağlantıyı Kopyala
Yalnızca bağlantı adresini (metin olmadan) diğer hücrelere kopyalamak için aşağıdaki kod size yardımcı olabilir. Lütfen şu adımları izleyin:
1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basılı tutun.
2. Ekle > Modül’e tıklayın, ardından aşağıdaki kodu Modül penceresine yapıştırın.
VBA kodu: Bir hücreden başka bir hücreye yalnızca Bağlantıyı Kopyala:
Sub CopyHyperlinks()
'Uodateby Extendoffice
Dim xSRg As Range
Dim xDRg As Range
Dim I As Integer
Dim xAddress As String
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xSRg = Application.InputBox("Please select the original range you want to copy hyperlinks:", "KuTools For Excel", xAddress, , , , , 8)
If xSRg Is Nothing Then Exit Sub
Set xDRg = Application.InputBox("Please select the new range you want to paste the hyperlinks only", "KuTools For Excel", , , , , , 8)
If xDRg Is Nothing Then Exit Sub
Set xDRg = xDRg(1)
For I = 1 To xSRg.Count
If xSRg(I) <> "" And xDRg.Offset(I - 1) <> "" Then
If xSRg(I).Hyperlinks.Count = 1 Then
xDRg(I).Hyperlinks.Add xDRg(I), xSRg(I).Hyperlinks(1).Address
End If
End If
Next
End Sub3. Ardından bu kodu çalıştırmak için F5 tuşuna basın; yalnızca köprüleri kopyalamak istediğiniz hücreleri seçmeniz için bir iletişim kutusu açılacaktır. Ekran görüntüsüne bakın:
4. Ardından Tamam düğmesine tıklayın; ardından başka bir iletişim kutusunda yalnızca köprüleri yapıştırmak istediğiniz hücreleri seçin. Ekran görüntüsüne bakın:
5. Ve bağlantı adresi, orijinal hücrelerden ihtiyaç duyduğunuz şekilde belirttiğiniz hücrelere kopyalanmıştır. Ekran görüntüsüne bakın:
Not: Bu kod, köprüleri bir sayfadan istediğiniz başka bir sayfaya kopyalamanıza da olanak tanır.
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar