hücre değeri <= 0 olan değerleri sildiremedim...

[bistrobellman]

For a = 2 To s1.Cells(65536, 1).End(xlUp).Row
s1.Cells(a, 256) = s1.Cells(a, 2) & s1.Cells(a, 3) & s1.Cells(a, 8)
Next
For b = 2 To s1.Cells(65536, 256).End(xlUp).Row
If WorksheetFunction.CountIf(s1.Range("iv2:iv" & b), s1.Cells(b, 256).Value) = 1 Then
c = c + 1
For d = 2 To 15
s2.Cells(c + 1, d - 1) = s1.Cells(b, d).Value
Next
s2.Cells(c + 1, 9) = WorksheetFunction.SumIf(s1.[iv2:iv65536], s1.Cells(b, 256), s1.[j2:j65536])
s2.Cells(c + 1, 10) = WorksheetFunction.SumIf(s1.[iv2:iv65536], s1.Cells(b, 256), s1.[k2:k65536])
s2.Cells(c + 1, 11) = WorksheetFunction.SumIf(s1.[iv2:iv65536], s1.Cells(b, 256), s1.[l2:l65536])
If s2.Cells(c + 1, 11) <= 0 Then Rows(s2.Cells(c + 1, 11).Row).EntireRow.Delete 'bu satırda 0 olan hücrelerin sadece içi boşalıyor, satır silmiyor neden?s2.Cells(c + 1, 12) = WorksheetFunction.SumIf(s1.[iv2:iv65536], s1.Cells(b, 256), s1.[m2:m65536])

End If


teşekkürler...
Next

 

[Levent Menteşoğlu]

EntireRow.Delete yerine sadece .Delete yazarak deneyin.

 

[bistrobellman]

sadece delete yapmıştım yine sorun hallolmadı levent bey...neden silmiyor satırı??

 

[Ongun]

If s2.Cells(c + 1, 11) <= 0 Then Rows(s2.Cells(c + 1, 11).Row).EntireRow.Delete

Sayın bistrobellman, EntireRow.Delete yerine Rows(i & ":" & i).Delete Shift:=xlUp komutunu deneseniz diyorum. Ama "i"`yi kendi kodunuza göre değiştirin.
Kolay gelsin.