makro ile satır silme

[drlacter]

arkadaşlar merhaba

ekli dosyada yapmak istediğim işlem,makroda komut vererek K sütununda vade gün sayısı 30 olan sütunları silmek.

Yardımcı olursanız çok sevinirim...

 

[Orion1]

Dosyanız ektedir.

Sub sil()
Dim i As Long
'vadesi 30 olan satırları siler.
Application.ScreenUpdating = False
For i = Cells(65536, "A").End(xlUp).Row To 2 Step -1
    If Cells(i, "G").Value = 30 Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
MsgBox "Silme İşlemi tamalandı.", vbOKOnly + vbInformation, "SİLME"
End Sub

 

[drlacter]

çok teşekkürler

 

[Orion1]

çok teşekkürler

Rica ederim.