À l'aide de RECHERCHEV référence à un autre de la feuille en VBA excel 2007

Je sais que beaucoup de questions ont été posées et répondues autour de ce sujet, mais je ne pouvais pas trouver quelque chose qui a fonctionné pour moi comme je suis de référencement sur une autre feuille (Lookuptable).

Ci-dessous est à l'origine RECHERCHEV comme écrit dans excel, cela fonctionne très bien:

=VLOOKUP(A1,Lookuptable!A:B, 2, FALSE)

Ci-dessous est une mise à nu pseudo-code version de mon script, avec le VBA recherchev ligne de code qui fournit le problème. Je suis fondamentalement à la recherche pour le VBA version de ce qui fonctionne!

Sub Test()
    Dim rng As Range
    Dim result As Variant
    Dim i As Long
    Dim rng2 As Range
    Dim arg4 As Boolean
    Dim arg1 As Long, arg3 As Long

    With ActiveSheet
        Set rng = Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))
    End With

rng.Cells(i, 2) = Application.WorksheetFunction.VLookup(i, Sheets(Lookuptable).Range("A1:B1"), 2, False)

End Sub

Il est sans doute intéressant de noter que je l'éther obtenir un indice en dehors de la plage d'erreur ou un appel de procédure non valide ou d'un argument d'erreur.

  • vous êtes à l'aide de i dans la Recherchev mais i n'a pas été affecté.
  • lookuptable n'est pas affecté
  • Désolé, comme mentionné "dépouillé de retour pseudo-code", j'ai inclus un extrait de mon code qui devrait être suffisant pour répondre à ma question.
InformationsquelleAutor Chris | 2013-11-27
  1. 2

    Essayez ceci:

    Sub Test()
    Dim rng As Range
    Dim i As Long

    With ActiveSheet
        Set rng = .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)

        For i = 2 to rng.Rows.Count
            rng.Cells(i, 2) = Application.WorksheetFunction.VLookup(.Cells(i,1), Sheets("Lookuptable").Range("A:B"), 2, False)
        Next
    End With
End Sub
    • Maintenant, je reçois un 'non Valide ou unqualifyed de référence' erreur, ce qui souligne la .Les cellules(i, 1) la partie de la RECHERCHEV
    • Est la partie entre le ActiveSheet - End Avec " bloc? Si pas, essayez de ActiveSheet.Les cellules(i,1).
    • Des Thats obtenu, l'homme en Haut, merci!
    InformationsquelleAutor Michael