• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

merhaba,

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

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

Kod: 
'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
 
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.
 
nevzatse' Alıntı:
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.
Genişletmek için tıkla ...

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
 
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..
 
fRtkmR' Alıntı:
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..
Genişletmek için tıkla ...

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."
 
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
 
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.
 
bu açıklayıcı anlatım için çok teşekkür ederim evet baya acemiyim hemen deniyorum teşekkürler
 
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..
 
Merhaba,

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

Kod: 
=birles(A1:A100;";")


Kod: 
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
 
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?
 
Merhaba,

Önce VBA tarafında modül ekmeli ve verdiğim kodu modülün içine yapıştırmalısınız.
 
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.
 
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.
 
kuvari' Alıntı:
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.
Genişletmek için tıkla ...

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.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst