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
gizle yazan gizlensin
Bu Konudaki Yorumlar |
gizle yazan gizlensin - Yazar: ikikan - 05/08/2010, 17:17
Cvp: gizle yazan gizlensin - Yazar: mustafa_atr - 05/08/2010, 21:32
Cvp: gizle yazan gizlensin - Yazar: ogulcan92 - 12/08/2010, 13:23
Cvp: gizle yazan gizlensin - Yazar: ogulcan92 - 06/09/2010, 16:11
|
Konuyu Okuyanlar: 1 Ziyaretçi