Satır Birleştirme

Feylosof

Altın Üye
Katılım
24 Temmuz 2019
Mesajlar
427
Excel Vers. ve Dili
EXCEL 2010 TÜRKÇE
Altın Üyelik Bitiş Tarihi
19-12-2025
İyi hafta sonları diliyorum

Arkadaşlar isteğimi kısaca özetlemeye çalışayım.
Verilerin bulunduğu ve aralıklarla boş olan satırlarla sınırlı olmak şartıyla üstteki dolu satırdan başlayarak alttaki dolu satıra kadar hücre birleştirme yapacak bir kod konusunda yardımcı olur musunuz?
Örnek dosya ve örnek uygulama ektedir.
 

Ekli dosyalar

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,784
Excel Vers. ve Dili
Microsoft 365 Tr-64
C++:
Sub Birleştir()
    ilk = 2
    For i = 3 To Range("B2").End(xlDown).Row
        If Range("A" & i) <> "" Then
            Range("A" & ilk, "A" & i - 1).Merge
            Range("C" & ilk, "C" & i - 1).Merge
            Range("E" & ilk, "E" & i - 1).Merge
            ilk = i
        End If
    Next i
    If ilk < i - 1 Then
        Range("A" & ilk, "A" & i - 1).Merge
        Range("C" & ilk, "C" & i - 1).Merge
        Range("E" & ilk, "E" & i - 1).Merge
    End If
End Sub
 

Feylosof

Altın Üye
Katılım
24 Temmuz 2019
Mesajlar
427
Excel Vers. ve Dili
EXCEL 2010 TÜRKÇE
Altın Üyelik Bitiş Tarihi
19-12-2025
@ÖmerFaruk hocam süpersiniz. çok teşekkür ederim.
 
Üst