![]() ![]() "Fiction is based on reality unless you’re a fairy-tale artist, you have to get your knowledge." July 18, 2021.The Reformation did initiate." August 10, 2021 "Great leaps forward in history are often, in fact, giant leaps back."I am born into an environment - I know not whence I came nor whither I go nor who I am.If you think about that." August 30, 2021 "It takes 20 years to build a reputation and five minutes to ruin it.What I have found in the wild wild web ….If we check out our change history it reflects nicely what has been changed to what new value when: We change price for product G to $ 4.100.We copy the price for product B to C and D.Suppose we have the following initial list of products: Line 14 needs to be modified for a different worksheet name here I grab the value from column 1 of my changed range as a label ( here: product ) of the item changed.Īnd here is how it works.Target is the range of changed cells as an input parameter to this sub routine,. #Bill starr 5x5 excel spreadsheet updateupdate Change History with value and time stamp of modification 14: AuditRecord.Cells(r, 1) = Worksheets( "Products").Cells(Row, 1) 15: AuditRecord.Cells(r, 2) = Value 16: AuditRecord.Cells(r, 3).NumberFormat = "dd mm yyyy hh:mm:ss" 17: AuditRecord.Cells(r, 3).Value = Now 18: r = r + 1 19: Next 10: For Each c In Target 11: Value = c.Value 12: Row = c.Row 13: '. 6: Do 7: r = r + 1 8: Loop Until IsEmpty(AuditRecord.Cells(r, 1)) 9: ' For each cell modified. 3: Set AuditRecord = Worksheets( "ChangeHistory").Range( "A1:B65000") 4: r = 0 5: ' Now find the end of the Change History to start appending to. 1: Dim AuditRecord As Range 2: ' This is our change history. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |