However, I have some trouble with my expiration dates.Įvery batch of items I receive has the same expiration date (meaning that if I order 50 items of "Material XYZ 527" all 50 of these similar materials will have the same expiration date (for example 10-12-2020)). Whenever this happens I naturally have to update my stock, which works fine. Value + IIf(c.Column = 9, c.Value, -c.Value)Ĭells(c.Row, "J").NumberFormat = "dd-mm-yyyy"Ĭurrently, I receive my stock at random intervals ranging anywhere from 7-60 days. Set r = Intersect(Target, Columns("H:I")) Private Sub Worksheet_Change(ByVal Target As Range) It also takes account for if the value in column G was updated by adding/subtracting to it from column H and I, so it's not completely dependent on manual alterations to the numbers in column G.įinally, the macro is shown to the right, which is given by: So if I enter in 6 on I3, G3 will change value to 0 and the number 6 will immediately disappear from I3 allowing me to enter a new number to subtract from G3Ĭolumn J = This shows me the last time that the stock in column G was updated. So if I enter in 5 on H3, G3 will change value to 11 and the number 5 will immediately disappear from H3 allowing me to enter a new number to add to G3Ĭolumn I = Subtract a value to the stock. I have a conditional formatting filter here that highlights the stock in a red color if it is < or = the value in the corresponding F columnĬolumn H = Add a value to the stock.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |