Bir alt satırı bir üst satır ile birleştirme yardım lütfen

[votkaredbul]

Merhaba,

Elimde uzunca bir excel tablosu var ve benim bazı birleştirmeler yapmam gerekiyor.

Örnek teşkil etsin diye eke bir dosya koyuyorum. Dosyada neyi nasıl yapmak istediğimi belirttim.

Yardımdınlarınız için şimdiden teşekkürler.

 

[neocassio]

ekteki gibi mi olacak ?

 

[votkaredbul]

Evet ekteki gibi olacak ama arada boşlukta bırakılabilirse çok iyi olur. Yani 1mehmet gibi değilde 1 mehmet gibi.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub birlestir()
[b2:b100] = ""
Dim sat As Integer
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
    For sat = 2 To Cells(Rows.Count, "a").End(xlUp).Row
        If IsNumeric(Cells(sat, "a")) Then
            Cells(sat, "b") = Cells(sat, "a") & " " & Cells(sat + 1, "a")
            Cells(sat + 1, "b") = Cells(sat + 2, "a")
        End If
    Next
    For sat = Cells(Rows.Count, "a").End(xlUp).Row To 2 Step -1
        If Cells(sat, "b") = "" Then
            Cells(sat, "b").Delete shift:=xlUp
        End If
    Next
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

 

[votkaredbul]

Bu kodu nereye nasıl yazacağımıda söylerseniz sevinirim.

 

[N.Ziya Hiçdurmaz]

ALT F11 Tuşlarına basarak vba bölümüne giriniz. İnsert Module'den, Bir modul ekleyip kodu içerisine uygulayınız.

 

[votkaredbul]

Çok uğraştım ama bir türlü yapamadım. Bu işlemin farklı bir yolu daha var mı ?