Sütundaki verileri bir hücrede yan yana yazmak.

[suatbayhan]

Merhaba arkadaşlar,
Bir sütunda alt alta olan verileri, bir hücreye ve aralarına işaret koyarak yazmak istiyorum.
Örnek dosya ektedir.
Teşekkür ederim.

 

[Korhan Ayhan]

Merhaba,

Ofis 365 sürümünde gelen METİNBİRLEŞTİR ve ARALIKBİRLEŞTİR fonksiyonları ile çözüme gidebilirsiniz.

Eski sürümler için alternatif olarak KTF (Makro) kullanarak sonuca gidebilirsiniz. Forumda daha önce paylaştığım kullanıcı tanımlı fonksiyonlar var. K_BİRLEŞTİR ifadesi ile arama yaparsanız örneklere ulaşabilirsiniz.

 

[suatbayhan]

Teşekkür ederim hocam.
Benimkinde kelimenin önünde ve sonunda ' işareti konulacak ayrıca kelime aralarında , işareti kullanılacak.
'Suat','Ahmet','Mehmet'
gibi.
Ben Office 2019 kullanıyorum.
İlginiz için teşekkür ederim hocam.

 

[Korhan Ayhan]

Microsoft'un sitesinde 2019 sürümde bahsettiğim fonksiyonlar kullanılabilir diyor. Denediniz mi?

 

[suatbayhan]

Hocam,
'Suat','Ahmet','Mehmet'
sonucunu elde edemedim. METİNBİRLEŞTİR fonksiyonunda sadece kelime aralarına işaret koyabildim.
Veriler A sütununda:
Suat
Ahmet
Mehmet
şeklinde yazılmış.

Birleştirme yaparken, 'Suat','Ahmet','Mehmet' şeklinde olmasını istiyorum.
Teşekkür ediyorum.

 

[Korhan Ayhan]

Deneyiniz.

=METİNBİRLEŞTİR(",";1;"'"&A1:A100&"'")

 

[suatbayhan]

Çıkan sonuç:
'','Suat','Ahmet','Mehmet','Ali','Veli','Burak','Serdar','Tolga','Yılmaz'
Sadece başındaki tırnak ve virgül işareti fazladan çıkmış.

Formülü;
=METİNBİRLEŞTİR(",";1;"'"&A2:A10&"',")
şeklinde değiştirince bu defa
'Suat',,'Ahmet',,'Mehmet',,'Ali',,'Veli',,'Burak',,'Serdar',,'Tolga',,'Yılmaz',
sonucunu verdi. En sonunda fazladan virgül işareti.

 

[Mdemir63]

Selamlar

Alternatif olarak Makro ile isterseniz
deneyiniz.

 

[suatbayhan]

Selamlar

Alternatif olarak Makro ile isterseniz
deneyiniz.

Cevabınız için teşekkür ediyorum.
Yazdığınız kod ile çıkan sonuç:
Suat',Ahmet',Mehmet',Ali',Veli',Burak',Serdar',Tolga','Yılmaz'
istediğim:
'Suat','Ahmet','Mehmet','Ali','Veli','Burak','Serdar','Tolga','Yılmaz'

Bir de buton kullanmadan sadece formül ile olsaydı iyi olurdu.
İlginiz için teşekkür ediyorum.

 

[Mdemir63]

Selamlar
Dosyayı güncelledim

 

[Korhan Ayhan]

Bende oluşan görüntü...

Aralıkta boş hücre olmamasına dikkat etmeniz yeterli olacaktır.

 

[suatbayhan]

Bende oluşan görüntü...

Aralıkta boş hücre olmamasına dikkat etmeniz yeterli olacaktır.

Ekli dosyayı görüntüle 240486

Çok özür dilerim hocam.

=METİNBİRLEŞTİR(",";1;"'"&A1:A100&"'")
Benim veriler A2 hücresinden başladığı için o sonucu veriyordu.
Satır aralığını A2:A100 yapınca düzeldi.
İlginiz için çok teşekkür ediyorum.

 

[suatbayhan]

Selamlar
Dosyayı güncelledim

Sonuç doğru.
İlginiz için çok teşekkür ediyorum.

 

[Korhan Ayhan]

Alternatif KTF ile çözüm..

Linkteki daha önce paylaştığım kodlardan faydalandım.

Belli bir sütundaki(alandaki) verileri tek hücreye virgülle yazdır(otomatik-butonsuz)

Merhaba, Ekteki excel dosyasındada açıklamasını yaptığım şekilde belli bir sütundaki veriyi 1 hücreye araya virgül yada tire ile yazdırmak istiyorum. Bu dosya ile sevkiyat öncesi Paletlerin üzerine içerik ve adres bilgisi yazdırıyorum Verilerin alınacağı sütunda palet içindeki ürünlerin...

www.excel.web.tr

=K_BİRLEŞTİR(A1:A100;",") şeklinde kullanabilirsiniz.

Option Explicit

Function K_BİRLEŞTİR(Alan As Range, Optional Ayıraç As String = "-")
    Dim Dizi As Object, Veri As Range, Say As Long
 
    Application.Volatile True
 
    Set Dizi = VBA.CreateObject("Scripting.Dictionary")
 
    For Each Veri In Alan
        If Veri.Value <> "" And Veri.RowHeight <> 0 Then
            If Not Dizi.Exists(Veri.Value) Then
                Say = Say + 1
                Dizi.Add "'" & Veri.Value & "'", Say
            End If
        End If
    Next
 
    K_BİRLEŞTİR = Join(Dizi.Keys, Ayıraç)

    Set Dizi = Nothing
End Function

 

[suatbayhan]

Alternatif KTF ile çözüm..

Linkteki daha önce paylaştığım kodlardan faydalandım.

Belli bir sütundaki(alandaki) verileri tek hücreye virgülle yazdır(otomatik-butonsuz)

Merhaba, Ekteki excel dosyasındada açıklamasını yaptığım şekilde belli bir sütundaki veriyi 1 hücreye araya virgül yada tire ile yazdırmak istiyorum. Bu dosya ile sevkiyat öncesi Paletlerin üzerine içerik ve adres bilgisi yazdırıyorum Verilerin alınacağı sütunda palet içindeki ürünlerin...

www.excel.web.tr

=K_BİRLEŞTİR(A1:A100;",") şeklinde kullanabilirsiniz.

Option Explicit

Function K_BİRLEŞTİR(Alan As Range, Optional Ayıraç As String = "-")
    Dim Dizi As Object, Veri As Range, Say As Long

    Application.Volatile True

    Set Dizi = VBA.CreateObject("Scripting.Dictionary")

    For Each Veri In Alan
        If Veri.Value <> "" And Veri.RowHeight <> 0 Then
            If Not Dizi.Exists(Veri.Value) Then
                Say = Say + 1
                Dizi.Add "'" & Veri.Value & "'", Say
            End If
        End If
    Next

    K_BİRLEŞTİR = Join(Dizi.Keys, Ayıraç)

    Set Dizi = Nothing
End Function

Çok teşekkür ediyorum hocam. Bu vesile ile eski sürümlerde kullanım imkanı oldu.
Yoruldunuz.
Çok teşekkür ediyorum.