Excel Makro

[duffınskrt]

Merhaba, A1 sütununda @gmail.com içermeyen satırları silmek için makro yazmama yardımcı olur musunuz? hiçbir bilgim yok makro hakkında

 

[Necdet]

Merhaba,

Verinin büyük/küçük harf olduğuna bakılmadı. Gerekirse bu kontrol de yapılır.

Sub sil()

Dim i As Long
Dim adt As Integer

Application.ScreenUpdating = False
For i = Cells(Rows.Count, "A").End(3).Row To 2 Step -1
    If Not Cells(i, "A") Like "*gmail.com" Then
        Rows(i).Delete
        adt = adt + 1
    End If
Next i
Application.ScreenUpdating = True
If adt = 0 Then
    MsgBox "Silinecek Veri Bulunmadı...."
Else
    MsgBox adt & " adet veri silindi......"
End If

End Sub