Header Ads

  • Son Yazılar

    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

    Post Top Ad

    Post Bottom Ad