Hi,
Why won't this work? It doesn't seem to do anything.
What I am trying to do is look down column C starting at row 14 and if the entry ZZ.Coupon is there than offset 0,-1 to B and copy the date the entry was made and paste that date into AA12. If it is found then stop macro.
Sub FindCoupon()
Dim cell As Range
For Each cell In Range("c14", Range("c14").End(xlDown))
If cell = "ZZ. Coupon" Then
cell.Offset(0, -1).Copy
Range("aa12").PasteSpecial (xlPasteValues)
End If
Exit Sub
Next
End Sub
Why won't this work? It doesn't seem to do anything.
What I am trying to do is look down column C starting at row 14 and if the entry ZZ.Coupon is there than offset 0,-1 to B and copy the date the entry was made and paste that date into AA12. If it is found then stop macro.
Sub FindCoupon()
Dim cell As Range
For Each cell In Range("c14", Range("c14").End(xlDown))
If cell = "ZZ. Coupon" Then
cell.Offset(0, -1).Copy
Range("aa12").PasteSpecial (xlPasteValues)
End If
Exit Sub
Next
End Sub