Metinleri Tek hücrede birleştirmek

[seyfi38]

Arkadaşlar merhaba
benim isteğim
a1 taş
a2 kaya
a3 tahta
a4 ağaç
a5 beton
benim istediğim hücreleri tek hücrede birleştirme arada boşluklu
bende bir formül varda =A1&" "&A2&" "&A3&" "&A4&" "&A5
Bu hücreler bazen 5 bazen 10 olabiliyor
sayı toplam gibi =TOPLA(A1:A5) gibi bir formül varmı
=TOPLA(A1:A10) yapınca hemen düzeltebileyim

 

[Korhan Ayhan]

Makro ile yapabilirsiniz.

Linkteki gibi...

Hücreleri alt alta birleştirme

 

[bzace]

Alternatif olarak;
Bir zamanlar bir Abim göndermişti.

Option Explicit
Public Function Mbirlestir(rngFind As Range, _
                Optional sFind As String = "", _
                Optional rngValues As Range = Nothing, _
                Optional sDelimiter As String = " ") As String
    Dim sResult As String
    Dim nIdx As Long
    Dim bFlag As Boolean
    
    For nIdx = 1 To rngFind.Cells.Count
        If Not IsError(rngFind.Cells(nIdx).Value) Then
            bFlag = False
            If (sFind = "") Then
                bFlag = True
            ElseIf IsNumeric(rngFind.Cells(nIdx).Value) Then
On Error Resume Next
                bFlag = Application.Evaluate(CStr(Val(rngFind.Cells(nIdx).Value)) & sFind)
On Error GoTo 0
            Else
                bFlag = (rngFind.Cells(nIdx).Value Like sFind)
            End If
            
            If bFlag Then
                If (sResult <> "") Then
                    sResult = sResult & sDelimiter
                End If
                
                If (rngValues Is Nothing) Then
                    sResult = sResult & CStr(rngFind.Cells(nIdx).Value)
                Else
                    sResult = sResult & CStr(rngValues.Cells(nIdx).Value)
                End If
            End If
        End If
    Next
    Mbirlestir = sResult
End Function

Kullanılışı : =Mbirlestir(A1:A5)

Daxe Syán

 

[Murat OSMA]

Alternatif olarak;
Bir zamanlar bir Abim göndermişti.

Abiniz de buradan almış sanırım;
Kaynak; http://www.excelfin.ru/index.php/articles/practice/77

 

[bzace]

Murat bey, aradım İngilizce kaynaklı bir yerden olduğunu söyledi. Nereden olduğunu hatırlamıyormuş.

Link sayesinde Fonksiyonun farklı kullanım yolları varmış bunu da öğrenmiş oldum.

 

[Murat OSMA]

Anladım.
Vatana millete hayırlı uğurlu olsun. k::

Minik bir hatırlatma: "bunuda" kelimesinde....
dahi anlamındaki da ayrı yazılır.

Bu konuya dikkat ettiğinizi düşündüğümden hatırlatma yapmak istedim.

Saygılar