I am trying to change a value in a cell in column C if the values in column A & B match certain criteria.
I have come up with the following code:
Sub Edit_Property_Value()
Dim vCriteria
Dim vCriteria2
vCriteria = Sheets("Search").Range("F5").Value2
vCriteria2 = Sheets("Search").Range("F11").Value2
With Sheets("ExP")
vData = .Range("A2:C" & .Cells(.Rows.Count, "A").End(xlUp).Row).Value
End With
For i = 1 To UBound(vData, 1)
If vData(i, 1) = vCriteria And vData(i, 2) = vCriteria2 Then
vData(i, 3).Value = "Test"
End If
Next i
End Sub
But it is producing an error- the debugger highlights this line:
vData(i, 3).Value = "Test"
Where am I going wrong here?
Thanks in advance for any help offered
Bookmarks