With this code result go to sheet2
see this is present or change in code
Sub test()
Dim myval, x, i, arr
arr = Sheets("sheet1").Range("A1").CurrentRegion
ReDim sn(1 To UBound(arr), 1 To UBound(arr, 2) + 1)
i = 1
For x = 1 To UBound(arr)
If InStr(1, arr(x, 2), "BOX") = 0 Then
myval = arr(x, 3)
sn(i, 1) = arr(x, 1): sn(i, 2) = arr(x, 2): sn(i, 3) = arr(x, 3): sn(i, 4) = myval
i = i + 1
Else
sn(i, 1) = arr(x, 1): sn(i, 2) = arr(x, 2): sn(i, 3) = arr(x, 3): sn(i, 4) = myval + arr(x, 3)
i = i + 1
End If
Next
Sheets("sheet2").Range("A1").Resize(UBound(sn), UBound(sn, 2)) = sn
Sheets("sheet2").Columns.AutoFit
End Sub
Kind regards
Leo
Bookmarks