3 Case Scenario VBA Code

[jalrs]

Hello guys,

I don't know how to approach this nor if it is the right request to make. I believe with the attached screenshots will make it easier to understand.
So what I would like to is:

1st : Check each material on column C
2nd: 1st case - If the sum of column M is equal to 0 for each material, then delete those lines (water on the example)
2nd case - If the sum of column M is # 0 for each material, then leave it like that (coke on the example)
3rd case - If the sum of column M is # 0 and column L is greater than 0, add a new line under the one where column L is greater than 0 where column K = K-L from previous row, colum L is now 0, and column M equals to column K value. Plus Column E new line is +1 regarding the previous line value. Rest of the values should be equal to the ones on the previous line, except for the date that should be left empty. (tea example. date not correct on the output.png sorry)

Hope this is possible and hope someone can help me.

Please look at the input vs output attachment.

Any help is greatly appreciated.

Thanks

 

[jalrs]

I am 2nd guessing what I gave you previously in terms of being able to not handle the length of the string.
Please add the 2nd line below, the first just being for context.

                                        re = Replace(arr(k, 5), Val(arr(k, 5)), Val(arr(k, 5)) + 1)
                                        re = Right(re, Len(arr(k, 5)))

Hey Alex,

As promised, I tested and can confirm macro is still working accordingly.

Thank you for your help on this!

 

[Alex Blakenburg]

No problem. What I had before would be 1 leading zero out when the line no increased from 9 to 10 and from 99 to 100 etc.

 

[jalrs]

No problem. What I had before would be 1 leading zero out when the line no increased from 9 to 10 and from 99 to 100 etc.

Thanks for explaining Alex.

I double checked and all leading zeroes are correct.

Thank you