(07/11/2020, 17:58)atoykan yazdı: @feraz üstad eline sağlık. Bu da alternatif olsun.

Sub test()



  beginrow = 2    'başlangıç satır numarasıdır

  endrow = 2000  'bitiş satır numarasıdır

  checkcol = 9    'değeri kontrol edilecek kolon numarasıdır

  

    For rownum = beginrow To endrow

    

      If Cells(rownum, checkcol).Value >= 15 Then

      Cells(rownum, checkcol).EntireRow.Hidden = True

      End If

      

    Next rownum

      

End Sub

Bu kod belirli sayıda satır için çalıştırmanıza yarayan alternatiftir, belki konuyu inceleyen arkadaşların işine yarar.
Bu kodda dikkat edilmesi gereken husus beginrow ve endrow sayısıdır. Çalışmanızdaki beginrow başlık satırınız var ise onun altından  başlamalı ki bu örnekte 2. satır ve endrow çalışmanızdaki satır sayısından az olur ise kod sadece o alan için çalışır.