if iserror then value = zero problem
This worked for me.
Tim
Sub Tester()
Dim r, j
For j = 1 To 3
r = Application.VLookup(Sheet1.Range("D" & j).Value, _
Sheet1.Range("A2:B6"), 2, False)
Sheet1.Range("E" & j).Value = IIf(IsError(r), 0, r)
Next j
End Sub
"Kim" wrote in message
...
Hi all,
I have the following vba code in Excel 2007
For j = 5 To Range("A5", Range("A5").End(xlDown)).Rows.Count + 4
If IsError(Application.VLookup(Range("A" & j), Range("RASUMMARY"), 2,
False)) Then Range("F" & j).Value = 0 Else
Range("F" & j).Value = Application.VLookup(Range("A" & j),
Range("RASUMMARY"), 2, False)
Next j
The problem is, if the vlookup doesn't exist (iserror), then the value
does not equal zero but shows up as #N/A. I've been beating my head on
this one. Any help is appreciated.
Thanks
Kim
|