Haader Ads

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

1 Yorumlar

Teşekkürler.

  1. Yukarıda ki kodları copy paste yaptığınızda, satıları yukarıda ki gibi düzeltmeniz gerekebilir. Aksi halde makro çalışmayacaktır.

    YanıtlaSil

Yorum Gönder

Teşekkürler.

Daha yeni Daha eski