(07/11/2020, 16:12)iznik yazdı:

(07/11/2020, 14:51)feraz yazdı:

Sub test()

    Dim i As Long

    With ThisWorkbook.Sheets("Sayfa 1")

        Application.ScreenUpdating = False

        .Range("A2:A" & Rows.Count).EntireRow.Hidden = False

        For i = .Cells(Rows.Count, "i").End(3).Row + 1 To 2 Step -1

            If .Cells(i, "i").Value <= 15 Then .Cells(i, "i").EntireRow.Hidden = True

        Next

         Application.ScreenUpdating = True

    End With

Cevabınız için teşekkür ederim. Ancak kodu kodlatıp makro olarak eklediğimde çalışmadı.

Rica ederiz çalışmayan ve eklediğiniz kod ile dosyayı yüklermisiniz.
Kodu çalıştırmanız gerekecek bir düğmeye ekletip.