Aynı Hücreleri Birleştir..!

[sensizsoldum]

Merhaba,
Örnek sayfada çalışmamı sizlerinde yardımlarıyla tamamlanmak üzere.. Bu sayfaya son olarak, C sütundaki verilerden aynı olanlar birleşsin istiyorum. Olması gereken örneği ben sayfa2 ye manuel olarak oluşturdum. Sayfa 1 deki listeyi B3ten başlayarak yapıştırınca sayfa2 deki sonuç olsun istıyorum. G sutunda otomatik tarih geliyor. burayla ilgili bi sıkıntımız yok. Bu konuda da yardımcı olursanız memnun olurum.

Teşekkür ederim İyi akşamlar dilerim.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Sub Birlestir()
    
    Dim i   As Long
    Dim j   As Long
    Dim Esk As String
    
    With Application
        .DisplayAlerts = False
        .ScreenUpdating = False
    End With
    
    Esk = Range("N3")
    j = 3
    
    For i = 4 To Cells(Rows.Count, "N").End(3).Row
        If Not Cells(i, "N") = Esk Then
            Range(Cells(j, "N"), Cells(i - 1, "N")).merge
            j = i
            Esk = Cells(i, "N")
        End If
    Next
    
    With Application
        .DisplayAlerts = True
        .ScreenUpdating = True
    End With
    
    MsgBox "İşlem Tamamlanmıştır....", vbInformation, "N. YEŞERTENER --> [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
    
End Sub

 

[sensizsoldum]

Merhaba Necdet bey,
ilginize tşk ederim. çok sağolun yanız bana butonsuz lazım bu. kopyala yapıştır mantığu örnek dosya da ve o mesajımda gerekli açaıklamarıda sundum. butonlu kodlar elimde mevcut isterseniz bunu butonsuz hale çevirin. bu kodları da siz yazmıştınız.


Sub merge()
Application.DisplayAlerts = False
For i = Range("C65536").End(3).Row To 2 Step -1
If Cells(i, 3) = Cells(i - 1, 3) Then
Range(Cells(i, 3), Cells(i - 1, 3)).merge
End If
Next
Application.DisplayAlerts = True
End Sub