07/11/2020, 17:58
@feraz üstad eline sağlık. Bu da alternatif olsun.
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.
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.