Tüm hücreleri tek hücrede boşluksuz birleştirme

[krizantem_kasimpati]

Arkadaşlar merhaba!

Excel' de "A" sütununda 150 tane hücredeki rakamsal değerleri,"B" sütunda tek bir hücrede boşluksuz olarak nasıl birleştirebilirim.Kısayolu var mıdır? Teşekkürler..

 

[turist]

Kullanıcı Tanımlı fonksiyon olarak, VBA sayfasını açarak (Alt+F11), yeni bir modüle:

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

girin.

Formülün kullanılışı:

=birleştirme(A1:A150) gibidir , veya aralığı istediğiniz gibi belirleyin.

 

[krizantem_kasimpati]

http://www.dosya.tc/server23/q0EYSr/ORNEK_26012014.xls.html

Yaptım ama olmadı.İlgili dosyayı ekledim.Sana zahmet bi bakabilirmisin? Olayı ordan çözebilirim diye düşünüyorum.Şimdiden teşekkürler..

 

[turist]

http://www.dosya.tc/server23/q0EYSr/ORNEK_26012014.xls.html

Yaptım ama olmadı.İlgili dosyayı ekledim.Sana zahmet bi bakabilirmisin? Olayı ordan çözebilirim diye düşünüyorum.Şimdiden teşekkürler..

Macro kodunu Sayfa1 sayfasına yazmışsınız.(Bu şekilde formül çalışmaz)
VBA editor sayfasını açarak, yeni bir module ekleyerek Modüle yazmalısınız.
At ve F11 tuşlarına birlikte basarak VBA penceresini açın.
Üstteki menüden Insert( Ekle) tıklayın.
Açılan listeden "Module" yazanı çift tıklayın. Sağ tarafında açılan sayfaya kodu yapıştırın.

 

[krizantem_kasimpati]

Evet üstad haklısın.Şimdi oldu.Teşekkürler..

 

[yavuzzz3453]

Merhabalar,

bu tamda aradığım formül ama ben buna ek olarak bu işi farklı hücrelerden değerleri alıp tek hücrede toplamak istiyorum,, verdiğiniz formülde zaten ayıraç koyabiliyorum.. ek olarak formül sayfa birde,, değerler sayfa 2 de ..
yardımlarınız için şimdiden teşekkürler

 

[turist]

Merhabalar,

bu tamda aradığım formül ama ben buna ek olarak bu işi farklı hücrelerden değerleri alıp tek hücrede toplamak istiyorum,, verdiğiniz formülde zaten ayıraç koyabiliyorum.. ek olarak formül sayfa birde,, değerler sayfa 2 de ..
yardımlarınız için şimdiden teşekkürler

Foruma hoşgeldiniz.

Farklı hücrelerden verileri birleştirmek için:
Örnek:

=birleştirme(A1:A3)&birleştirme(C1:C3)&birleştirme(e1:e5)

Sayfa2 den verileribirleştirmek için:
Örnek:

=birleştirme(Sayfa2!E1:E6)

gibi kullanabilirsiniz.

 

[yavuzzz3453]

Cok tesekkur ederim bilgisayar basina gecince hemen denicem..

 

[yavuzzz3453]

Malesef olmadı hocam.. formülü sayfa birde yazıyorum ama değerler sayfa ikide farklı hücrelerde,,

formülü şu şekilde yazıyorum
=birleştirme(Sayfa2!J95:M95;"-")&birleştirme(Sayfa2!J96;"-")&birleştirme(Sayfa2!J98:K98;"-")&birleştirme(Sayfa2!J101:K101;"-")

böyle yapınca sayıları alıyor ama iki birleştirme arasındaki sayılara ayraç koymuyor bitişik oluyor.
çözümü varmıdır acaba tekrardan teşekkürler

 

[ÖmerBey]

=birleştirme(Sayfa2!J95:M95)&"-"&birleştirme(Sayfa2!J96)&"-"&birleştirme(Sayfa2!J98:K98)&"-"&birleştirme(Sayfa2!J101:K101)

şeklinde deneyiniz

 

[ÖmerBey]

Bütün sayıların arasına ayraç koymak istiyorsanız aşağıdaki formülü deneyiniz.

=birleştirme(Sayfa2!J95:M95;"-")&"-"&birleştirme(Sayfa2!J96;"-")&"-"&birleştirme(Sayfa2!J98:K98;"-")&"-"&birleştirme(Sayfa2!J101:K101;"-")

 

[turist]

Malesef olmadı hocam.. formülü sayfa birde yazıyorum ama değerler sayfa ikide farklı hücrelerde,,

formülü şu şekilde yazıyorum
=birleştirme(Sayfa2!J95:M95;"-")&birleştirme(Sayfa2!J96;"-")&birleştirme(Sayfa2!J98:K98;"-")&birleştirme(Sayfa2!J101:K101;"-")

böyle yapınca sayıları alıyor ama iki birleştirme arasındaki sayılara ayraç koymuyor bitişik oluyor.
çözümü varmıdır acaba tekrardan teşekkürler

Fonksiyon kodu 1.ci mesajınızda :

Excel' de "A" sütununda 150 tane hücredeki rakamsal değerleri,"B" sütunda tek bir hücrede boşluksuz olarak nasıl birleştirebilirim.Kısayolu var mıdır?

isteğinize uygundu.
Arasında "-" işareti isterseniz , fonksiyon kodunu

Function birleştirme(hedef As Range, Optional ayırac As String = [B][COLOR="red"]"-"[/COLOR][/B]) As String

şeklinde değiştirin.