bjbalmforth
Board Regular
- Joined
- Jul 21, 2005
- Messages
- 117
I am trying to modify this macro to check every cell in column A, there will be some blank cells and there will be numbers in some cells.
[Sub test1()
Dim r As Range, e
For Each e In Array(Array("Good", "Bad"), Array("OK", "Finished"), Array("No", "Deleted"))
Set r = Columns(1).Find(e(0), , , xlPart, , , False)
If Not r Is Nothing Then
r(1, 2).Value = e(1)
End If
Next
End Sub]
Currently it only finds the first instance and that is it.
Thankyou for any assistance
[Sub test1()
Dim r As Range, e
For Each e In Array(Array("Good", "Bad"), Array("OK", "Finished"), Array("No", "Deleted"))
Set r = Columns(1).Find(e(0), , , xlPart, , , False)
If Not r Is Nothing Then
r(1, 2).Value = e(1)
End If
Next
End Sub]
Currently it only finds the first instance and that is it.
Thankyou for any assistance
Last edited:
