metinbirleştir formülü

[euphrates55]

excel 2019 da var olan metinbirleştir formülünü aynı düzende olmak şartı ile 2013-2016 da nasıl kullanabilirim.

 

[yanginci34]

Örnek olarak mesela a1 ile b1 i c1 e aralarında boşluk olacak şekilde birleştireceksek
=A1&" "&B1

 

[euphrates55]

Örnek olarak mesela a1 ile b1 i c1 e aralarında boşluk olacak şekilde birleştireceksek
=A1&" "&B1

metinbirleştir in güzelliği sizin bıraktığınız o boşluğu tanımlayabiliyor olması. eğer benim gibi elinizde fazlasıyla birleştirilecek hücre varsa formül yazmak çile haline dönüşebiliyor. 2019 da bunu çok güzel çözmüşler ama 13-16 da bu mümkün değil. o yüzden belki buna bir modül yazılabilir umudu ile buraya başvurdum. teşekkürler

 

[Murat OSMA]

Merhaba,
Bu KTF'yi VBE tarafında bir Module içerisine yapıştırın..

Function METIN(ByVal aralik As Range, ByVal ayrac As String) As String
    For Each hucre In aralik
        yaz = yaz & hucre.Value & ayrac
    Next hucre
    METIN = Left(yaz, Len(yaz) - 1)
End Function

Bu şekilde hücrede kullanabilirsiniz.

=METIN(A1:A3;";")

 

[Korhan Ayhan]

Forumda KBİRLEŞTİR ifadesi ile arama yapınız.

 

[euphrates55]

Merhaba,
Bu KTF'yi VBE tarafında bir Module içerisine yapıştırın..

Function METIN(ByVal aralik As Range, ByVal ayrac As String) As String
    For Each hucre In aralik
        yaz = yaz & hucre.Value & ayrac
    Next hucre
    METIN = Left(yaz, Len(yaz) - 1)
End Function

Bu şekilde hücrede kullanabilirsiniz.

=METIN(A1:A3;";")

teşekkürler. =KIRP(BÜYÜKHARF(METIN(AL2:AL22;";"))) gibi kullandığımda boş olan hücreleri ;;;;;;;;;;;;; gibi gösteriyor. bu biraz sıkıntı yaratıyor. not olması amacıyla yazmak istedim.

Forumda KBİRLEŞTİR ifadesi ile arama yapınız.

bunu da araştıracağım.

 

[Murat OSMA]

Koddaki ilgili kısmı bu şekilde değiştirirseniz boş olanları dikkate almaz..

    For Each hucre In aralik
        If hucre.Value <> "" Then yaz = yaz & hucre.Value & ayrac
    Next hucre

 

[Korhan Ayhan]

Daha önce hazırladığım KTF linkleri;

https://www.excel.web.tr/threads/aralara-nokta-koyarak-birlestirmem-gerek.156078/
https://www.excel.web.tr/threads/satiri-huecre-icindekiler-ile-birlestirme.174805/

 

[euphrates55]

Koddaki ilgili kısmı bu şekilde değiştirirseniz boş olanları dikkate almaz..

    For Each hucre In aralik
        If hucre.Value <> "" Then yaz = yaz & hucre.Value & ayrac
    Next hucre

teşekkürler. elinize sağlık. sadece son dolu hücrenin sonuna tekrar belirlediğin ayracı koyması dışında problemsiz. METIN(AL2:AL22;" / ") yazdığımda sonuç a / b / c / şeklinde oluyor. son / fazla gözüküyor.

(düzenleme: " / " ayraçdan sonra boşluk varsa dediğim gibi oluyor. boşluk vermezsem sıkıntı olmuyor. tekrar teşekkürler.)

 

[Murat OSMA]

teşekkürler. elinize sağlık. sadece son dolu hücrenin sonuna tekrar belirlediğin ayracı koyması dışında problemsiz. METIN(AL2:AL22;" / ") yazdığımda sonuç a / b / c / şeklinde oluyor. son / fazla gözüküyor.

Ayırıcı olarak tek bir karakter gireceğiniz düşünülmüştür..
Koddaki METIN = Left(yaz, Len(yaz) - 1) kısmındaki -1'i -2 yaparsanız istediğiniz olur.

 

[YUSUF44]

Her ne kadar çözüm tamamlanmışsa da sondaki fazlalıklar için aşağıdaki şekilde kullanmak daha iyi olacaktır:

Function METIN(ByVal aralik As Range, ByVal ayrac As String) As String
    For Each hucre In aralik
        If hucre.Value <> "" Then
            If yaz = "" Then
                yaz = hucre.Value
            Else
                yaz = yaz & ayrac & hucre.Value
            End If
        End If
    Next hucre
    METIN = yaz
End Function