Sütun Birleştirme

[kadir78]

A sütunu, B sütunu ve C sütunlarında olan verileri D sürununa makro kodaları ile hücre birleştirmesi yapmam gerekiyor.
Örnek : A1 ve A65, B1 ve B65, C1 ve C65 arasındaki hücreleri D sütununa Hücre birleştirmesi. 3 hücrenin içeriğini sıra ile 4. hücreye aktarma gibi.

A1 + B1 + C1 = D1
B1 + B2 + C2 = D2

Gibi. Yardımcı Olabilirmisiniz. İyi Günler

 

[kadir78]

Forumdaki Kodlardan Buldum. İşe Yaradı.


Sub CommandButton1_Click()
sat = 1
For Each alan In Range("a1:d1000")
If alan <> "" Then
Cells(sat, "e") = Cells(sat, "a") & Cells(sat, "b") & Cells(sat, "c") & Cells(sat, "d")
sat = sat + 1
End If
Next
End Sub