Birleştirilmiş Hücrede Satır Gizleme

[Ridan]

Aşağıdaki kod ile birleştirilmiş hücrede satır gizleme oluyor, ama birleştirilmiş dolu hücreleri tek satıra düşürerek gizliyor.

Sub Gizle3()
For Each t In Range("b6:b101")
If t.Value = 0 Then 'boş hücreleri gizler
t.EntireRow.Hidden = True
End If
Next t
End Sub

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Gizle3()
    
    Dim i As Integer, a As Integer
    
    Application.ScreenUpdating = False
    For i = 6 To 101
        a = Cells(i, "B").MergeArea.Cells.Count
        If Cells(i, "B") = 0 Then
            Rows(i).Resize(a, 1).EntireRow.Hidden = True
        End If
        If a > 1 Then i = i + a - 1
    Next i
        
End Sub

 

[Ridan]

Ömer bey, maalesef satırlar gizlenmedi..

satir_gizleme.xlsx - 44 KB

 

[Ömer]

#2 numaralı mesajı düzenledim, yeni kodlara göre tekrar dener misiniz.

 

[Ridan]

Tamamdır.. Teşekkürler..