USD yazmayan satırları silme

[gozdeyagci]

Öncelikle merhaba ekteki excel dosyamda M sütununda Para birimi olarak USD yazmakatadır. Excel makroda USD yazmayan satırları silmek için aşağıdaki makroyu yazdım; ama bu makronun tam işlemesi için 3 defa kendim çalıştırmam gerekiyor. Acaba neden böyle oluyor? Tek seferde silebilme imkanım var mı?

Sub makro()
Dim Son_Satir As Integer
Dim i As Integer
Son_Satir = ActiveSheet.UsedRange.Rows.Count
MsgBox Son_Satir
For i = 1 To Son_Satir
If Cells(i, "M").Value <> "USD" Then
Rows(i).Delete shift:=xlUp
End If
Next i

End Sub

 

[Ömer]

Merhaba,

Sıkıştırılmadan eklenen dosyaları açamadığımdan dolayı (benden kaynaklanan bir sorun.) dosyanızı inceleyemedim fakat, satır silme işlemlerinde döngüyü baştan değil sondan başlatmak gerekir.

For i satırını aşağıdakiyle değiltirerek deneyin.

For i = Son_Satir To 1 Step -1

Linkte #7 numaralı mesajda küçük bir açıklama yapmıştım.

http://www.excel.web.tr/f48/aktarylanlara-ait-satyrlary-silme-t83060.html

.

 

[Murat OSMA]

Alternatif olarak şu kodları bir deneyebilirsiniz;

Sub Emre()
    Dim i As Integer
    Application.ScreenUpdating = False
    For i = Range("A65536").End(3).Row To 1 Step -1
        If IsEmpty(Cells(i, 1)) Or Not IsNumeric(Cells(i, 1)) Then
            Rows(i).Delete
        End If
    Next i
    Application.ScreenUpdating = True
    i = Empty
End Sub

 

[gozdeyagci]

Teşekkür Ederim