Harf içeren sütunları tek hücrede birleştirme.

[ogameci]

Merhaba.
Harf içeren çok sayıdaki sütunu tek hücrede nasıl yanyana olacak şekilde birleştirebilirim?

=BİRLEŞTİR(A11) olmuyor.

Bunun kısa yolu var mı?
=BİRLEŞTİR(A1;B1;C1;D1;E1;F1;G1;H1;I1;J1;K1;L1;M1;N1;O1;P1)


EDİT:
- Office 2016'da ARALIKBİRLEŞTİR komutu çıkmış. Deneyemedim. =ARALIKBİRLEŞTİR(A11) ile sorunsuz birleştirme yapılabiliyor.

- Ayrıca Google Docs, e-tablo üzerinde =BİRLEŞTİR(A11) ile hata vermeden birleştirme yapıyor, ancak excel olarak indirirseniz =BİRLEŞTİR olarak indirdiğinden hata veriyor.

 

[Korhan Ayhan]

Merhaba,

Bildiğim kadarıyla formülle direkt yapılamıyor.

Dolaylı yoldan çözüm önerisi;

Boş hücreye =A11 yazın.
Cursor hücre içinde aktif iken F9 tuşuna basın.
Bu şekilde hücredeki değerler diziye alınmış olacaktır.

Oluşan dizinin başındaki ve sonundaki köşeli parantezleri silin.
Hücre içindeyken formülün başına tıklayın ve BİRLEŞTİR fonksiyonu parantezine alın.

Son olarak enter tuşuna basıp işlemi tamamlayın.

Bunlar uzun iş derseniz makro ile fonksiyon yazılabilir.

 

[ogameci]

Çok teşekkür ederim Korhan Ayhan.

Değer olarak birleşiyor.

Makrosuz formül olarak birleşemiyor.

 

[Korhan Ayhan]

Kullanıcı tanımlı fonksiyonla çözüm işinize yararsa ekteki dosyayı inceleyebilirsiniz.

Kullanılan kod;

Hücrede kullanımı;

=KBİRLEŞTİR(Alan;Ayıraç)

Fonksiyondaki ayıraç opsiyoneldir. Boş bırakırsanız otomatik olarak virgül (,) kullanılır. Dosyada örnekler var.

Function KBİRLEŞTİR(Alan As Range, Optional Ayıraç As String = ",")
    Dim Veri As Range
    
    Application.Volatile True
        
    For Each Veri In Alan
        If KBİRLEŞTİR = "" Then
            KBİRLEŞTİR = Veri.Value
        Else
            KBİRLEŞTİR = KBİRLEŞTİR & Ayıraç & Veri.Value
        End If
    Next
End Function

 

[ogameci]

Metin içeren sütunları tek hücrede birleştirmek için çok faydalı bir fonksiyon oldu.
Teşekkürler