Macro ile A1 hücresine mail adresi yazma

[levoni]

Değerli Arkadaşlar Merhaba,

Macro yardımıyla Excel çalışma kitabındaki kişi isimlerine göre her sayfanın A1 hücresine o kişinin tanımlanmış mail adresini eklemek istiyorum.
Örneğin Sheet adı şu şekilde olsun "Kübra_01.12.2011"
Bu sheette A1 hücresine benim tanımlayacağım mail adresinin yazılması gerekiyor.Örneğin kubra.celik@......com.tr şeklinde

Örnek dosyayı ekte gönderiyorum.
Bu konuda yardımcı olabilirseniz çok sevinirim.
Şimdiden teşekkür ediyorum.

 

[Necdet]

Merhaba,

Kodları deneyiniz.

Sub Mail_Yaz()
    
    Dim Sayfa   As Worksheet
    Dim Ad      As String
    Dim Web     As String
    
    Web = "@[B][COLOR=red]hotmail.com[/COLOR][/B]"
    
    For Each Sayfa In Worksheets
    
        If Sayfa.Name Like "*_*" Then
        
            Ad = Split(Sayfa.Name, "_")(0)
            Ad = Replace(Replace(Ad, "Ç", "c"), "ç", "c")
            Ad = Replace(Replace(Ad, "Ğ", "g"), "ğ", "g")
            Ad = Replace(Replace(Ad, "İ", "i"), "ı", "i")
            Ad = Replace(Replace(Ad, "Ö", "o"), "ö", "o")
            Ad = Replace(Replace(Ad, "Ş", "s"), "ş", "s")
            Ad = Replace(Replace(Ad, "Ü", "u"), "ü", "u")
            Ad = LCase(Ad)
            Sayfa.Range("A1") = Ad & Web
            
        End If
        
    Next Sayfa
    
End Sub

 

[levoni]

Sayın Necdet Bey,
Ellerinize bilginize sağlık çok teşekkür ederim.Allah sizleri eksik etmesin diyorum başka bir şey diyemiyorum.

Yaptığınız çalışma 10 numara olmuş, şöyle bir şey istesem mümkün olurmu acaba ? Bu arada eğer sizi uğraştıracak ise kesinlikle yapmayın ben bununla işimi görürüm,
şöyleki
İsim yazan kısma ben maili tanımlasam olabilir mi yani isme göre mail tanımlanabilir mi ?

Örneğin "Nedime_01.12.2011" sayfası için
Nedime=nedime.colak@homail.com
Kübra=kubra.sen@gmail.com

 

[Necdet]

Merhaba,

1. Önceki mesajı yeniledim.
2. Eğer tanımlı bir mail adresi varsa neden olmasın?

Mail tanımları boş bir safyada olabilir, siz a sütununa mail adreslerini yazarsanız oradan bulunup yazdırılabilinir.

 

[levoni]

Tamamdır Necdet Bey ,
çok teşekkür ederim.

İyi çalışmalar