Satır Gizleme

1 2

I sütunundaki değer 15 ve 15 den büyük olduğunda o satırı nasıl gizleyebilirim? Yardımlarınız için teşekkür ederim.

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

End Sub

(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ı.

(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.

Dosyayı yükledim.

(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

End Sub

Ben küçük olarak görmüşüm <= 15 buradki işareti > olarak değiştiriniz.

1 2