yanyana olan sütunları alt alta bir sütunda nasıl birleştiririm

[atakan88]

elimde l o r sütunları olan bir excel tablosu var .her bir sütunda aşağı yukarı
5000 satır var ben bu sütunları s sütununda alt alta yazılıcak şekilde birleştirmek istiyorum.bununla ilgili bir formül var mı yardımcı olursanız sevinirim.şimdiden teşekkürler.

 

[sakman26]

selam,
örnek dosya olmadan ve yapılmak istenilen de net olmadığından cevap afaki olabilir.
makro ile çözüm ektedir.
Not : örnek dosya için harici dosya yükleme sitelerinden yüklediğiniz dosyaya ait linki burada verebilirsiniz.

link : http://s2.dosya.tc/server2/m74xmt/atakan88.rar.html

 

[Asri]

Alternatif.

Sub sdebirlestir()
    'S kolonunu temizler
    Columns("S:S").Select
    Selection.ClearContents
    Range("S2").Select
    
    'Alınacak kolonların son satır numaralarını tespit eder
    lsonsatir = Cells(Rows.Count, "L").End(3).Row
    osonsatir = Cells(Rows.Count, "O").End(3).Row
    rsonsatir = Cells(Rows.Count, "R").End(3).Row
    
    ssonsatir = Cells(Rows.Count, "S").End(3).Row + 1
    Range("L2:L" & lsonsatir).Select
    Selection.Copy
    Range("S" & ssonsatir).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    
    ssonsatir = Cells(Rows.Count, "S").End(3).Row + 1
    Range("O2:O" & osonsatir).Select
    Selection.Copy
    Range("S" & ssonsatir).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    
    ssonsatir = Cells(Rows.Count, "S").End(3).Row + 1
    Range("R2:R" & rsonsatir).Select
    Selection.Copy
    Range("S" & ssonsatir).Select
    ActiveSheet.Paste
    Range("S1").Select
    Application.CutCopyMode = False
End Sub

 

[meleklerim]

Range("S" & ssonsatir).Select

satırında debug hatası verdi

 

[Asri]

Range("S" & ssonsatir).Select

satırında debug hatası verdi

dosya.tc ye örnek dosya yükleyiniz.

 

[meleklerim]

selam,
örnek dosya olmadan ve yapılmak istenilen de net olmadığından cevap afaki olabilir.
makro ile çözüm ektedir.
Not : örnek dosya için harici dosya yükleme sitelerinden yüklediğiniz dosyaya ait linki burada verebilirsiniz.

link : http://s2.dosya.tc/server2/m74xmt/atakan88.rar.html

örnek dosyanızı indirdim Sakman bey,
oradaki makrolarda benzersiz alfabetik sırala makrosu dikkatimi çekti
konuyu açan arkadaşla benzer sorunu yaşıyoruz. Bendeki veriler birbirinden virgülle ayrılmış durumda.
benzersiz sırala makrosuna virgül ile ayrılanları da sırala eklentisi yapabilir miyiz?

örnek dosya ekte, şimdiden teşekkürler

http://s5.dosya.tc/server2/6ejimp/sutunbirlestir.xlsx.html

 

[meleklerim]

dosya.tc ye örnek dosya yükleyiniz.

buyurarkadaşım, şimdiden teşekkürler
http://s5.dosya.tc/server2/6ejimp/sutunbirlestir.xlsx.html

 

[Asri]

buyurarkadaşım, şimdiden teşekkürler
http://s5.dosya.tc/server2/6ejimp/sutunbirlestir.xlsx.html

Aşağıdakğ kodu deneyiniz.
Sağ daki tüm kolonlardaki verileri A sütünunda alt alta ekyelecektir

Sub adabirlestir()
 sonsutun = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
 For i = sonsutun To 2 Step -1
    sonsatir = Cells(Rows.Count, i).End(3).Row
    asonsatir = Cells(Rows.Count, "A").End(3).Row + 1
    Range(Cells(2, i), Cells(sonsatir, i)).Select
    Selection.Cut
    Cells(asonsatir, 1).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
  Next i
End Sub

 

[meleklerim]

çok teşekkürler sütun birleşme sorunum çözüldü,
Sakman Bey'e de sormuştum
Örnek belgede gördüğünüz gibi veriler birbirinden virgülle ayrılmış durumda,
sütunları birleştirirken bu virgülle ayrılmış verileri de alt alta koyup, sonuçta tek sütuna düşmüş verileri benzersiz sıralayabilir miyiz?

örnek
a sütunu
ahmet, mehmet

b sütunu
ahmet

c sütunu
mehmet, oya

sonuç d sutununda
ahmet
mehmet
oya

bir önceki mesajda belirttiğim örnek dosya üzerinde de yapabilirsiniz
şimdiden teşekkürler

 

[Erdem Akdemir]

Merhaba,

http://www.dosyaupload.com/ adresine yükleme yaparak, indirme linkini burada paylaşabilir misiniz.

 

[meleklerim]

Buyrun Kuvari Bey

http://www.dosyaupload.com/2CZn

açıklamaları belgede yaptım.
İlgilendiğiniz için sizin nezdinizde tüm excel.web ailesinin üyeleri ve ekibine teşekkür ederim.

 

[sakman26]

selam,
VBA ya pek hakim olmamla birlikte
hazırlanan eki inceleyin..

link : http://s5.dosya.tc/server2/ka0sbn/Sutun_Benzersiz_Alfabetik_Listele_SA.rar.html

 

[meleklerim]

selam,
VBA ya pek hakim olmamla birlikte
hazırlanan eki inceleyin..

link : http://s5.dosya.tc/server2/ka0sbn/Sutun_Benzersiz_Alfabetik_Listele_SA.rar.html

bu dosyayı indiremedim
ama bundan önceki dosyanızda
End(3).Row
parametresi benim işimi görmedi.
Şöyle ki, bu parametre birleştirilecek sutunda verilerin yazıldığı ilk boş satıra kadar gidip kopyalıyor
halbuki benim belgede arada boş satırlar da var.

Sütunda yazılmış son satırdaki veriye kadar seçmesi gerekiyor.

 

[Erdem Akdemir]

Sayın meleklerim,

Dosyanız biraz karışık ve çok fazla zamanımı alacağı için bakamadım.
istediğiniz sonuçları gösteren daha ufak bir örnek dosya ekleyebilir misiniz.

 

[meleklerim]

bazı isteklerimi iptal ettim, dosyayı güncelledim

http://www.dosyaupload.com/2D00

zaman ayırdığınız için çok teşekkürler

 

[sakman26]

bu dosyayı indiremedim
ama bundan önceki dosyanızda
End(3).Row
parametresi benim işimi görmedi.
Şöyle ki, bu parametre birleştirilecek sutunda verilerin yazıldığı ilk boş satıra kadar gidip kopyalıyor
halbuki benim belgede arada boş satırlar da var.

Sütunda yazılmış son satırdaki veriye kadar seçmesi gerekiyor.

ilk dosyanızda , başta , sonda ve ortada olmak üzere boşluklar mevcut ve ben de sorunsuz bir şekilde çalışıyor.
zaten istekte de değişiklik yapılınca ne geriye dönüp bir defa daha bakmaya ve ne de dosyayı değişik bir harici dosya yükleme sitesine yüklemeye gerek kalmadı sanırım...
kolay gelsin..

 

[meleklerim]

ilk dosyanızda , başta , sonda ve ortada olmak üzere boşluklar mevcut ve ben de sorunsuz bir şekilde çalışıyor.
zaten istekte de değişiklik yapılınca ne geriye dönüp bir defa daha bakmaya ve ne de dosyayı değişik bir harici dosya yükleme sitesine yüklemeye gerek kalmadı sanırım...
kolay gelsin..

sanırım yanlış anlaşılmadan dolayı bana siteminiz var.
Canınız sağolsun, ancak
bildiğiniz gibi konuyu açan ben değilim, ilkdosyanız diye kast ettiğim konuyu açan arkadaşa verdiğiniz yanıttaki dosya...
Onda çok güzel makrolar hazırlamışsınız. Onu ben kendi belgelerime uyarladım ve bahsettiğim hatayı aldım.
Sonra bu hatayı giderecek şekilde yardım istedim.
Gönderdiğiniz çözümü o zaman indiremediğim için , indiremediğimi belirterek yazdım.
Şimdi inderebildim ve gerçekten boşlukları yok sayıp, istediğim sonucu veriyor.
Sitem etmenize gerek yok yani, dediğim gibi yine de canınız sağolsun.
Burda bizim sorularımıza sabırla cevap veren, bizim sorunlarımızı kendi sorunları sayıp emek veren herkese minnettarım. Sizi kırdıysam yine de özür dilerim

 

[sakman26]

selam,
sitem burada, kodların çalışıp çalışmaması değil.
Madem istekte yön tamamen değişecekti neden boşa kürek çektik. İşte sitem burada...

 

[meleklerim]

selam,
sitem burada, kodların çalışıp çalışmaması değil.
Madem istekte yön tamamen değişecekti neden boşa kürek çektik. İşte sitem burada...

sizin yaptığınız kodları kullanıyorum Sakman Bey,
Daha önce 5-6 makroyu peşpeşe kullanarak yaptığım işi tek makroda yapmak istedim. Yön değiştirmedim, geliştirdim.
Şimdi üç makronun yerine sizin kodları kullanıyorum. Kesinlikle boşa kürek çektirme gibi bir niyetim yok, olamaz da, zaten de kullanıyorum.
50 bin satır içinde 8 binden fazla benzersiz veri buldum kodlarınızla...

 

[sakman26]

Demek ki ben yanlış anlamışım.
Kusuruma bakmayın.