2

Tenho este bocado de codigo:

  Range("F8").Select

  For Each m In Range(Range("C8"), Range("C" & rows.Count).End(xlUp))

     If ActiveCell.Offset(0, 0) <> " " Then
        ActiveCell.Offset(0, 7) = Application.vlookup(ActiveCell, Sheets("Chargeback code-Pursuit").Range("A2:B20000"), 2, False)
        ActiveCell.Offset(1, 0).Select
     End If

  Next

E ao fazer isto aparece os dados pretendidos, mas qd a celula c8 está vazia o campo que esta a preencher com o vlookup está a aparecer como #N/A.

Como faço para as cells que contem o #N/A se tornarem blank cells?

Em baixo está o exemplo do #N/A

Obrigado pela ajuda.

inserir a descrição da imagem aqui

1 Resposta 1

3

você pode adicionar a fórmula IFERROR:

ActiveCell.Offset(0, 7) = Application.iferror(Application.vlookup(ActiveCell, Sheets("Chargeback code-Pursuit").Range("A2:B20000"), 2, False),"")

o

ActiveCell.Offset(0, 7) = Application.vlookup(ActiveCell, Sheets("Chargeback code-Pursuit").Range("A2:B20000"), 2, False)
If IsError(ActiveCell.Offset(0, 7)) Then ActiveCell.Offset(0, 7) = ""
11
  • Obrigado pela ajuda, mas não esta a funcionar @virtualdvid dá erro de sub or function not defined :S 15/02/2018 às 15:27
  • Desculpe meu erro, o problema é porque o vlookup não é um recurso VBA. Eu corrigi a minha resposta, diga-me se funciona :) 15/02/2018 às 15:36
  • Para tal tenho de colocar a função numa sheet certo? Porque atualmente da erro de Unable to get the Vlookup property of the WorksheetFunction class 15/02/2018 às 15:47
  • Tente o Application.WorksheetFunction.VLookup(arg1,arg2,arg2,[arg4]) 15/02/2018 às 15:52
  • 1
    Consegui resolver: [ For Each M In Range(Range("C8"), Range("C" & rows.Count).End(xlUp)) ActiveCell.Offset(0, 7) = Application.vlookup(ActiveCell, Sheets("Chargeback code-Pursuit").Range("A2:B20000"), 2, False) ActiveCell.Offset(1, 0).Select If IsError(ActiveCell.Offset(0, 7)) Then ActiveCell.Offset(0, 7) = "" Next Cells.Replace "#N/A", "", xlWhole] 15/02/2018 às 16:37

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .