Makro İle Secilen Hücrelerdeki Emailllere Köprü Nasıl Yapılır?

[BuRacK]

Arkadaşlar bendeki excelde 5bin tane email var ve bunların bazılarında köprü yok ...

email mesela ; mail@mail.com şeklinde ben makro ile bunu nasıl mail@mail.com köprüsü olusturabilirim?
Yardım :'(

 

[BuRacK]

Arkadaşlar yardım edin... çok bekledim yazan yok

 

[BuRacK]

Arkadaşlar 1 saat oldu cevap yazan yok bune ya

 

[Ferhat Pazarçevirdi]

Merhabalar

Konunun aciliyeti, sizin için çok önemli olabilir ama bu forumu da hizmet aldığınız sözleşmeli bir dükkan gibi düşünmeyiniz.

Üyelerimiz müsait olduklarında, elbette size cevap vereceklerdir.

Üstelik, binlerce konu ve onbinlerce mesaj içerisinden arama yapma gibi bir şansınız da varken serzenişiniz biraz haksız (bir de bir saat için)...

Aşağıdaki kodları çalıştırdığınızda, bahsettiğiniz tüm e-mail adresleri, hyperlink görünümünü alacaktır

VARSAYIM: Tüm e-mail adreslerinin A sütununda olduğu varsayılmıştır.

Sub Kopru_Olustur()
Dim i As Long
For i = 1 To Cells(65536, 1).End(xlUp).Row
    ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i), _
                               Address:=Range("A" & i).Text, _
                               TextToDisplay:=Range("A" & i).Text
Next i
End Sub