hücreleri birtek hücrede birleştirme

[amelie]

Arkadaşlar merhaba!
yine bir hususta yardımınıza ihtiyacım var.
c1:c279 arası hücrelerdeki bilgilerin tamamını aralarında ";" olacak şekilde
d1 hücresinde toplamaya çalışıyorum ancak kurduğum döngüdeki bariz hatayı çözemedim..yardımlarınız rica ediyorum.

For i = 1 To 279

Range("d1") = Cells(i, 3) & ";"

Next i


Saygılarımla.

 

[metinozlu]

Sub Düğme1_Tıklat()
For i = 1 To 279

Range("d1") = Range("d1") & Cells(i, 3)

Next i

End Sub

 

[sheetsMaster]

for i = 1 to 279
range("d1") = range("d1") & ";" & cells(i,3)
next

 

[N.Ziya Hiçdurmaz]

Kodu bir deneyiniz.
Sub test()
For i = 1 To 279
[d1] = [d1] & Range("c" & i) & ";"
Next
End Sub

 

[amelie]

Sn metinozlu bu kadar hızlı yanıt için çok teşekkür ederim.Harika bir çözüm oldu.Bu arada ben de özür dileyerek ( forumda tam bir arama yamadan sorumu gönderdiğim için) Sayın Necdet Yeşertener Üstadın buna benzer bir sorudan aldığım alternatif cevabıda ekleymek istiyorum.
For i = 3 To [A65536].End(3).Row
[d1] = [c1] & "; " & Cells(i, "c")
Next i

en içten sevgi ve saygılarımla.

 

[amelie]

Valla arkadaşlar metinozlu'ye cevap yazarken sizlerinden cevaplarınızı yanıtımdan sonra görünce şaşırmadım desem yalan olacak.Bunca hız bunca iyiniyet daha ben başka bir forumda görmedim.Hepinize ayrı ayrı teşekkür ediyorum. İçten sevgilerimi gönderiyorum en derin saygılarımla.