mail bilgisini yazdırma

[Kemal Demir]

Arkadaslar herkese iyi çalışmalar,

100 e yakın elimde mail listesi var.Yalnız bu mail listesi örneği aşagıdaki gibidir.

Örnek:

kemaldemir
aliceyhan
ccevizoglu
.
.
.
.
gibi gibi.

Bunun mail bilgilerini b kolonuna yazdıra bilmek için nasıl bir kod olusturmak gerekir.

Bu konuda yardımcı olabilirmisiniz.

Teşekkur Ederim.

 

[Kemal Demir]

Arkadaslar Kod Cok kısa imiş sizlerle paylaşmak istedim.

For A = 1 To 538
Range("B" & A).Value = [B][U]Range("A" & A).Hyperlinks.Item(1).Name[/U][/B]
Next

 

[geren]

Teşekkürler Rakkas...