Hakediş tablosunda 0 olan satırlar nasıl gizlenir

Tesislerde zaman zaman yapılan tadilatlar sonucunda hazırlanan hak edişler daha önce belirlenmiş birim fiyatlar üzerinden yapılması durumunda excel'de çarçaf listenin "0" olan kalemlerine ait satırları silmek gerekir. Aşağıda bu tip durumlar için hazırlanmış excel kodlarını makro olarak kullanarak "0" olan satırları otomatik olarak gizleyebilirsiniz. Eğer birim fiyatlarınızda yüzlerce kaleminiz varsa bu makro işinizi oldukça kolaylaştıracaktır. Kullanmak için kodları kopyalayın excel'in makro penceresine yapıştırın ve makroyu çalıştırın.

Sub HideItem()

ActiveSheet.Unprotect

    If Range("5:760").EntireRow.Hidden = True Then

    Range("5:760").EntireRow.Hidden = False

    Else

    For Each Cell In Range("h5:h760")

        If Cell.Value = "0" Then Cell.EntireRow.Hidden = True

        Next Cell

    End If

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub