A Kolonundaki hücrelerde Metin var ise o satırı sil rakam var ise silme

[cocoa35]

Merhaba bir konuda yardıma ihtiyacım var, Excel sayfasında A Kolonundaki hücrelerde Metin var ise o satırı sil rakam var ise silme şeklinde bir makroya ihtiyacım var kütüphaneden aradım ama hep belirli bir metin üzerine formüller ben hücrede yazı varsa silsin rakam varsa silmesin istiyorum teşekkürler

 

[Muzaffer Ali]

Merhaba.

Sub Test()
    Dim Bak As Long
    For Bak = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
        If Not IsNumeric(Cells(Bak, "A")) Then
            Rows(Bak).Delete
        End If
    Next
End Sub

 

[cocoa35]

Merhaba.

Sub Test()
    Dim Bak As Long
    For Bak = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
        If Not IsNumeric(Cells(Bak, "A")) Then
            Rows(Bak).Delete
        End If
    Next
End Sub

Çok teşekkürler gayet iyi çalışıyor