"indien_niet_gevonden" bij x.zoeken gebruiken om op een ander werkblad verder te zoeken.

[CH62]

Ik zoek een alternatief voor wat schijnbaar niet mogelijk is met x.zoeken.
Deze opdracht werkt niet met x.zoeken:
=X.ZOEKEN(G2;Blad2!G:G;Blad2!a:a;x.zoeken(G2;Blad3!G:G;Blad3!A:A;0)
De bedoeling is dat als de waarde niet gevonden wordt in blad2, zoek dan in blad3.
Kan dit omgezet worden in een vba code?

 

[edmoor]

Er mist een haakje sluiten.
Probeer deze eens:

=X.ZOEKEN(G2;Blad2!G:G;Blad2!A:A;X.ZOEKEN(G2;Blad3!G:G;Blad3!A:A);0)

 

[CH62]

Helaas niet; indien niet gevonden geeft #N/B, en dat zou de trigger/waarde moeten zijn om in blad 3 te gaan zoeken

 

[djutoch]

Doe er eens een voorbeeldbestandje bij met wat dummy gegevens.

 

[edmoor]

Helaas niet; indien niet gevonden geeft #N/B, en dat zou de trigger/waarde moeten zijn om in blad 3 te gaan zoeken

Bij mij werkt het prima.
Dus inderdaad, een voorbeeld documentje.

 

[CH62]

Ik heb het haakje geplaatst en inderdaad, het werkt. Bedankt voor het meedenken en de reparatie. Misschien niet op de juiste plek hier, maar mijn vraag hoe dit om te zetten naar vba code is nog niet beantwoord. Iemand een suggestie?

 

[HSV]

Test het maar eens.

Sub hsv()
Dim sv, x, j As Long, i As Long
sv = Blad4.Cells(1).CurrentRegion
Blad4.Range("b2").resize(ubound(sv),2).ClearContents
 For i = 2 To UBound(sv)
  For j = 2 To 3
    x = Application.Match(sv(i, 1), Sheets(j).Columns(1), 0)
     If IsNumeric(x) Then
       sv(i, 2) = Sheets(j).Cells(x, 2)
       sv(i, 3) = Sheets(j).Cells(x, 3)
       Exit For
     End If
   Next j
Next i
Blad4.Cells(1).Resize(UBound(sv), 3) = sv
End Sub

 

[CH62]

de vba code werkt perfect. Bedankt. hulpvraag kan gesloten worden