Ayrı ayrı sütunları tek bir sütunda birleştirme

[shallala]

Merhaba,
Excel'in "text to columns" seçeneğini kullanarak ayrıştırdığım bir dosya var. Yapmak istediğim yan yana olan bu bilgileri alt alta yapıştırmak. Sıra önemli değil, istatistiki test yapabilmek için verilere tek bir sütunda ihtiyacım var.
Dosyamın örneği ekte.
Çok teşekkürler.

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub Duzenle()
 
    Dim i       As Long
    Dim Adet    As Long
    Dim Dizi()
    Dim Hucre   As Range
    
    Adet = Cells.SpecialCells(xlCellTypeConstants, 23).Count
    ReDim Dizi(1 To Adet)
    
    For Each Hucre In Cells.SpecialCells(xlCellTypeConstants, 23)
        If Not Hucre = "" Then
            i = i + 1
            Dizi(i) = Hucre
        End If
    Next Hucre
    
    Application.ScreenUpdating = False
    
    Cells.ClearContents
    Range("A1").Resize(Adet, 1) = Application.WorksheetFunction.Transpose(Dizi)
    Application.ScreenUpdating = True
    
End Sub

 

[shallala]

Çok teşekkür ederim, maalesef çalıştıramadım. Aşağıdaki satırda hata verdi;
"Range("A1").Resize(Adet, 1) = Application.WorksheetFunction.Transpose(Dizi)"

 

[Necdet]

Çok teşekkür ederim, maalesef çalıştıramadım. Aşağıdaki satırda hata verdi;
"Range("A1").Resize(Adet, 1) = Application.WorksheetFunction.Transpose(Dizi)"

Hata verebilir de, verdiği hata nedir?

 

[shallala]

"Type mismatch" diyor.

 

[Necdet]

"Type mismatch" diyor.

Ben hata almıyorum. Örnek dosyada kodlar çalıştı mı? yoksa sizin verileriniz daha fazla mı? onları merak ettim.

 

[shallala]

Ben hata almıyorum. Örnek dosyada kodlar çalıştı mı? yoksa sizin verileriniz daha fazla mı? onları merak ettim.

Benim verilerim çok fazla. Bu dosyalardan birini ekledim. Bu dosya üzerinde çalıştıramadım ben. Belki de ben acemilikten yanlış bir şey yapıyor da olabilirim.

 

[Ömer]

Merhaba,

Kodları son eklediğiniz dosyada denedim, herhangi bir hata almadım.

Ekteki "Tıkla" butonunu kullanın.

.

 

[shallala]

Heey, harikasınız. Tamamen benim acemiliğimmiş.
Her ikinize de sonsuz teşekkür ederim.
Hatta foruma topluca teşekkür ederim. Günlerce uğraşmaktan kurtuldum.

 

[Necdet]

Heey, harikasınız. Tamamen benim acemiliğimmiş.
Her ikinize de sonsuz teşekkür ederim.
Hatta foruma topluca teşekkür ederim. Günlerce uğraşmaktan kurtuldum.

Çalıştığına sevindim ama 2. mesajımdaki kodları değiştirdim. Tüm satır ya da tüm sütun boş olduğunda çalışmazdı.

 

[shallala]

Tekrar merhaba,
Fark ettim ki formül sadece ilk iki sütunu birleştiriyor, devamını yok ediyor. "Range" ile alakalı bir durum mu sizce bu? Örnekte de durum böyle. Toplamda 35.000 civarı hücre varken makro çalıştırıldığında bir sütunda gösterilen kayıt sayısı 1800 civarında.
Eminim çok basit bir çözümü var ama ben bulamıyorum

 

[Necdet]

Çalıştığına sevindim ama 2. mesajımdaki kodları değiştirdim. Tüm satır ya da tüm sütun boş olduğunda çalışmazdı.

Bu mesajı okudunuz mu?

 

[shallala]

Kusura bakmayın, atlamışım. Şimdi tam şahane oldu ​