Trying to speed up list compare in EXCEL VBA -
i have code compares 2 lists in same worksheet , deletes entire row 1 of 2 lists, running (as data grows) , trying speed process.
i not succeeding in doing great extent , i'm looking assistance,
thanks!
the code:
sub clean_up_lists() 'run comparisons... clean lists' 'turn of screen updating speed macro' application.screenupdating = false dim ilistcount long dim x range dim ictr long 'get count of records search through(list deleted)' ilistcount = sheets("allocations").cells(rows.count, "b").end(xlup).row each x in sheets("allocations").range("n200:n400" & sheets("allocations").cells(rows.count, "b").end(xlup).row) 'loop through records in second list' ictr = ilistcount 1 step -1 if x.value = sheets("allocations").cells(ictr, 2).value sheets("allocations").cells(ictr, 2).entirerow.clearcontents 'if match exists --> clear contents allocations list' end if next ictr next application.screenupdating = true end sub
try one:
sub clean_up_lists() application.screenupdating = false dim long dim rng range, c range dim rngtoclear range dim arr sheets("allocations") set rng = .range("n200:n400") arr = .range("b1:b" & .cells(.rows.count, "b").end(xlup).row).value = 1 ubound(arr, 1) if not iserror(application.match(arr(i, 1), rng, 0)) if rngtoclear nothing set rngtoclear = .range("b" & i) else set rngtoclear = union(rngtoclear, .range("b" & i)) end if end if next end if not rngtoclear nothing rngtoclear.entirerow.clearcontents application.screenupdating = true end sub
Comments
Post a Comment