Çoklu Birleştirme

[Baggwell]

Alt alta 200'den fazla değeri birleştirmenin kolay bir yolu var mı ?
(Not: aralarına virgül eklenecek.)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

Sonuç şu şekilde olmasını istiyorum: 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15

 

[bzace]

Merhaba,
Adımları uygulayınız.

==BİRLEŞTİR([COLOR="Red"]DEVRİK_DÖNÜŞÜM(A1:A15)&","[/COLOR])

Adımlar;

• Formülde yer alan kırmızı lanı seçip F9 tuşuna basınız.
• İstediğiniz sayılar {} içerisinde alınacaktır.
• Bu köşeli parantezleri silerek formülü tamamlayınız.

Saygılar,
Kafe

 

[YUSUF44]

Aşağıdaki kodları bir modüle ekleyiniz. İstediğinizi kullanabilirsiniz:

1. Kod

Function birleştirme(hedef As Range, Optional ayırac As String = ",") As String
    Dim alan As Range
    Dim sonuc As String
      For Each alan In hedef
        If alan.Value <> "" Then
            sonuc = sonuc & ayırac & alan.Value
        End If
    Next alan
    If sonuc <> "" Then
        sonuc = Mid(sonuc, Len(ayırac) + 1)
    End If
    birleştirme = sonuc
End Function

Kullanımı için sonuç hücresine aşağıdaki şekilde formül giriniz:

=birleştirme(A1:A10)

2.Kod

Function birlest(hucre As Range, Optional imlec As String = "") As String

For Each alan In hucre

k = k & alan & imlec

Next alan

If imlec = "" Then
birlest = k
Else
birlest = VBA.Left(k, VBA.Len(k) - 1)
End If
End Function

Bu kodda ise ayracı kendiniz belirlyebilirsiniz. Kullanımı için sonuç hücresine aşağıdaki şekilde formül giriniz:

=birlest(A1:A10;",")

Kodlar bana ait değildir, forumda başka bir konuda geçiyordu.

 

[Baggwell]

Merhaba,
Adımları uygulayınız.

==BİRLEŞTİR([COLOR="Red"]DEVRİK_DÖNÜŞÜM(A1:A15)&","[/COLOR])

Adımlar;

• Formülde yer alan kırmızı lanı seçip F9 tuşuna basınız.
• İstediğiniz sayılar {} içerisinde alınacaktır.
• Bu köşeli parantezleri silerek formülü tamamlayınız.

Saygılar,
Kafe

Yanıtlarınız için teşekkürler

İlk olarak bu formülü denedim sonuç olarak 123456789101112131415, şeklinde geliyor.

Sizde sonuç farklı mı ?

 

[Baggwell]

Aşağıdaki kodları bir modüle ekleyiniz. İstediğinizi kullanabilirsiniz:

1. Kod

Function birleştirme(hedef As Range, Optional ayırac As String = ",") As String
    Dim alan As Range
    Dim sonuc As String
      For Each alan In hedef
        If alan.Value <> "" Then
            sonuc = sonuc & ayırac & alan.Value
        End If
    Next alan
    If sonuc <> "" Then
        sonuc = Mid(sonuc, Len(ayırac) + 1)
    End If
    birleştirme = sonuc
End Function

Kullanımı için sonuç hücresine aşağıdaki şekilde formül giriniz:

=birleştirme(A1:A10)

2.Kod

Function birlest(hucre As Range, Optional imlec As String = "") As String

For Each alan In hucre

k = k & alan & imlec

Next alan

If imlec = "" Then
birlest = k
Else
birlest = VBA.Left(k, VBA.Len(k) - 1)
End If
End Function

Bu kodda ise ayracı kendiniz belirlyebilirsiniz. Kullanımı için sonuç hücresine aşağıdaki şekilde formül giriniz:

=birlest(A1:A10;",")

Kodlar bana ait değildir, forumda başka bir konuda geçiyordu.

Yusuf bey sizin yönteminizle denedim çalışıyor. Makroyu modüle sabitlemeyi düşünüyorum.

Fakat bunu başaramadım. Nasıl yapabilirim ?

http://prntscr.com/bvopo9

 

[YUSUF44]

xlam uzantısı eklentiler için bildiğim kadarıyla. Çalışır mı bilmiyorum ancak eklenti olarak kaydederseniz, Excel seçeneklerinden bu eklentiyi etkinleştirmelisiniz ki diğer dosyalarda da kullanılabilsin.

 

[Baggwell]

Normal çalışan eklentilerim var, her çalışma kitabında kullandığım makroları oraya ekliyorum. Fakat bunu ekleyince hata veriyor.

 

[YUSUF44]

Ben dosyayı eklenti olarak kaydedip etkinleştirdiğimde başka dosyalarda kullanabildim. Yorumum yok maalesef.

 

[serdar.gul]

Sayın Baggwell ,

bzace nin vermiş olduğu formülde istediğiniz sonuç çıkmaktadır. Denedim oldu Farklı birşey öğrenmiş oldum size ve bzaceyede Teşekkür ederim.

 

[Baggwell]

Bende tekrardan denedim formül doğru çalışıyormuş, ufak bir yanlışlık yapmışım onu fark ettim.

 

[Baggwell]

Ben dosyayı eklenti olarak kaydedip etkinleştirdiğimde başka dosyalarda kullanabildim. Yorumum yok maalesef.

bendeki makrolar ile çakışıyor mu bilemedim