[VBA] Απόκρυψη σειρών με τιμή 0,00

[misirlis]

Φίλε Θανάση ευχαριστώ για το χρόνο που διέθεσες για μέενα.Λειτουργεί τέλεια,ευχαριστώ πολύ.

[nisgia]

Καλησπέρα σε όλους!

Αρχική Δημοσίευση από οριατης

Φίλε Θανάση ευχαριστώ για το χρόνο που διέθεσες για μέενα.Λειτουργεί τέλεια,ευχαριστώ πολύ.

Αν δεν κόψεις 49,9 κιλά από τη σαρδέλα, θα τους σκοτώσω όλους!!!

Μια πιο γρήγορη αλλά και πιο αξιόπιστη μέθοδο είναι και η παρακάτω:

Sub HideZeroes()
    Dim lngFound As Long

    On Error Resume Next
    With Range("d1:d1000")
        lngFound = Application.Match(0, .Cells, 0)
        If lngFound Then
            .EntireRow.Hidden = True
            .ColumnDifferences(.Cells(lngFound)).EntireRow.Hidden = False
            Cells(1).Activate
            MsgBox .Count - .SpecialCells(xlCellTypeVisible).Count & _
                    " rows are hidden now."
        End If
    End With
End Sub

Με άλλα λόγια... Μηδένα προ του τέλους μακάριζε.

Φιλικά,
Γιάννης