Hi,
I am looking to improve this macro as it is really slow to run.
Context:
I want to copy 2 Columns (Room & Price Actual) into my Forecast columns IF the date is less than today.
I need to copy paste with values.
> I am looking for a code that paste using a range method as I believe it will to drastically improve the speed of this macro. > Any ideas on how to do this?
Current Code:
Sub copyif()
Dim Lr As Long, i As Long
Lr = Sheets("FCST").Cells(Rows.Count, 12).End(xlUp).Row
'Start in Row 12
For i = 12 To Lr
If Sheets("FCST").Cells(i, 12).Value < Date Then
'Copy Rooms
Sheets("FCST").Range("AT" & i).Value = Sheets("FCST").Range("AD" & i)
'Copy Price
Sheets("FCST").Range("AV" & i).Value = Sheets("FCST").Range("AF" & i)
End If
Next i
End Sub
Many thanks

I am looking to improve this macro as it is really slow to run.
Context:
I want to copy 2 Columns (Room & Price Actual) into my Forecast columns IF the date is less than today.
I need to copy paste with values.
> I am looking for a code that paste using a range method as I believe it will to drastically improve the speed of this macro. > Any ideas on how to do this?
Current Code:
Sub copyif()
Dim Lr As Long, i As Long
Lr = Sheets("FCST").Cells(Rows.Count, 12).End(xlUp).Row
'Start in Row 12
For i = 12 To Lr
If Sheets("FCST").Cells(i, 12).Value < Date Then
'Copy Rooms
Sheets("FCST").Range("AT" & i).Value = Sheets("FCST").Range("AD" & i)
'Copy Price
Sheets("FCST").Range("AV" & i).Value = Sheets("FCST").Range("AF" & i)
End If
Next i
End Sub
Many thanks
