#YOK ifadesini üstteki dolu hücreyle birleştirme

[selcuk_c]

Merhaba,

Ekte bulunan örnek dosyada anlatmak istediğim gibi, içinde #YOK olan hücreyi bir yukardaki dolu hücre ile birleştirmek istiyorum. Eğer bir üstündeki hücrede de #YOK ifadesi var ise onun bir üstündeki dolu hücreyle hepsini birleştirmek istiyorum. Umarım anlatabilmişimdir

Çok teşekkürler,

 

[hamitcan]

Sub YokOlanlariBirlestir()
    son = [a65536].End(3).Row
    Application.DisplayAlerts = False
    For j = 1 To 2
        For i = son To 5 Step -1
            If Cells(i, j).Text = "#YOK" Then
              Range(Cells(i - 1, j), Cells(i, j)).Merge
            End If
        Next
    Next
    Application.DisplayAlerts = True
End Sub

 

[selcuk_c]

Çok teşekkürler