Istenmeyen veri olan satırları silmek

[haso_excel]

Merhaba arkadaşlar,

Kullandığım bir dosyada satır sayısı belli olmayan bir verim var. A kolonunda istemediğim veriler var ve onları buldurup o hücrelerin satırlarını sildirip sonrada C kolonuna göre sıralatmak istiyorum. Dosyam ekre

 

[Metin Karaağaç]

Dosyanız eklenmemiş.

 

[haso_excel]

Pardon dosyam ekte

 

[N.Ziya Hiçdurmaz]

yanıt

Sub satisil()
Dim sat As Integer
    For sat = Cells(65536, "a").End(xlUp).Row To 2 Step -1
        If Cells(sat, "a") <> 1000 Or Cells(sat, "a") = "" Then
            Cells(sat, "a").EntireRow.Delete
        End If
        If Cells(sat, "c") = "" Then Cells(sat, "c") = "."
        Range("a2:h" & sat).Sort Range("c2"), xlDescending
        If Cells(sat, "c") = "." Then Cells(sat, "c") = " "
    Next
End Sub

 

[haso_excel]

Teşekkür ederim elinize aklınıza sağlık