Tek bir hücrede metin birlestirme

[Piroglu]

Merhabalar,

Calışma sayfasında hücre referanslarını bildigim iki hucre arasındaki metinleri nasıl tek hucrede toplayabilirim acaba ?

Ornegin A1:A27 arasındaki daha sonra A27:A54 arasındakileri gibi

Simdiden cok tesekkurler.

Saygılarımla.

 

[Ömer]

Merhaba,

Birebir birleştirme mi olacak;

A1:A27 ve A27:A54 deki tüm hücreleri B1 de birleştir gibi.

Yoksa karşılaştırmalı birleştirme mi olacak;

A1 ile A27 yi, A2 ile A28 i gibi...

.

 

[excel_ance]

=birleştir(b1;" ";c1;" ";d1;" ";e1) hangi hücrede birleştirmek isterseniz o hücreye girmeniz durumunda işlemizi görecektir. Iyi akşamlar

 

[Piroglu]

Sorumun tam tarifi

Cevaplarınız için çok teşekkür ederim, mesajımı yazarken cok sıkısık bir zamanda oldugum icin detaylı olarak anlatamamıstım, problemin aslı suydu;

Hucre referanslarını bildigim 2 hucre arasındaki tum metinleri bu referansları kullandırarak tek bir hucrede toplamak istemiştim;

Ekteki excel de acıklamaya calıstım...

Cevaplarınız icin cok tesekkur ederim...

 

[Piroglu]

Omer Bey, cok tesekkurler,

Birebir birleştirme olacak, daha detaylı olarak tekrar tarif etmeye calıştım biraz once...

Saygılar

 

[Korhan Ayhan]

Selamlar,

Bu işlem için aşağıdaki kullanıcı tanımlı fonksiyonu kullanabilirsiniz.

Option Explicit
 
Function VERİLERİ_BİRLEŞTİR(Aralık As Range, Optional Sembol As String = ";") As String
    Dim Hücre As Range
    
    Application.Volatile True
    
    For Each Hücre In Aralık
        If Hücre.Value <> "" Then
            VERİLERİ_BİRLEŞTİR = IIf(VERİLERİ_BİRLEŞTİR = "", Hücre.Value, VERİLERİ_BİRLEŞTİR & Sembol & Hücre.Value)
        End If
    Next
End Function

Hücrede kullanım şekli;

=VERİLERİ_BİRLEŞTİR([COLOR=red]Hücre_Aralığı[/COLOR];[COLOR=blue]Birleştirici_Sembol[/COLOR])

Birleştirici_Sembol opsiyoneldir. Boş bıraktığınızda ";" sembolü ile birleştirme yapılır.

Yani aşağıdaki şekilde kullanabilirsiniz.

=VERİLERİ_BİRLEŞTİR(A1:A10;";")

=VERİLERİ_BİRLEŞTİR(A1:A10)

=VERİLERİ_BİRLEŞTİR(A1:A10;"-")

=VERİLERİ_BİRLEŞTİR(A1:A10;"/")

=VERİLERİ_BİRLEŞTİR(A1:A10;"+")

=VERİLERİ_BİRLEŞTİR(A1:A10;" ")

Ekteki örnek dosyayı incelermisiniz.

 

[Ömer]

Alternatif olsun.

Module kopyalarak çalıştırınız. Belirttiğiniz bölgerde birleştirme gerçekleşecektir.

Option Explicit
 
Sub GrupBirlestir()
 
Dim sOns As Long, i As Long, sAt As Long, oPrtr As String
 
sOns = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
 
Range("F1:F" & sOns).ClearContents
 
For i = 1 To sOns
 
    If Cells(i, "A") <> "" And Cells(i + 1, "A") = "" Then
        sAt = i
    Else
        sAt = Cells(i, "A").End(xlDown).Row
    End If
 
    If Cells(sAt, "F") = "" Or Cells(i, "A") = "" Then
        oPrtr = ""
    Else
        oPrtr = "[B][COLOR=red]/[/COLOR][/B]" [COLOR=green]'Birleştirme ayırıcacını değiştirebilirsiniz.[/COLOR]
    End If
 
    Cells(sAt, "F") = Cells(sAt, "F") & oPrtr & Cells(i, "A")
 
Next i
Application.ScreenUpdating = True
End Sub

.

 

[Piroglu]

Tesekkur

Yardımcı olan herkese cok tesekkur ederim, ne kadar faydası oldu bilemezsiniz...

Saygılarımla

 

[kayserciyes]

textden alınanverileri hücrede belirtilen uzunluk kadar sutun birleştirme

hocam yukardaki kodlara baktım ama kendime uyarlayamadım
ekde örnek dosyayı yolluyorum

text dosyasından aldığım veriler var optikden aldığım öğrencinin sınav kodlamaları
yani
numara 6 hane
Adı 12
Soyadı 12
numara AI2 den AN2 ye kadar 6 hane
Sayfa1 den bunları alıp Sayfa3'de Numara yazan tekbir Sutuna birleştirecek

Sayfa2 de de hangi alan Nerden başlıyor Nerde bitiyor onlar yazıyor


yani sayfa birde her sutunda bir Harfin Yer aldığı veriler Sayfa3 De düzenlenmiş bir şekilde olacak

yardımlarınız için şimdiden teşekkür ederim
yardımcı olursanız sevinirim

 

[kayserciyes]

iyi geceler ömer hocam benim dosyaya bir bakmanız mümkün mü

 

[kayserciyes]

çok zaman alacaksa tek bir veri için yaparsanız ben kalanını diğerlerine uygularım
textden aldığım sınav kodlamalarından
Sayfa1 de AI2 den başlayıp AN2 de biten numaraların birleştirim Sayfa3 deki B sutununa aktarsın yeter
birde ADI B2 M2 aralığını Birleştirip D sutununa aktarırsa başka soru sormadan yaparım

 

[kayserciyes]

günaydın arkadaşlar
bari bir tane kod örneği gönderin vaya ilgili sayfanın linkini yazında ben bakayım arkadaşlar

 

[demirci37]

günaydın arkadaşlar
bari bir tane kod örneği gönderin vaya ilgili sayfanın linkini yazında ben bakayım arkadaşlar

kardeş 7 sene sonra cevap versem komik olur demi

 

[staluer]

Google E-Tablolarda böyle bir formül var. Sanırım Excel karşılığı yok.

Örnek olarak ;

=JOIN(".";C3:C16)

C3 C16 arasındaki hücreleri nokta(.) ile birleştiriyor.

 

[askm]

Sayın Gayserili aşağıdaki kodları deneyin.

Sub askm()
Dim s1, s2, s3 As Worksheet
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
Set s3 = Sheets("Sayfa3")
x = 3
Application.Calculation = xlManual
SonSat = s1.Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To SonSat
    s3.Cells(x, "B") = s1.Cells(i, "AI") & s1.Cells(i, "AJ") & s1.Cells(i, "AK") & s1.Cells(i, "AL") & s1.Cells(i, "AM") & s1.Cells(i, "AN")

    x = x + 1
Next
SonSat3 = s3.Cells(Rows.Count, 2).End(xlUp).Row
s3.Range("B3:B" & SonSat3).NumberFormat = "@" 'başında sıfır istemiyorsanız bu satırı silin.
Application.Calculation = xlAutomatic

End Sub

 

[kayserciyes]

Teşekkür ederim 4 yıl sonra gelmiş olsada cevap

 

[askm]

Siz soruyu 4 yıl önce sormuş olabilirsiniz ama birileri kurcalamış. Listede üst sırada idi. Yardım edebileceğimi düşündüğüm için kod yazdım. Sizin işinizi belki görür belki görmez ama illaki gün gelir birilerinin işini görür inşallah.

 

[kayserciyes]

Yok yok müsterih olun ben o çalışmama tekrar bir bakacağım ara ara lazım oluyordu ama ben çöüzm olmayınca farklı yollar deniyordum TEşekkür ederim çalışmamı tamamlayınca burdan ekleyeceğim

 

[jasrsnmz]

hocam bir sütundaki metin yazılarının hepsini aralarında virgüllü olrak bir hücrede birleştirmek istiyorum fakat çözümü bulamadım yardımcı olabilirmisiniz

 

[jasrsnmz]

Sorduğum soruya cevap buldum linkdeki yolu takip ederseniz tam sorunum çözüldü sadece kodu kendime uyarladım http://www.excel.web.tr/f48/sutudaki-verileri-bir-hucre-icine-araya-virgul-koyarak-t59921.html