If cella.Offset(0, 11).Value <> .Cells(x.Row, 11) Then cella.Offset(0, 14) = .Cells(x.Row, 10) - cella.Offset(0, 9) cella.Offset(0, 15) = .Cells(x.Row, 11) - cella.Offset(0, 10) cella.Offset(0, 16) = .Cells(x.Row, 12) - cella.Offset(0, 11) |
If cella.Offset(0, 11).Value <> .Cells(x.Row, 11) Then cella.Offset(0, 14) = CLng(.Cells(x.Row, 10) - cella.Offset(0, 9) ) cella.Offset(0, 15) = CLng(.Cells(x.Row, 11) - cella.Offset(0, 10)) cella.Offset(0, 16) = CLng(.Cells(x.Row, 12) - cella.Offset(0, 11)) |