Makro ile birden fazla hücre içeriğini tek hücrede alt alta birleştirme

[fireman64]

Selamlar.
A1 den d1000 hücresine kadar verilerim var. Ben A1 ve D1 arasındaki hücrelerde bulunan verileri E1 hücresine alt alta yazdırmak istiyorum. Bunu dolu hücre sayısı kadar yapacak makroya ihtiyacım var . Teşekkürler

 

[Emir Hüseyin Çoban]

. . .

E1-E2-E3... diye mi devam edecek.

. . .

 

[fireman64]

Evet hocam

 

[Emir Hüseyin Çoban]

Yazım hataları olabilir, kontrol ediniz.

sub kod()
Sat=1
For each alan in range("a1:d1000")
if alan<>"" then
Cells(sat,"e")=alan
Sat=sat+1
End if
Next
End sub

.

 

[fireman64]

Hocam E1 hücresinin içine alt alta a1 b1 c1 ve d1 değerlerinin yazacak. Alt+enter yapılmış şekilde

 

[fireman64]

Hocam verdiğiniz koddan uyarlamayla hallettim teşekkürler.

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