Excel 2007 VBA: Event refires after the same event procedure ends -
private sub workbook_sheetchange(byval sh object, byval source range) application.enableevents = false ' code application.enableevents = true end sub
the "some code" used trap when user has pasted value in cell. if paste came after copy operation procedures works correctly. if paste value came after cut operation after execution reaches end sub procedures starts again , cannot determine change occuring cause refire.
the source , destination cells formatted data validation.
try , can see first event fired range cut, , second paste destination.
private sub workbook_sheetchange(byval sh object, byval source range) application.enableevents = false debug.print sh.name, source.address() application.enableevents = true end sub
Comments
Post a Comment