satır silme

[1903emre34@gmail.com]

Merhaba arkadaşlar J sutunün ikinci satırında 0 olduğu takdirde o satırı silecek şekilde nasıl kod oluşturabiliriz forumlara baktım olumlu sonuç alamadım

 

[YUSUF44]

Sub sil()
If [J2] <> "" And [J2] = 0 Then Rows(2).Delete
End Sub

 

[1903emre34@gmail.com]

Yusuf bey ilginiz için teşekkürler kod çalışıyor yaklaşık 3000 satır vardı kod nasıl değişiklik yaparız

 

[YUSUF44]

Siz sadece "J sütununun 2. satırı 0 ise" demiştiniz. Bu da J2 hücresi oluyor, ben de ona göre yaptım. Eğer J sütunu 0 olan her satırın silinmesini istiyorsanız aşağıdaki kodu kullanmalısınız:

Sub çoksil()
son = Cells(Rows.Count, "J").End(3).Row
For i = son To 1 Step -1
    If Cells(i, "J") <> "" And Cells(i, "J") = 0 Then Rows(i).Delete
Next
End Sub

 

[1903emre34@gmail.com]

teşekkürler tamam oldu hayırlı günler