Koşullu Hücre Birleştirme

[sametguler]

Değerli büyüklerim;
Excelde E11 ile E35 arasında alt alta Küçükten Büyüğe doğru sıralı sayılar mevcut. Bu aralıktaki alt alta aynı olan hücreleri birleştirmek istiyorum.
Bana örnek kod verebilir misiniz?

Şimdiden teşekkür ederim.

 

[RBozkurt]

Deneyin

Sub MergeCells()
Dim rng As Range, c As Range
Set rng = Range("E11:E35")
For Each c In rng
    If c = c.Offset(1, 0) Then
        c.Offset(1, 0).Merge
    End If
Next c
End Sub

 

[sametguler]

Hocam butona bağladım ama hiçbir değişiklik olmadı.

 

[sametguler]

Konu Günceldir.

 

[Korhan Ayhan]

Deneyiniz.

Sub Merge_Cells()
    Dim Rng As Range, Last_Row As Integer
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    For Each Rng In Range("E11:E35")
        If Rng <> "" Then
            Last_Row = Evaluate("LOOKUP(2,1/(E11:E35=" & Rng.Value & "),ROW(E11:E35))")
            Rng.Resize(Last_Row - Rng.Row + 1).Merge
        End If
    Next

    Application.DisplayAlerts = True
    Application.ScreenUpdating = True

    MsgBox "Hücre birleştirme işlemi tamamlanmıştır.", vbInformation
End Sub

 

[sametguler]

Korhan hocam;
Belirtilen hücre aralığını tamamen birleştirdi.
Sadece aynı olan hücreleri birleştirecek.
Bakabilir misiniz?
Not: Verileri C# DataGridView tablosundan aktarılıyor.

 

[Korhan Ayhan]

Boş bir excel çalışma kitabında bahsettiğiniz hücre aralığına tekrarlı sıralı sayılar yazarak kodu denedim. Bende sorun çıkmadan birleştirdi.

Siz olmadı diyorsunuz. Bu durumda sizdeki verileri içeren örnek dosya paylaşmalısınız.

 

[sametguler]

https://www.dosya.tc/server41/z39qk3/ILAC.xlsm.html

Ayhan hocam link yukarıda.
Bu arada verilerim saat formatında olduğunu söylemeyi unuttum.

 

[sametguler]

Konu günceldir...