Hücreler arasına değişken koyma

[wezyr]

Merhabalar, B4 ile BM4 hücrerleri arasındaki verilerin arasına ; karakteri gelecek şekilde birleşitirip BN4 hüçresine yazdıracak vba koduna ihtiyacım var. Aslında istediğim metinbirleştir formülünün aynısı fakat metinbirleştir formülü office2 2019 öncesi çalışmadığı için koda ihtiyacım var

 

[mesudiye_052]

Merhabalar
=AradaVirgulBirlestir(A1:F1)

Public Function AradaVirgulBirlestir(hucreler As Range) As String
    Dim r As Range
    Dim birlestir As String
   
    For Each r In hucreler
        If Not IsEmpty(r) Then
            birlestir = birlestir & ";" & r.value
        End If
    Next r
    birlestir = Mid(birlestir, 2)
    AradaVirgulBirlestir = birlestir
End Function

 

[Korhan Ayhan]

Alternatif;

Sorgu için arama sonuçları: K_BİRLEŞTİR

www.excel.web.tr

 

[wezyr]

Teşekkürler