aktif yazmayan satırları silme

[sehriyar]

Merhaba arkadaşlar .Hazırladığım Tabloda F sütunundaki hücrelerde aktif yazmıyorsa o hücrenin bulunduğu satırı silmek istiyorum.Aşağıdaki makroyu çalıştırdığımda bütün satırları siliyor nerede hata yaptığımı bilmiyorum.Yardımlarınızı bekliyorum.Herkese teşekkürler.

Sub aktifolmayanlarisilme()
Dim sayi1 As Integer, say As Integer
say = WorksheetFunction.CountA([f1:f300])
For sayi1 = 1 To say
If sayi1 > say Then Exit For
If Cells(sayi1, 1) <> "Aktif" Then
Cells(sayi1, 1).EntireRow.Delete
sayi1 = sayi1 - 1
say = say - 1
End If
Next sayi1
End Sub

 

[musculus]

For sayi1 = say To 1 step -1
olarak dene sildi&#287;in zaman aktif sat&#305;r say&#305;s&#305; de&#287;i&#351;ti&#287;i i&#231;in yukar&#305;dan a&#351;a&#287;&#305;ya indi&#287;in zaman hata veriyor a&#351;a&#287;&#305;dan yukar&#305; &#231;&#305;karsan problemi daha kolay &#231;&#246;zersin

 

[musculus]

bir de f sutununu saydırmışsın ama 1.sutunuda "Aktif" yazısını kontrol ediyorsun
If Cells(sayi1, 1) <> "Aktif" Then

ben örnek bir dosya ekledim
burda f sutunuda ki Aktif yazanlar dışındakileri siler
makroya buton atamadım direk bakarsın artık

 

[Seyit Tiken]

Bu &#351;ekilde deneyebilirsiniz.

Sub Düğme1_Tıklat()
For s = [a6500].End(3).Row To 1 Step -1
If Not Cells(s, 1) = "Aktif" Then Cells(s, 1).Delete
Next
End Sub

 

[sehriyar]

herkese te&#351;ekk&#252;rler elinize sa&#287;l&#305;k