Aynı sütundaki mail adreslerini yanyana yazdırma

[tolgauc]

Merhaba,

Forumda hücreleri birleştirme hakkında bazı konular buldum ama aradığım şeyi bulamadım, bu sebeple yeni konu açtım.

Bir sütunda 250 mail adresi alt alta mevcut. Bunlara bir mail gondermem lazim ve makro kullanmayi bilmiyorum. Amacım bu mail adreslerini yan yana yazdırıp outlook'da To: kısmına koymak. Yani;

a@b.com
a@c.com
a@de.com
....
...
..
. seklinde devam eden mail adreslerini "a@b.com; a@c.com; a@de.com; ....." şeklinde yanyana birleştirmek ve aralarına da virgül koymak istiyorum. Concatenate ile yapamiyorum, cunku araya virgül koymama izin vermiyor, a1&"; "&a2 seklinde yapamiyorum, cunku 250 mail var, tek tek yazmak gerekiyor. Nasıl yapabilirim, yardımlarınızı rica ediyorum.

Tesekkurler

 

[apocalyt]

bu mailler a1 hücresinden başlayarak a250 hücresine kadar gidiyor varsayyorum..aşağdaki kod b1 hücresine bu mailleri istediğiniz şekilde yazmanızı sağlıcaktr..

Sub daylight()
Cells(1, 2) = Cells(1, 1)
For x = 2 To [a10000].End(3).Row
Cells(1, 2) = Cells(1, 2) & ";" & Cells(x, 1)
Next x
End Sub

 

[YUSUF44]

HEr ne kadar makrolu çözüm verilmiş olsa da farklı bir çözüm yöntemi olarak şöyle de yapabilirsiniz:

listenizi kopyalayıp word dosyasına yapıştırın.

worddeki listeniz tablo şeklinde olacak, o tabloyu seçin ve hücreleri birleştir deyin.

Bunu kopyalayıp tekrar excel'e geçin ve bir hücrenin içine girerek yapıştırın.

A1 hücresine yapıştırdıysanız b1 hücresine aşağıdaki formülü girin:

=YERİNEKOY(A1;DAMGA(10);";")

Daha sorna B1 hücresini istediğiniz gibi kullanabilrisiniz.

 

[tolgauc]

Her 2 yöntem de çok işime yarayacak. Çok çok teşekkürler!!!

 

[myoldas]

bu mailler a1 hücresinden başlayarak a250 hücresine kadar gidiyor varsayyorum..aşağdaki kod b1 hücresine bu mailleri istediğiniz şekilde yazmanızı sağlıcaktr..

Sub daylight()
Cells(1, 2) = Cells(1, 1)
For x = 2 To [a10000].End(3).Row
Cells(1, 2) = Cells(1, 2) & ";" & Cells(x, 1)
Next x
End Sub

Hocam merhabalar
B1 hücresine değilde diğer sayfadaki hücreye nasıl yazdırırız .

 

[Muzaffer Ali]

"SayfanızınAdı" kısmına kendi sayfanızın adını yazın.

Sub daylight()
worksheets("SayfanızınAdı").Cells(1, 2) = Cells(1, 1)
For x = 2 To [a10000].End(3).Row
worksheets("Sayfanızın adı").Cells(1, 2) = worksheets("Sayfanızın adı").Cells(1, 2) & ";" & Cells(x, 1)
Next x
End Sub

 

[myoldas]

"SayfanızınAdı" kısmına kendi sayfanızın adını yazın.

Sub daylight()
worksheets("SayfanızınAdı").Cells(1, 2) = Cells(1, 1)
For x = 2 To [a10000].End(3).Row
worksheets("Sayfanızın adı").Cells(1, 2) = worksheets("Sayfanızın adı").Cells(1, 2) & ";" & Cells(x, 1)
Next x
End Sub

çok teşekkür ediyorum,Sağolun

 

[myoldas]

çok teşekkür ediyorum,Sağolun

Hocam son bir sorum olacak
Mail adresleri a1 sütunu değilde h1 sütünündan başlıyor ise nasıl kodlarız ?

 

[myoldas]

buldum hocam tamam tekrar teşekkür ediyorum sağolun

 

[myoldas]

buldum hocam tamam tekrar teşekkür ediyorum sağolun

Bu seferde maiilerin en başına ; geliyor ,
İlk başta mail sonra noktalı virgül ile devam etse olurmu ?
yazdığınız kodu aşağıdaki gibi yaptım ama ?

Sub daylight()
For x = 2 To [a10000].End(3).Row
Worksheets("Sayfa1").Cells(1, 1) = Worksheets("Sayfa1").Cells(1, 1) & ";" & Cells(x, 8)
Next x
End Sub

 

[myoldas]

sizi yoruyorum ama
tablomda aşağıdaki gibi başlıklar var.Bu başlıkların altına aynı formatta 20 kadar kategori giriyorum.ve tablo sürekli bilgi girişi ile yeni firma eklendikçe güncelleniyor.Diğer sayfada bu 20 kategori aşağı sıralı tablo halinde olsa ,yan hücrelerine formul yada macro ile mail adreslerini yine aralarında ; olacak şekilde gelse ,harika olacak,mümkünmüdür? Teşekkür ediyorum

KATEGORİ-1

KATEGORİ-2

KATEGORİ-3

KATEGORİ-4

KATEGORİ-1	mtn@ll.com;deneme@hk.com
KATEGORİ-2
KATEGORİ-3
KATEGORİ-4
KATEGORİ-5
KATEGORİ-6
KATEGORİ-7
KATEGORİ-8
KATEGORİ-9
KATEGORİ-10
KATEGORİ-11
KATEGORİ-12
KATEGORİ-13
KATEGORİ-14
KATEGORİ-15
KATEGORİ-16
KATEGORİ-17
KATEGORİ-18
KATEGORİ-19
KATEGORİ-20

 

[Muzaffer Ali]

Bu seferde maiilerin en başına ; geliyor ,
İlk başta mail sonra noktalı virgül ile devam etse olurmu ?
yazdığınız kodu aşağıdaki gibi yaptım ama ?

Sub daylight()
For x = 2 To [a10000].End(3).Row
Worksheets("Sayfa1").Cells(1, 1) = Worksheets("Sayfa1").Cells(1, 1) & ";" & Cells(x, 8)
Next x
End Sub

Benim yazdıım kodları kullanırsanız bu sorunu yaşamazsınız.

 

[Muzaffer Ali]

Diğer sorunuz için yeni bir konu açın ve örnek dosya üzerinde göstererek sorun.
Dosyanızın ilk hali ve olmasını istediğiniz şekli gösterin.

Daha kısa sürede cevap alırsınız.

 

[myoldas]

Dosyayı ekleyerek yeni konu açıyorum hocam teşekkür ederim,sağolun