Makro yardımı ile veri silme

[akmes]

Üstadım Kolay Gelsin; Ekteki örnektede anlaşılacağı gibi G sütün üzerindeki 5.000 tl altındaki verileri makro yardımı ile silmek istiyoruz.Bu konuda yardımınızı rica ediyoruz.

 

[Orion1]

Dosyanız ektedir.

Sub sil_59()
Dim sat As Long, i As Long
Sheets("Sayfa1").Select
sat = Cells(65536, "G").End(xlUp).Row
Application.ScreenUpdating = False
For i = sat To 3 Step -1
    If Cells(i, "G").Value < 5000 Then Rows(i).Delete
Next
Application.ScreenUpdating = True
MsgBox "Silme İşlemi tamamlandı" & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[akmes]

Üstadım çok teşekkür ederim.Kolay gelsin iyi çalışmalar.

 

[Orion1]

Üstadım çok teşekkür ederim.Kolay gelsin iyi çalışmalar.

Rica ederim.
İyi çalışmalar.