Satır Silme

[aycnc]

Arkadaşlar gönderdiğim tablodaki cari sheetinde g sütununda 0 gördüğü zaman o satırı silmesini istiyorum bi türlü başaramadım yardımcı olabilirseniz çok sevinirim.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir butona bağlayıp dener misiniz?

Public Sub Satir_Sil()
Set s1 = Sheets("CARİ")
s1.Select
Application.ScreenUpdating = False
For i = [J65536].End(3).Row To 1 Step -1
    If Cells(i, "G") = 0 Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
MsgBox "Satırlar Silinmiştir..."
End Sub

 

[aycnc]

Teşekkür

Kod işimi gördü verdiğim zahmet için çok teşekkür ederim.

 

[omerceri]

Biraz uğraşmıştım. Boşa gitmesin.
Sub a()
Range("H1").Select
say1 = Range("A1").CurrentRegion.Rows.Count

Selection.AutoFilter
Selection.AutoFilter Field:=7, Criteria1:="0.00"

Rows("2:" & say1).Select
Selection.Delete Shift:=xlUp
Selection.AutoFilter
say2 = Range("A1").CurrentRegion.Rows.Count
Range("H2").FormulaR1C1 = "=RC[-1]"
Range("H3:H" & say2).FormulaR1C1 = "=R[-1]C+RC[-1]"
End Sub

 

[aycnc]

Sağolun

Ömer Bey zahmet etmişsiniz sağolun