birliştirme fonksiyonu

[met007]

üstatlar affınıza sığınarak verileri birleştirme hakkında yardımıza ihtiyacım var dosyayı ekliyorum bakabilirseniz sevinirim.

 

[Ömer]

Merhaba,

=YERİNEKOY(KIRP(BİRLEŞTİR(A1;" ";B1;" ";C1;" ";D1;" ";E1;" ";F1;" ";G1;" ";H1;" ";I1;" ";J1;" ";K1;" ";L1;" ";M1));" ";"-")

Bu şekilde deneyin.

 

[uzmanamele]

merhaba

ek dosya işinizi görür mü?

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

not: kod syn yurttas'a aittir.

 

[Electro]

Birleştirme Fonksiyonu

Önce çalışmayı yaptım.Tamamladıktan sonra Ömer'in yanıtını inceledim.
Sizin sayenizde ben de bilmediğim bir şeyi daha öğrendim

Benim yaptığımda formül hücre içi boşsa hata veriyor. Bir de boşuğu karakter olarak kullanamayıp yerine boşluk karakter koyuyor. Gelen yanıtlran sonra benimki pek bir işe yaramıyor ama ben yine de o kadar uğraştım ekleyeyim bunu.

Selamlar

 

[met007]

çok teşekkür ederim her ikiside işimi görüyor elinize sağlık