i put together a quick macro using the following code, see the attached sheet
note the button to the right to run the macro
Sub UpdateIt()
Dim x, r As Integer
r = 2
With Worksheets("Advertising_1213_InProgress")
For x = 2 To .Range("A65536").End(xlUp).Row
If .Range("C" & x).Value = "Paid and Complete" Then
Range("A" & r).Value = .Range("C" & x).Value
Range("B" & r).Value = .Range("H" & x).Value
Range("C" & r).Value = .Range("F" & x).Value
Range("D" & r).Value = .Range("G" & x).Value
Range("E" & r).Value = .Range("I" & x).Value
Range("F" & r).Value = .Range("P" & x).Value
r = r + 1
End If
Next
End With
End Sub
Bookmarks