Application.ScreenUpdating = 0
I have the following code to match the date and variable to copy and paste data from "Data Check" to "DCF Equity" for just one column. Below it is set up for column F. However, I would like to update the program so that it copies and pastes data for F14, G14, H14, I14, and K14. I am not sure how to do that?
Set ms = Sheets("DCF Equity")
MatchDate = Sheets("DCF Equity").Range("F14")
With Sheets("Data Check")
Set rFind = .Rows(1).Find(MatchDate, LookIn:=xlValues, LookAt:=xlWhole)
If Not rFind Is Nothing Then
For Each Cel In ms.Range("B16", ms.Range("B" & Rows.Count).End(xlUp))
Set rng = .Columns(2).Find(Cel, LookIn:=xlValues, LookAt:=xlWhole)
If Not rng Is Nothing Then
ms.Range("F" & Cel.Row) = .Cells(rng.Row, rFind.Column)
End If
Next
End If
End With
Set ms = Nothing
Set ws = Nothing
Set rFind = Nothing
Set rng = Nothing
Application.ScreenUpdating = True
Application.ScreenUpdating = 0
Bookmarks