• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

Katılım
13 Temmuz 2016
Mesajlar
1
Excel Vers. ve Dili
excel 2010
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.
 
Alternatif.

Kod:
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
 
Range("S" & ssonsatir).Select

satırında debug hatası verdi
 
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
 

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

Kod:
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
 
ç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
 
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.
 
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.
 
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..
 
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
 
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...
 
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...
 
Demek ki ben yanlış anlamışım.
Kusuruma bakmayın.
 
Geri
Üst