gizle yazan gizlensin

Sub gizle()
For i = 6 To 1000
Range("b" & i).Select
If ActiveCell.Value = "Gizle" Then
Selection.EntireRow.Hidden = True
Else
Selection.EntireRow.Hidden = False
End If
Next
End Sub


bu kod işe yarıyor ama cok yavaş daha hızlı yapılabilirmi ayrıca göter
eklene degeride eklene bilirmi

örnek uygulama ekleyiniz bu şeklide ne sorduğunuzu anlamak zor.

Sn:ikikan
Lütfen Form Kurallarını okuyalım sorunuz Excel sorusu ama siz Vb6 bölümünde sormuşsunuz.Ayrıca kodların çalışması 2-3 saniye gibi bir zaman alır.Gizle yazısını 6. satırdan başlayıp 1000. satıra kadar arayıp gizler ama verileriniz bu kadar çok değilse 1000 yazanı eksiltebilirsiniz.Aşağıdaki örnekte 100. satıra kadar yapılmış ve tek buton üzerinde gizle göster olarak hazırlanmıştır.

Konuyu açan arkadaşımız yaklaşık 1 aydır siteye uğramadığı ve olumlu yada olumsuz görüş bildirmediğinden konu çevaplanmışlara taşınmıştır.