Birden fazla sütundaki veriyi dizi yardımı ile birleştirmek

[Korhan Ayhan]

Selamlar,

Arkadaşlar örneğin sayfada A,B,C,D sütunlarındaki verileri kod içerisinde birleştirerek diziye almak istiyorum. Bu konuda fazla bir bilgi sahibi değilim. Daha sonrada bu dizinin elemanlarını kullanmak istiyorum. Nasıl bir kod kullanmam gerekir. Konuyla ilgili açıklamalı örnek dosya ektedir.

 

[veyselemre]

Sub DiziyeAl()

son = [a65536].End(3).Row

ReDim a(1 To son)
For x = 1 To son
    a(x) = Cells(x, 1) & Cells(x, 2) & Cells(x, 3) & Cells(x, 4)
Cells(x, "g") = a(x)
Next x

MsgBox "Dizinin ilk teriminin indexi    : " & LBound(a) & vbCr & "Dizinin son teriminin indexi : " & UBound(a)

Erase a 'Diziyi hafızadan siler

End Sub

 

[Haluk]

Alternatif -2 :

A, B, C ve D sütunlarındaki verileri döngü kullanmadan bir diziye alarak, UserForm üzerindeki ListBox1' de görüntüler.

Private Sub UserForm_Initialize()
    Dim MyArray
    Dim NoA As Long
    ListBox1.ColumnCount = 4
    NoA = Range("A65536").End(xlUp).Row
    MyArray = Range("A1:D" & NoA)
    ListBox1.List = MyArray
End Sub

 

[Korhan Ayhan]

Selamlar,

Arkadaşlar yardımlarınız için teşekkür ederim.