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

Popular posts from this blog

android - Get AccessToken using signpost OAuth without opening a browser (Two legged Oauth) -

org.mockito.exceptions.misusing.InvalidUseOfMatchersException: mockito -

google shop client API returns 400 bad request error while adding an item -