Makro ile belirli değerin altındaki satırarı gizlemek

[revolation]

Arkadaşlar merhaba,

Başlıkta da belirttiğim gibi belirli bir rakamın altında olan hücrelere ait satır otomatik gizlenmeli. Ben sitede bir makrobuldum, hatta aşağıya ekledim fakat o makro sıfıra eşit olan hücrelerin satırlarını gizliyor. Bunu örnek olarak 1000'den küçük olanları gizle nasıl yapabilirim.

Teşekkürler,
İyi forumlar.

Sub Gizle()
For Each t In Range("A1:A999")
If t.Value = "0" Then 'boş hücreleri gizler
t.EntireRow.Hidden = True
End If
Next t
End Sub

 

[askm]

If t.Value = "0" Then satırını If t.Value < 1000 Then olarak değiştirin

 

[şehiriçi]

makroyu denedim çok yavaş çalışıyor , hızlı olmasının bir yolu varmı

 

[askm]

Aşağıdaki şekilde deneyin.

Sub Gizle()
Application.ScreenUpdating=False
For Each t In Range("A1:A999")
 If t.Value < 1000 Then  'boş hücreleri gizler
t.EntireRow.Hidden = True
End If
Next t
Application.ScreenUpdating=True
End Sub

 

[revolation]

Aşağıdaki şekilde deneyin.

Sub Gizle()
Application.ScreenUpdating=False
For Each t In Range("A1:A999")
 If t.Value < 1000 Then  'boş hücreleri gizler
t.EntireRow.Hidden = True
End If
Next t
Application.ScreenUpdating=True
End Sub

İlginiz ve yardımınız için çok çok teşekkür ederim.

İyi forumlar.