Hücreleri birleştirme

tigiy

Altın Üye
Katılım
31 Aralık 2013
Mesajlar
138
Excel Vers. ve Dili
2019-Türkçe
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
 

Ekli dosyalar

Trilenium

Destek Ekibi
Destek Ekibi
Katılım
16 Eylül 2008
Mesajlar
1,052
Excel Vers. ve Dili
Microsoft Office 2019 English
Liste böyle mi geliyor yoksa sıralı mı geliyor,
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,196
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

Deneyiniz.
Kod:
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

Altın Üye
Katılım
31 Aralık 2013
Mesajlar
138
Excel Vers. ve Dili
2019-Türkçe
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
 

Ekli dosyalar

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,196
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
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

Altın Üye
Katılım
31 Aralık 2013
Mesajlar
138
Excel Vers. ve Dili
2019-Türkçe
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
 
Üst