Thread: [Solved] VBA with goal seek takes too long
View Single Post
 
Old 07-21-2015, 02:23 PM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,343
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default
First off, why do you have two of:
Range("EY" & z).GoalSeek Goal:=Range("K" & z).Value, ChangingCell:=Range("EW" & z)

As for the increase in time taken, that's probably because you're not giving the OS & Excel any housekeeping time. Try inserting the following into your loop:
If i Mod 100 = 0 Then DoEvents
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote