Yardım sütun değerine göre satır sildirme

incsoft · 3 Kas 2020

Arkadaşlar M sütununda değeri 0 olan tüm satırları macro ile otomatik nasıl sildirebilirim?M1:M5000 olabilir mesela...

Teşekkürler..

muygun · 3 Kas 2020

Merhaba;
Sayfanın kod bölümüne;

C++:

Sub satır_sil()
Application.ScreenUpdating = False
On Error Resume Next
sat = 0
For i = 5000 To 1 Step -1
If Cells(i, "m") = "0" Then
Rows(i).Delete
sat = sat + 1
End If
Next i
Application.ScreenUpdating = True
If sat >= 1 Then MsgBox (sat & " Adet veri silindi."), vbInformation
End Sub

Kodlarını ekleyip deneyin.
İyi çalışmalar.

Yardım sütun değerine göre satır sildirme

incsoft

muygun