Hücreleri birleştirme

[tigiy]

Merhabalar,

Ekli dosyadaki tabloda e sütununda bulunan ve tek satırda olması gerekirken bazen 3 bazen daha fazla satıra bölünen açıklamaları tek satırda nasıl toplayabilirim. Örnek dosya ve olmasını istediğim tablo ektedir.

Yardımlarınız için şimdiden teşekkürler
Saygılar

 

[Trilenium]

Liste böyle mi geliyor yoksa sıralı mı geliyor,

 

[Ömer]

Merhaba,

Deneyiniz.

Sub duzenle()

    Dim i As Long, deg As String, d As Range, h As Range
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    For i = 4 To Cells(Rows.Count, "E").End(xlUp).Row
        With Cells(i, "G")
            If InStr(.MergeArea.Address, ":") > 0 Then
                For Each h In Range(.MergeArea.Address)
                    If deg <> "" Then
                        If d Is Nothing Then
                            Set d = Rows(h.Row)
                        Else
                            Set d = Application.Union(d, Rows(h.Row))
                        End If
                    End If
                    deg = deg & Cells(h.Row, "E")
                    i = h.Row
                Next h
               .Offset(0, -2) = deg
            End If
        End With
        deg = ""
    Next i
    
    If Not d Is Nothing Then
        d.Delete
        MsgBox "Düzenlendi."
    End If
    
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    
End Sub

 

[tigiy]

Merhabalar,

Ömer bey öncelikle çok teşekkürler ancak bu dosyadaki örnek için düzenlemeyi yapıyor lakin farklı bir tablo eklediğimde istenilen gibi düzenlemiyor maalesef. Örnek tabloyu ekledim.

Liste böyle mi geliyor yoksa sıralı mı geliyor,

Bankalardan hesap hareket listesi pdf olark geliyor excel çeviriyorum sonra bu şekilde düzenleme yapmam gerekiyor

 

[Ömer]

Son eklediğiniz dosyada birleştirilmiş hücre yok. İlk örneğinizde bu şekilde değildi. Bende çözümü birleştirilmiş hücre üzerinden giderek yapmıştım.

 

[tigiy]

Son eklediğiniz dosyada birleştirilmiş hücre yok. İlk örneğinizde bu şekilde değildi. Bende çözümü birleştirilmiş hücre üzerinden giderek yapmıştım.

Haklısınız Ömer bey gözümden kaçmış kusura bakmayın. Peki bu ikinci örnekteki gibi olan bir excelde birleştirme hususunda destek olabilir misiniz rica etsem?

Teşekkürler