Metinsel Satırları birleştirme

[steppe]

İyi Akşamlar arkadaşlar,
A sütununda alt alta 3 metinsel hücre varsa 2. ve 3. hücreyi 2.hücrede birleştirmek istiyorum.
Örnek
A3-- 456
A4-- ahmet
A5-- Mehmet
A6-- Antalya
A7-- 234

A4-A5-A6 metinsel hücreler
A5 ile A6 yı birleştirmek istiyorum

A5 hücresine Mehmet Antalya yazacak
A6 hücresini silecek

Not:Tabi A sütununda numerik ve metinsel olarak alt alta bir çok hücre var.

Yardımlarınız için şimdiden teşekkür ederim.

 

[muygun]

Merhaba;
Sayfanın kod bölümüne;

Sub işlem()
Application.ScreenUpdating = False
On Error Resume Next
For i = 3 To Range("A65536").End(xlUp).Row
If IsNumeric(Cells(i, "a")) = True And Cells(i, "a") <> "" And Cells(i + 3, "a").Interior.ColorIndex = xlNone Then
If IsNumeric(Cells(i + 1, "a")) = False And IsNumeric(Cells(i + 2, "a")) = False And IsNumeric(Cells(i + 3, "a")) = False Then
Cells(i + 3, "a") = Cells(i + 2, "a") & " " & Cells(i + 3, "a")
Cells(i + 3, "a").Interior.ColorIndex = 44
End If
End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub


Kodlarını ekleyerek deneyin.
İyi çalışmalar.

NOT: A sütununda zemin rengi kullanmadığınız (yani hücrelerin renksiz olduğu) varsayıldı.
Kodlar birleştirme işlemi yaptığı hücreye zemin rengi uygular. Böylece işlem yapılmış hücreyi pas geçer.

 

[steppe]

muygun Hocam,
Yardımlarınız için çok teşekkür ederim.