Birleştirilmiş hücreyi ayırma

[ihsan0618]

Oluşturduğum listedeki birleştirilmiş hücreleri ayırmak istiyorum.Yardımlarınızı bekliyorum.

 

[ihsan0618]

Sitede Korhan beyin paylaştığı makroları denedim ancak istediğim gibi olmadı.


Option Explicit

Sub BİRLEŞTİRİLMİŞ_HÜCRELERİ_DÜZENLE()
Dim Hücre As Range, Say As Long

For Each Hücre In Selection
If Hücre.MergeCells = True Then
Say = Say + 1
Hücre.UnMerge
Hücre.Offset(0, 1) = Hücre.Value
Hücre.ClearContents
End If
Next

If Say = 0 Then
MsgBox "Birleştirilmiş hücre bulunamadı !", vbExclamation
Else
MsgBox "İşleminiz tamamlanmıştır."
End If
End Sub

 

[Korhan Ayhan]

Merhaba,

Başka başlıkta yazdığımız kodların sizin dosyanıza uymaması gayet doğaldır. Siz aşağıdaki kodu deneyin.

Sub BİRLEŞTİRİLMİŞ_HÜCRELERİ_DÜZENLE()
    Dim Hücre As Range, Say As Long
    
    For Each Hücre In Selection
        If Hücre.MergeCells = True Then
            Say = Say + 1
            Hücre.UnMerge
        End If
    Next
    
    Range("A2:A" & Cells(Rows.Count, 1).End(3).Row + 1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    
    If Say = 0 Then
        MsgBox "Birleştirilmiş hücre bulunamadı !", vbExclamation
    Else
        MsgBox "İşleminiz tamamlanmıştır."
    End If
End Sub

Not: Kodları mesajınıza eklerken menüdeki "#" sembolüne basıp çıkan ifadelerin arasına kodu yazarsanız daha güzel ve okunaklı görünecektir.

 

[ihsan0618]

Korhan bey yardımınız için teşekkür ederim.Ancak Makroyu çalıştırdığımda hücrelerini içindeki bilgileri siliyor.Bilgileri silmeden hücreleri nasıl birleştirebilirim acaba.

 

[Korhan Ayhan]

Merhaba,

Ben denediğimde hücrelerin içindeki bilgileri silmiyor.

Alan seçip makroyu çalıştırmanız gerekiyor.

Ayrıca ilk mesajınızda hücreleri ayırmak istiyorum demiştiniz. Şimdi ise nasıl birleştirebilirim diyorsunuz. Bir çelişki yok mu?

 

[ihsan0618]

Yardımlarınız için teşekkürler..