Her hücrenin içinde sonuna virgül ekleme

[ghost_hunter]

Merhaba arkadaşlar,

Excel'de alt alt yüzlerce mail adresini nasıl sonralarına virgül ekliyerek bitişik yan yana getireceğim?

Örnek;
mail1@hotmail.com
mail2@hotmail.com
mail3@hotmail.com

Bunları,
mail1@hotmail.com,mail2@hotmail.com,mail3@hotmail.com

toplu olarak nasıl bu hale getirebilirim

Şimdiden teşekkürler

 

[Necdet]

merhaba,

Tek bir hücreye sığacak mı?

 

[uzmanamele]

merhaba

syn yurttas'ın bununla ilgili yazdığı güzel bir ktf var.

'kodları yazan: yurttas
Public Function BİRLEŞTİRA(ALAN As Range, Optional sALAN As String = ",") As String
Dim sonuc As String, c As Range
On Error GoTo Hata

For Each c In ALAN
    If c <> Empty Then sonuc = sonuc & c.Value & sALAN
Next c
sonuc = Left(sonuc, Len(sonuc) - Len(sALAN))
BİRLEŞTİRA = sonuc

On Error GoTo 0
   Exit Function

Hata:
    BİRLEŞTİRA = "#Error#"

End Function

 

[nevzatse]

merhaba,
A sütünunda bulunan hücreleri B sütününda tek hucreye yazdırmak için

B1 hücresine =A1
B2 hücresine =B1&","&A2

formüllerini girdikten sonra B2 hücresini A sütünundaki son kayda kadar kopyalaman yeterli olacaktır.

Istediğin bilgi B sütununda son hücrede oluşacaktır.

 

[ghost_hunter]

merhaba,
A sütünunda bulunan hücreleri B sütününda tek hucreye yazdırmak için

B1 hücresine =A1
B2 hücresine =B1&","&A2

formüllerini girdikten sonra B2 hücresini A sütünundaki son kayda kadar kopyalaman yeterli olacaktır.

Istediğin bilgi B sütununda son hücrede oluşacaktır.

gerçekten harkulade bir yöntem çok teşekkür ederim

sorun çözüldü diğer ilgilenen arkadaşlara teşekkürlerimi bildirmek isterim.

meğer ne excel uzmanlarımız varmış

saygılarımla

 

[fRtkmR]

arkadaşlar aynı problem bendede var, mailler A Sutununda

örnk:

mail1.@mail.com
mail2.@mail.com
mail3.@mail.com

gibi görünüyor ben bunları ;

mail1.@mail.com;mail2.@mail.com;mail3.@mail.com olarak ayarlamak istiyorum bu konuda yardımcı olurmusunuz, baya bi acemiyim excel'de teşekkürler..

 

[YUSUF44]

arkadaşlar aynı problem bendede var, mailler A Sutununda

örnk:

mail1.@mail.com
mail2.@mail.com
mail3.@mail.com

gibi görünüyor ben bunları ;

mail1.@mail.com;mail2.@mail.com;mail3.@mail.com olarak ayarlamak istiyorum bu konuda yardımcı olurmusunuz, baya bi acemiyim excel'de teşekkürler..

Sayın nevzatse'nin önerisini denediniz mi? Tek değişiklik ikinci formülde virgül yerine noktalı virgül yazılmalı (isteğiniz uyarınca tabi):

"A sütünunda bulunan hücreleri B sütününda tek hucreye yazdırmak için

B1 hücresine =A1
B2 hücresine =B1&";"&A2

formüllerini girdikten sonra B2 hücresini A sütünundaki son kayda kadar kopyalaman yeterli olacaktır.

Istediğin bilgi B sütununda son hücrede oluşacaktır."

 

[fRtkmR]

hocam ben bu kodların nereye yazılacağınıda bilmiyorm ondan sordum yardımcı olurmusunuz bu formülleri nasıl girerim teşekkürler

 

[YUSUF44]

Aslında gayet açık bir şekilde yazıyor nereye ne yazılacağı ancak siz çok acemisiniz anlaşılan:

Bir excel sayfası satır ve sütunlardan oluşur. Satırlar sayılarla, sütunlar ise harflerle adlandırılır. Her satır ve sütunun ayrı ayrı kesişimi hücre olarak adlandırılır ve o sütunla satırın birleşimiyle adlandırılır. Yani A sütunu ile 1. satırın kesişimi A1 hücresidir. B sürunuyla 1. satırın kesişimi B1 hücresidir. K sütunuyla 539. satırın kesişimi ise K539 hücresidir.

Bu bilgiler ışığında belirttiğiniz gibi A sütununda mail adresleriniz varsa ve bunlar da 1. satırdan itibaren başlıyorsa yukarda açıklandığı gibi ilgili hücrelere ilgili formülleri yazmalısınız.

Yani a1 hücresinde mail1.@mail.com yazıyorsa hemen yanındaki B1 hücresini seçin ve arkadaşın verdiği =A1 formülünü yazın. Bunu direk burda gördüğünüz gibi elle yazabileceğiniz gibi = işareti yaptıktan sonra fareyle ya da klavyedeki ok tuşlarıyla A1 hücresini seçerek de yapabilirsiniz.

Daha sosonra B2 hücresini seçin ve yine aynı yöntemle bu sefer ikinci formülü yani =B1&";"&A2 yazın.

Son olarak B2 hücresini koypalayıp (B2 üzerinde sağ tık/kopyala ya da kısaca CTRL+C) B sütunundaki alttaki diğer hücreleri fareyle seçip yapıştırın.

 

[fRtkmR]

bu açıklayıcı anlatım için çok teşekkür ederim evet baya acemiyim hemen deniyorum teşekkürler

 

[alper353535]

Merhaba arkadaşlar aranıza yeni katıldım. Tamda yukarıdaki sorunun çözümü için aranızdayım. Elimde yaklaşık 5.000 kişilik bir mail adresleri datası var. Mail adreslerini yukarıdaki soruda anlatıldığı gibi noktalı virgül koyarak sıralamak istiyorum. Verilen cevapları uyguladım ancak sadece 45 kişiye kadar sıralama yapıyor. 46. kişiyi ekleyerek devam etmiyor. İkinci sıralama için 46-90 numaralı kişilere farklı bir sekmede yeniden formül atamam gerekiyor. Bunun çözümü var mıdır? Yardımlarınızı rica ederim..

 

[alper353535]

Arkadaşlar yardım lütfenn??

 

[Erdem Akdemir]

Merhaba,

Aşağıdaki KTF'i kullanabilirsiniz.
Kullanımı,

=birles(A1:A100;";")

Function birles(hucre As Range, Optional imlec As String = "") As String

For Each alan In hucre

If alan = "" Then
Else
k = k & alan & imlec
End If
Next alan

If imlec = "" Then
birles = k
Else
birles = VBA.Left(k, VBA.Len(k) - 1)
End If
End Function

 

[alper353535]

Hocam ilginize teşekkür ederim ancak =birles(A1:A100;";")
bu kodu hem A1 Hem B1 satır ve sütünunda denetim ama #AD? sonucunu alıyorum. Yardımcı olabilirmisiniz?

 

[Erdem Akdemir]

Merhaba,

Önce VBA tarafında modül ekmeli ve verdiğim kodu modülün içine yapıştırmalısınız.

 

[Erdem Akdemir]

Zaman ayırıp sorunuzu cevapladım ama geri dönüş alamadım.

Cevap verdiğim konuların yarısından fazlasında geri dönüş yapılmıyor.

 

[tahsinanarat]

Sn. kuvari Bey'e katılıyorum, zaman harcayıp emek harcıyorsun sonucun olumlu veya olumsuz olduğunu geri bildirme zahmetinde bulunmayınca insanın şevki kırılıyor.

 

[hasankardas]

Zaman ayırıp sorunuzu cevapladım ama geri dönüş alamadım.

Cevap verdiğim konuların yarısından fazlasında geri dönüş yapılmıyor.

Sayın kuvari biz toplum olarak teşekkür etmekten muzdarip bir toplumuz,daha o olgunluğa ulaşamadık. Oysa teşekkür etmek olumlu bir dönüt vermek ne kadarda güzel bi şey. İletişim konumuz eksik okullarımızda bunun işlenmesi gerekiyor. ailelerin bunlara özen göstermesi gerekiyor.