Aktif hücre içeriğini alttaki hücre ile birleştirmek

[tseker71]

Selamlar,
Kendim yapamadım, araştırdım ama bulamadım da, bu sebeple yardımınıza ihtiyaç duydum.

A1 ve A2 hücrelerinde bilgi (metin) var. A3 ve A4 de benzer şekilde devam edip gidiyor. İhtiyacım alttaki hücre içeriğini üstteki hücrenin içine bir boşluk ile ekleyip alttaki satırı komple silmek.

Yani A2 içeriğini alacak, A1 içeriğine, sağına bir boşluk koyarak ekleyecek, sonra A2 satırını komple silecek.
Mümkünse döngü sayısını da başta girip bu işlemi şu kadar tekrarlayıp duracak.

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz:

Sub birlestir_sil()
son = Cells(Rows.Count, "A").End(3).Row
For i = 1 To son
    Cells(i, "A") = Cells(i, "A") & " " & Cells(i + 1, "A")
    Cells(i + 1, "A").Delete shift:=xlUp
Next
End Sub

 

[YUSUF44]

Yukardaki kod sadece hücreyi siliyor, tüm satırı silmek için aşağıdaki gibi kullanabilirsiniz:

Sub birlestir_sil()
son = Cells(Rows.Count, "A").End(3).Row
For i = 1 To son
    Cells(i, "A") = Cells(i, "A") & " " & Cells(i + 1, "A")
    Rows(i + 1).Delete
Next
End Sub

 

[Korhan Ayhan]

Satır silinince kod eksik çalışmaz mı?

 

[YUSUF44]

Her seferde 2 satırlık işlem yapıldığı ve satırın biri silindiği için sorun olmuyor.

İlk adımda 1'le 2 birleşti, 2 silindi, 3 iki oldu; i de 2 oldu

 

[tseker71]

Yusuf44 çok teşekkür ederim, Allah razı olsun
tam istediğim gibi çalıştı.