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