- Katılım
- 4 Ekim 2004
- Mesajlar
- 155
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
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