Aynı sütunda bulunan hücreleri birleştirme

[muyat]

a1 hücresinden başlayıp a100e kadar meyve isimleri var.
ELMA
ARMUT
NAR
şeklinde aşagıya dogru gidiyor
Bunların hepsini örnegin B7 isimli hücrede nasıl birleştirebilirim?
cELLS komutuyla yapmaya çalıştım ama olmadı

 

[muygun]

Merhaba;

Sub birleştir()
Cells(7, "b") = ""
For i = 1 To Range("A65536").End(xlUp).Row
Cells(7, "b") = Cells(7, "b") & Cells(i, "a")
Next i
End Sub

şeklinde deneyin.
İyi çalışmalar.

 

[hamitcan]

Sub Dikdörtgen1_Tıklat()

For a = 1 To Cells(65536, 1).End(xlUp).Row
x = x & " " & Cells(a, 1)
Next
[b7] = x
End Sub

 

[muyat]

Merhaba;

Sub birleştir()
Cells(7, "b") = ""
For i = 1 To Range("A65536").End(xlUp).Row
Cells(7, "b") = Cells(7, "b") & Cells(i, "a")
Next i
End Sub

şeklinde deneyin.
İyi çalışmalar.

Teşekkürler.Peki şunu sorcam.
Burda b7 isimli hücreyi nereye eşitliyorsunuz?
Cells(7, "b") = ""

 

[muyat]

muygun hocam

Sizin verdiginiz kod oluyor ama hücredeki metinler birbiriyle aralarında boşluk olmayacak şekilde birleşiyor
ELMAARMUT şeklinde oluyo sizin kodda
Ben boşluk olacak şekilde birleşmesini istiyorum. ELMA ARMUT NAR şeklinde olmalı.Yardımcı olurmusunuz tekrar

 

[muygun]

Merhaba;

Sub birleştir()
Cells(7, "b") = ""
For i = 1 To Range("A65536").End(xlUp).Row
Cells(7, "b") = Cells(7, "b") & Cells(i, "a") & " "
Next i
Cells(7, "b") = Trim(Cells(7, "b"))
End Sub

Şeklinde uygulayarak deneyin.
İyi çalışmalar.

Makro başlangıcında B7 hücresi boş değere eşitleniyor. (yani boşaltılıyor)

 

[muyat]

Sub Dikdörtgen1_Tıklat()

For a = 1 To Cells(65536, 1).End(xlUp).Row
x = x & " " & Cells(a, 1)
Next
[b7] = x
End Sub

Sizin bu kodda güzel çalışıyor Hamitcan bey.
Burda da şunu sorsam,Verileri b7 hücresine yerleştirirken arada boşluk değil de noktalı virgül olacak şekilde yerleşmesini nasıl sağlayabiliriz.

 

[ojibu]

Sub Dikdörtgen1_Tıklat()

For a = 1 To Cells(65536, 1).End(xlUp).Row
x = x & ";" & Cells(a, 1)
Next
[b7] = x
End Sub