Hey guys, Need some desperate help with this one the code works fine but it's just sooooo **** slow... "probably my fault" Any advise? Needs to be a hell of a lot quicker for what I'm trying to achieve. Sub ImportBlueDownpipe() LastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row For i = 1 To LastRow Sheets("Downpipe").Select If Range("H" & i).Value = "MB" And Range("W" & i).Value = "Downpipe" Then Rows(i).Select Selection.Copy Workbooks.Open Filename:="B:\Best Shed Scheduler.xlsm" '''''Found on local machine drive'''''nothing networked'''' Dim p As Integer, q As Integer
This question generated 20 answers. To proceed to the answers, click here.
This thread is current as of March 30, 2017.
For more resources for Microsoft Excel:
This article includes the following tags:
- Microsoft Excel