[Resolvido] Ajuda com VBA - Application.WorksheetFunction.VLookup

Sub todos_fabricantes()

Dim c As Range

  For Each c In Range("E3:E" & Cells(Rows.Count, 4).End(xlUp).Row)

   c.Value = Application.VLookup(c.Offset(0, -3), Sheets("Config&quot.Range("B:C&quot, 2, False)

  Next c

End Sub

P@tropi disse:

Bom dia, @Playboy

Não retorna os dados porque você pediu para retornar dados da coluna 3.
A coluna B onde estão os dados procurados é a 1 e a coluna C de onde os dados são retornados é a 2
Basta substituir o 3 pelo 2, conforme em vermelho na linha do código abaixo:

ActiveCell = Application.WorksheetFunction.VLookup(Cells(ActiveCell.Row, 2), Sheets("Config").Range("B:C"), 2, False)

Só um comentário, esse teu código usa o Select, sendo que devemos evitar o uso, pois torna os códigos mais lentos e pesados.

Segue abaixo uma opção sem Select e sem WorksheetFuntion (que nesse caso não é necessário).

Sub todos_fabricantes()

Dim c As Range

  For Each c In Range("E3:E" & Cells(Rows.Count, 4).End(xlUp).Row)

   c.Value = Application.VLookup(c.Offset(0, -3), Sheets("Config&quot.Range("B:C&quot, 2, False)

  Next c

End Sub

[]s