birleştir fonksiyonu

[uzmanamele]

merhaba
a1:a5 aralığında a,b,c,d,e gibi ifadeleri =a1&a2&a3&a4&a5 gibi birleştirebiliyoruz.
=BİRLEŞTİR(A1:A5) veya TOPLA.ÇARPIM gibi fonksiyonla birleştirme işlemi yapabilir miyiz?

 

[ziya]

=BİRLEŞTİR(a1;a2;a3;a4;a5)

 

[uzmanamele]

=BİRLEŞTİR(a1;a2;a3;a4;a5)

merhaba
bu şekilde bir fonksiyon değil.
{=BİRLEŞTİR(A1:A5)} gibi dizi formülü arıyorum.

 

[aekturk]

ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-5],RC[-4],RC[-3],RC[-2],RC[-1],)"
bu şekilde bir makro istersen olabilir, fakat sanırım dizi olarak birleştirme mümkün değil...

 

[Merhum İdris SERDAR]

merhaba
a1:a5 aralığında a,b,c,d,e gibi ifadeleri =a1&a2&a3&a4&a5 gibi birleştirebiliyoruz.
=BİRLEŞTİR(A1:A5) veya TOPLA.ÇARPIM gibi fonksiyonla birleştirme işlemi yapabilir miyiz?

Yerleşik fonksiyonlarala pek olacağını sanmıyorum.

KTF ile yapılmış örnek dosya ekte.


.

 

[uzmanamele]

merhaba
syn Yurttaş, teşekkür ederim.
a1:a5 aralığında a,b,c,d,e gibi veriler varsa birleştirme işlemi gerçekleşiyor.
yine a1:a5 aralığında a,d,e (a2 ve a3 hücresi bo&#351 gibi olduğu durumda birleştirme işleminden sonra aradaki fazladan boşluğu kaldırabilir miyiz?

KTF içersindeki " " yerine "" yazarsak sorun çözülüyor ama arada bir boşluk olsa iyi olurdu.

 

[Ali]

More Function eklentisi ilede çözebilirsiniz.

Aşağıdakil linkte çalışmanın MCONCAT adlı sayfa sekmesinin B13-B14-B15 hücrelerine bakabilirsiniz.

More Function Uygulamaları

.

 

[uzmanamele]

merhaba
syn Yurttaş,
BİRLEŞTİR yerine KTF ile BİRLEŞTİRA fonksiyonu için çok teşekkürler.
tam istediğim gibi oldu, elinize sağlık.

 

[uzmanamele]

merhaba
syn Ali teşekkür ederim.

 

[Merhum İdris SERDAR]

merhaba
syn Yurttaş, teşekkür ederim.
a1:a5 aralığında a,b,c,d,e gibi veriler varsa birleştirme işlemi gerçekleşiyor.
yine a1:a5 aralığında a,d,e (a2 ve a3 hücresi boş) gibi olduğu durumda birleştirme işleminden sonra aradaki fazladan boşluğu kaldırabilir miyiz?

KTF içersindeki " " yerine "" yazarsak sorun çözülüyor ama arada bir boşluk olsa iyi olurdu.

Ekteki örneği inceleyin.

.

 

[uzmanamele]

merhaba
syn Yurttaş, 2. dosyanız kesin çözüm ama yardımcı sütun gerektiriyor.
ben ilk dosyanızı kullandım, tekrar teşekkürler.

 

[karadami]

merhaba
syn Yurttaş, 2. dosyanız kesin çözüm ama yardımcı sütun gerektiriyor.
ben ilk dosyanızı kullandım, tekrar teşekkürler.

sorununuzu cozdunuz mu bilmiyorum ama ilk dosyadaki for next dongusunu

For Each c In ALAN
  If c <> Empty Then sonuc = sonuc & c.Value & sALAN
Next c

olarak degistirirseniz arada bos hucre varsa onu yok sayar.

 

[uzmanamele]

merhaba
syn karadamı, böylesi daha güzel oldu.
eline sağlık, teşekkürler.

 

[karadami]

merhaba
syn karadamı, böylesi daha güzel oldu.
eline sağlık, teşekkürler.

rica ederim ben sadece ekleme yaptım. asıl teşekkürü sayın yurttas hocamız hakediyor. tesekkürler sayın yurttas...

 

[yakuphoca]

Ekteki dosyada L11 M11 N11 sütunlarında bulunan gün ay yıl rakamlarını bir hücrede O11 P11 Q11 sütunlarında bulunan gün ay yıl rakamlarını bir hücrede tarih formatında birleştirip aralrındaki gün farkını almak istiyorum.
Bu konuda yardımlarınız bekliyorum..

 

[Ömer]

Merhaba,

Aralarındaki farkı neye göre aldırmak istiyorusnuz.Gün mü Ay mı Yıl mı yoksa hepsine göre mmi?

Not: Sorularınızı yeni başlık altında sorarsanız daha doğru olacaktır.

 

[Ali]

Sonuç hücrenize

=TARİH(Q11;P11;O11)-TARİH(N11;M11;L11)

yazın ve hücrenizi genel yada sayı olarak biçimlendirin.

 

[yakuphoca]

Ali Teşekkürler işi çözdük galiba..
Çok sağol

 

[cavanoos]

Arkadaşlar;

Uzmanamele arkadaşımızın sorunu bende de mevcut.Ama yurttaş arkadaşımızın eklediği eki açamıyorum.

İlgililerden yardım talep ediyorum...

 

[Korhan Ayhan]

Selamlar,

Konu eski olduğu için dosyalar silinmiş.

Alternatif olarak ekteki örnek dosyayı incelermisiniz.

Kullanılan kod;

Option Explicit
 
Function ALAN_BİRLEŞTİR(Aralık As Range, Optional Ayıraç As String = "-")
    Dim Hücre As Range
    
    Application.Volatile True
    
    For Each Hücre In Aralık
        If Hücre.Value <> "" Then
            ALAN_BİRLEŞTİR = IIf(ALAN_BİRLEŞTİR = "", Hücre.Text, ALAN_BİRLEŞTİR & Ayıraç & Hücre.Text)
        End If
    Next
End Function

Fonksiyonun hücrede kullanımı;

[B][COLOR=blue]=ALAN_BİRLEŞTİR([COLOR=red]Aralık[/COLOR];[COLOR=red]Ayıraç[/COLOR])[/COLOR][/B]

Ayıraç bölümü opsiyonaldir. Yani boş bırakabilirsiniz. Boş bıraktığınızda otomatik olarak "-" (tire) işareti ayıraç olarak kullanılacaktır. Siz farklı ayıraçlar kullanarak verileri birleştirebilirsiniz. Ayıraçlarınızı "-" (tırnak içinde) yazmalısınız.