Excel'de birden fazla e-posta adresini köprüye nasıl dönüştürebilirim?
Excel'de düz metin olarak e-posta adreslerinden oluşan bir listeniz varsa ve bunları tıklanabilir köprü haline getirerek doğrudan e-posta göndermek istiyorsanız, bu işlemi çok sayıda kayıt için manuel olarak yapmak oldukça zaman alıcı olabilir. Bu kılavuz, HYPERLINK formülünü veya bir VBA makrosunu kullanarak bu dönüşümü gerçekleştirmeniz için iki verimli yöntemi açıklamaktadır.
Formül kullanarak birden fazla E-posta Adresi'i köprüye dönüştürme
VBA kodu kullanarak birden fazla E-posta Adresi'i köprüye dönüştürme
Formül kullanarak birden fazla E-posta Adresi'i köprüye dönüştürme
E-posta Adresi sütununu tek seferde Bağlantı adresine hızlıca dönüştürmek için Hyperlink işlevini kullanabilirsiniz.
1. Sonucu yerleştirmek istediğiniz boş bir hücreye şu formülü girin: =hyperlink("mailto:"&,A2). Ekran görüntüsüne bakın:
2. Ardından, formülü istediğiniz hücrelere kadar doldurma tutamacını aşağı doğru sürükleyin; böylece tüm E-posta Adresi öğeleri, aşağıdaki ekran görüntüsünde gösterildiği gibi tıklanabilir köprü haline gelir:
VBA kodu kullanarak birden fazla E-posta Adresi'i köprüye dönüştürme
Yukarıdaki formülü kullandığınızda, her e-posta adresinin önüne “mailto:” ifadesi eklendiğini fark edeceksiniz. Adreslerde “mailto:” kısmını istemiyorsanız, aşağıdaki VBA kodu size yardımcı olabilir.
1. Excel'de Alt + F11 tuşlarına basılı tutun; bu işlem, Microsoft Visual Basic for Applications penceresini açar.
2. Ekle > Modül seçeneğine tıklayın ve aşağıdaki makroyu Modül penceresine yapıştırın.
VBA kodu: Birden fazla E-posta Adresi'i köprüye dönüştürme
Sub EmailHylink()
'updateby Extendoffice
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
Dim xUpdate As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For Each xCell In xRg
xCell.Hyperlinks.Add Anchor:=xCell, Address:="mailto:" & xCell.Value
Next
Application.ScreenUpdating = xUpdate
End Sub
3. Kodu yapıştırdıktan sonra, kodu çalıştırmak için F5 tuşuna basın. İşlem yapılacak Veri Aralığı’nı seçmenizi isteyen bir uyarı kutusu görünecektir; ekran görüntüsüne bakın:
4. Ardından Tamam düğmesine tıklayın; seçilen tüm E-posta Adresi öğeleri Bağlantı adresine dönüştürülmüştür. Ekran görüntüsüne bakın:
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