sıfır olan satırları silmek

[limanC34]

Selam Arkadaşlar
Tabloda I kolonunda mevcutu sıfır olanlar silinip A kolonunda sıra nosu otomatik olarak düzenlenebilir mi?
Teşekkürler.

 

[Orion1]

Dosyanız ekte.

Sub sil()
Dim i As Long
Sheets("ILAC").Select
Application.ScreenUpdating = False
For i = Cells(65536, "B").End(xlUp).Row To 4 Step -1
    If Cells(i, "I").Value <> "" And Cells(i, "I").Value = 0 Then
        Range("A" & i & ":I" & i).Delete (xlUp)
    End If
Next i
For i = 4 To Cells(65536, "B").End(xlUp).Row
    Cells(i, "A").Value = i - 3
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı..!!", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[limanC34]

Sayın Evren Gizlen
Çözümünüz için çok teşekkür ederim.
Saygılarımla.

 

[Orion1]

Sayın Evren Gizlen
Çözümünüz için çok teşekkür ederim.
Saygılarımla.

Rica ederim.
iyi çalışmalar.