sutundaki verileri tek hücrede birleştirme

[karakayalı]

sutundaki verileri tek hücrede birleştirmek istiyorum..dosya ektedir kolay gelsin...

 

[Mahir64]

Merhaba,

Kullanıcı Tanımlı fonksiyondur.
Alıntıdır.

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

=BİRLEŞTİRA(A1:A5;",")(

 

[karakayalı]

calıştıramadım yardımcı olursanız sevinirim

 

[turist]

Ekli dosyayı deneyiniz.
(Sn. Mahir'in Kod ve formülünde bazı küçük değişiklikler yapılmıştır.)

 

[Necdet]

Ekli dosyayı deneyiniz.
(Sn. Mahir'in Kod ve formülünde bazı küçük değişiklikler yapılmıştır.)

Sayın Mahir pek güzel yazmış kodları, keşke değiştirmeseydiniz. Birleştirme yaparken araya konacak karakteri Sayın Mahir kullanıcıya bırakmış, kullanıcı istediği gibi belirlesin diye. Kullanıcı bu isteğini belirtmezse boşluk ile birleştirsin demiş Sayın Mahir, pek te iyi demiş.

 

[Mahir64]

Sayın Mahir pek güzel yazmış kodları, keşke değiştirmeseydiniz. Birleştirme yaparken araya konacak karakteri Sayın Mahir kullanıcıya bırakmış, kullanıcı istediği gibi belirlesin diye. Kullanıcı bu isteğini belirtmezse boşluk ile birleştirsin demiş Sayın Mahir, pek te iyi demiş.

Kodların kime ait olduğunu bilmediğimden sadece alıntıdır demekle yetindim. Sanırız size ait Sayın Necdet. Öyle ise elinize sağlık...

 

[Necdet]

Kodların kime ait olduğunu bilmediğimden sadece alıntıdır demekle yetindim. Sanırız size ait Sayın Necdet. Öyle ise elinize sağlık...

Benzer kodlar yazdım ama benim kodlar değil, ama yazan iyi yazmış.