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

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

Sizinde elinize sağlık abey.Ben bu tarz işlemler için önce tüm satırları görünür yapıyorum.Siz yapmamışsınız galiba.

Default olarak görünür olduğu ve örnekte başka makro ve kod olmadığı için eklemedim. Ancak belirttiğiniz iyi olmuş başta tüm satırların görünürlüğü eklenebilir.

Teşekkür ederim.

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