VBA Excel Recherchev - Impossible d'Obtenir la Propriété Recherchev

J'ai le script suivant et je suis un RECHERCHEV erreur:

Dim DataRange, LookupRange As Range
Dim Data, Test As Variant

Set DataRange = Sheets("sheet").Range("A1:K12000")
Set LookupRange = sheets("sheet2").Range("A1:C50")
Data = DataRange.Value

For i = LBound(Data, 1) To UBound(Data,1)
  ReDim Preserve Test(1 To 3, 1 To i)
  test(1, i) = Application.WorksheetFunction.VLookup(Data(i, 4), LookupRange, 3, 0)
  'Other stuff works fine
Next i

Malheureusement, j'obtiens le message d'erreur indiquant:

"Unable to get the VLookup property of the WorksheetFunction class"

C'est étrange car toutes les variables et les plages ont l'air bien en mode watch. La recherche est aussi alphabétique... des idées?

Est la valeur dans la table de recherche? Essayez de laisser tomber le Worksheetfunction et la vérification de la reurn valeur avec IsError(): cette approche n'est pas de provoquer une erreur d'exécution si la valeur n'est pas trouvée.
Comment test(i) travail après avoir défini l'ensemble de 2-D?
Désolé, j'ai juste tapé mal quand j'ai simplifié le code.

OriginalL'auteur Jeffrey Kramer | 2013-08-27

  1. 5

    Ce qui peut signifier un certain nombre de choses. Cela peut simplement signifier votre Data(i, 4) valeur n'est pas trouvée dans LookupRange.

    Run-time error '1004':

Unable to get the VLookup property of the WorksheetFunction class

    est équivalent à l'obtention de #N/A De =vlookup("A",A1:B3,2,false)

    Définir un point d'arrêt sur la ligne

    test(i) = Application.WorksheetFunction.VLookup(Data(i, 4), LookupRange, 3, 0)

    et de définir une veille sur Data(i, 4) ainsi qu'une veille sur i. Voir si la valeur de Data(i, 4) existe dans votre plage de recherche. Voir si i est supérieur à 1, si il a exécuté quelques itérations de la boucle correctement.

    Comme une note de côté votre code ne courir de toute façon depuis Test est un variant vide pas un tableau. Vous avez besoin d'une ligne comme

    ReDim Test(LBound(Data, 1) To UBound(Data, 1))

    avant la boucle for pour que cela fonctionne.

    Lire sur la gestion d'erreur ici. Vous en aurez besoin pour gérer RECHERCHEV correctement à partir de VBA.

    Merci, cela m'a aidé à comprendre ce qui se passait. En fait il y a une valeur manquante dans la sortie que je reçois. J'ai été en mesure de corriger ça, merci.

    OriginalL'auteur AndASM