Help With Macro

[meppwc]

The macro at the bottom of this message performs a lookup based on the value in column N. It correctly populates columns P and Q with an ID and person's name.
If data does not exist in column N, then the macro is returning #N/A
Is there anyway to modify this macro so that if data is not present in column N, then P and Q are also blank opposed to the #N/A ?



Sub populatePOCsNameID()
'
'
'
Sheets("Summary").Select
Range("P4").Select
ActiveCell.FormulaR1C1 = _
"=LOOKUP(RC[-1],'Lookup Tables'!R1C1:R27C1,'Lookup Tables'!R1C2:R27C2)"
Range("Q4").Select
ActiveCell.FormulaR1C1 = _
"=LOOKUP(RC[-2],'Lookup Tables'!R1C1:R27C1,'Lookup Tables'!R1C3:R27C3)"
Range("P4:Q4").Select
Selection.AutoFill Destination:=Range("P4:Q30"), Type:=xlFillDefault
Range("P4:Q30").Select
Range("R3").Select
End Sub

 

[oldbrewer]

=if lookup(...................)="","",lookup(..........)

 

[meppwc]

oldbrewer.........I understand the logic.............but in a macro, I don't know where and how to place this exception............needing syntax

 

[oldbrewer]

in front of your existing =lookup lines

 

[meppwc]

got it to work, thanks a bunch

 

[oldbrewer]

Well done !

 

[Michael M]

Don't have Excel at the moment, but try..

Sub populatePOCsNameID()
Sheets("Summary").Range("P4:P30").Formula = _
"=IF(ISERROR(LOOKUP(P3,'Lookup Tables'!A1:A27,'Lookup Tables'!B1:B27)),"""",LOOKUP(P3,'Lookup Tables'!A1:A27,'Lookup Tables'!B1:B27))"
Range("Q4:Q30").Formula = "=IF(ISERROR(LOOKUP(O4,'Lookup Tables'!A1:A27,'Lookup Tables'!C1:C27)),"""",LOOKUP(O4,'Lookup Tables'!A1:A27,'Lookup Tables'!C1:C27))"
End Sub