macro code zonder #NB

Goedemorgen,

Ik ben relatief onervaren met macro's, toch heb een macro gemaakt:d.
Ik wil graag nog één ding aan de macro toevoegen;
als #NB komt dat de cel leeg moet blijven. (als bij verticaal zoeken het gevraagde niet voorkomt)
weet iemand hoe en waar ik dit in de code moet verwerken?
Alvast bedankt.
GR NESJA

dit is de code :

Range("F1:AI1").Select
Selection.Copy
Range("F39").Select
ActiveSheet.Paste
Range("F40").Select
Application.CutCopyMode = False
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=VLOOKUP(R[-38]C,Blad1!C1:C2,2,FALSE)"
Range("F40").Select
Selection.AutoFill Destination:=Range("F40:AI40"), Type:=xlFillDefault
Range("F40:AI40").Select
Selection.AutoFill Destination:=Range("F40:AI69"), Type:=xlFillDefault
Range("F40:AI69").Select
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 21
Selection.AutoFill Destination:=Range("F40:AI71"), Type:=xlFillDefault
Range("F40:AI71").Select
Range("C72").Select
End Sub

Breidt daarvoor je VLOOKUP functie uit met een IFERROR er omheen waarbij je een lege waarde terug geeft als de VLOOKUP een fout (#NB!) retourneert.

NB:
Daarnaast kan je code een stuk korter en eenvoudiger.
Maar dat is nog een leertraject begrijp ik

edmoor bedankt voor de tip:d:d
het werkt!!
ik heb dit gebruikt:
=ALS(ISFOUT(VERT.ZOEKEN(F2;Blad1!$A:$B;2;ONWAAR));"";VERT.ZOEKEN(F2;Blad1!$A:$B;2;ONWAAR))
en ik zit inderdaad nog in een leertraject

Nog wat tips:

• Heb je de beschikking over XL2013 of later, kijk eens naar ALS.NB
• of beter nog; je weet wat de fout veroorzaakt, ondervang dat ipv wegpoetsen in de uiteindelijke formule bijvoorbeeld =als(aantal.als(bereik;F2)=0;"";jouw vert.zoeken formule)
• Gebruik geen hele kolommen in jouw zoekbereik