2 Soru: Köprü ve Hücrelerdeki Resimleri Silme

[ZuCChiNi]

Soru 1
A1 hücresindeki verinin http://www.site.com/ şeklinde köprüsü var.
B1 hücresine A1 hücresindeki verinin köprüsünü nasıl yazdırırız?

Soru 2
A1:A2500 sütunundaki her hücrede resim var. Aynı zamanda her hücrede metin verisi ve her metin verisinin köprüsü var.
Metin verilerini silmeden bu resimleri nasıl silerim?
Ya da köprülerini bozmadan metin verilerini nasıl alırım?

Yardımlarınızı rica ediyorum.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp dener misiniz.

Umarım doğru anlamışımdır. A sütunundaki linkleri B sütununa yazar.Tüm resimleri siler.

Sub Makro1()
 
    Dim i As Long
    
    For i = 1 To Cells(Rows.Count, "A").End(3).Row
        Cells(i, "b") = Range("A" & i).Hyperlinks(1).Address
    Next i
    
    ActiveSheet.DrawingObjects.Cut
    Cells.Hyperlinks.Delete
    
    MsgBox "Tamam..."
    
End Sub

 

[uzmanamele]

merhaba

1. sorunun cevabı bu olabilir mi?

Sub bridge()
For i = 1 To Range("a65536").End(3).Row
Cells(i, 2) = Cells(i, 1).Hyperlinks.Item(1).Name
Next
End Sub

2. soruyu tam anlayamadım.

 

[ZuCChiNi]

@Necdet Yeşertener ve @uzmanamele
her ikinize de teşekkür ederim.
İki makro da güzel olmuş.
Necdet Bey'in makrosu ikisini birden halletti.
Tekrar teşekkür ederim.
Ellerinize sağlık.