excel - "Object required" error 424 -
i have 2 sheets list , comments. list auto updated sheet imports , formats data
i want keep track of how use each object in sheet list double clicking on id cell (range("list!$b$6:$b$22")) data changing id's move around. comments list of possible id's , comments not imported values place store count data , last used date.
private sub worksheet_beforedoubleclick(byval target range, cancel boolean) if inrange(target, range("list!$b$6:$b$22")) set c = worksheets("comments").range("$a$2:$a$500").find(target.value) if not c nothing set c.offset(0, 1) = c.offset(0, 1) + 1 set c.offset(0, 2) = date end if end if cancel = true end sub
no need set
private sub worksheet_beforedoubleclick(byval target range, cancel boolean) if not intersect(target, range("$b$6:$b$22")) nothing set c = worksheets("comments").range("$a$2:$a$500").find(target.value) if not c nothing c.offset(0, 1) = c.offset(0, 1) + 1 c.offset(0, 2) = date end if end if cancel = true end sub
Comments
Post a Comment