Return blank cell if result is 0

[Villalobos]

Hello,

I would like to ask that how is it possible return blank cell if the result of worksheet function is 0?

With Sheets("Evaluation")
Lastrow = .Cells(.Rows.count, "B").End(xlUp).Row
  .Range("AN9:AP" & Lastrow).ClearContents
  .Range("AN9:AN" & Lastrow) = WorksheetFunction.IfError(Application.VLookup(rng1, rng2.CurrentRegion, 2, False), "")
  .Range("AO9:AO" & Lastrow) = WorksheetFunction.IfError(Application.VLookup(rng1, rng2.CurrentRegion, 3, False), "")
  .Range("AP9:AP" & Lastrow) = WorksheetFunction.IfError(Application.VLookup(rng1, rng2.CurrentRegion, 4, False), "")
End With

Thank you for your help!

 

[NARAYANK991]

Hi ,

I am not sure but see if this works :

.Range("AN9:AN" & Lastrow).Value = Application.Evaluate("=IFERROR(VLOOKUP(" & rng1.Address & "," & rng2.CurrentRegion.Address & ",1,FALSE),"""")")

Narayan

 

[Villalobos]

Hi Narayan,

I tested the above mentioned code but doesn't work for me as I expected. Could you please see the attached file?

 

[Villalobos]

Somebody has other idea?

 

[Debaser]

Maybe add:

.Range("AN9:AP" & Lastrow).Replace 0, "", xlwhole

 

[Villalobos]

Thank you Debaser!