dolu hücrelerdeki verileri birleştirme

[yalovam77]

Merhabalar Öncelikle uzun bir aradan sonra excel web tr de olmak güzel.
sorum ekte bir tablo var A1:N10 aralığındaki tabloda satırlarda bulunan dolu olan hücrelerdeki değerleri yan yana birleştirmek istiyorum. Bu birleştirmeyi fonsiyonlarla yapmam gerekiyor birleştir fonsiyonu ile yapamadım. Yardımlarınız için teşekkür ederim.

 

[sakman26]

selam,
makro kullanmadan, tek formülle nasıl yapılabilir bilmiyorum ama sütun sayısı makul bir sayıda ise sütun / sütun yapılabilir diyerek ekteki örneği gönderiyorum..
kolay gelsin...

 

[yalovam77]

Günaydın sayın sakman çok teşekkür ederim eğer ile yaptığınız formül esas itibariyle işimi gördü sadece biraz uzun kısaltılabilirmi bilmiyorum. makro kullanılırsa bir butona bağlamadan otomatik çalışan bir makro olması lazım.

 

[sakman26]

selam,
benim VBA bilgim çok kısıtlı..
sitede arama yaparsanız birleştirme ile ilgili KTF (Kullanıcı Tanımlı Fonksiyon) leri bulabilirsiniz.
Makro bilgisi iyi olan üye arkadaşlar yardım edebilirler diye düşünüyorum..
kolay gelsin..

 

[ÖmerBey]

Merhaba, formül olarak aşağıdaki formülü kullanabilirsiniz.

=YERİNEKOY(BİRLEŞTİR(EĞER(O2="";"";" , "&O2);EĞER(P2="";"";" , "&P2);EĞER(Q2="";"";" , "&Q2);EĞER(R2="";"";" , "&R2);EĞER(S2="";"";" , "&S2);EĞER(T2="";"";" , "&T2);EĞER(U2="";"";" , "&U2);EĞER(V2="";"";" , "&V2);EĞER(W2="";"";" , "&W2);EĞER(X2="";"";" , "&X2);EĞER(Y2="";"";" , "&Y2);EĞER(Z2="";"";" , "&Z2);EĞER(AA2="";"";" , "&AA2);EĞER(AB2="";"";" , "&AB2));" , ";"";1)

Makro isterseniz de aşağıdakini deneyiniz...

Sub KOD()
Dim liste()
For a = 2 To 10
    For b = 15 To 28
        If Cells(a, b) <> "" Then
            x = x + 1
            ReDim Preserve liste(1 To x)
            liste(x) = Cells(a, b).Value
        End If
    Next
    Cells(a, "AC").Value = Join(liste, " , ")
    x = 0
    Erase liste
Next
End Sub