Guru do Excel e Power BI

Enviado: **02 Jul 2021 às 09:23**

Galera, bom dia

Sou novato no forum e nunca havia tido experiência com procv em vba, queria uma ajuda de vocês..

Seguinte, tenho essas planilhas em anexo, a primeira se chama nf de saida, e ela contem os números de notas fiscais que tenho que preencher, na segunda planila, matr780, tenho os dados que preciso, queria fazer um botão na primeira planilha, que faria o procv automático nas células de nf que tenho em branco, e pegasse as informações de "nome", "emissao" e "tipo", de acordo com o número da nf, que na planilha matr780 é a coluna "num. docto.".

Isso é possível ?

Enviado: **02 Jul 2021 às 11:10**

Olá, @michelnunesm .

Experimente o código abaixo.
Considerei que o arquivo matr780 também estará aberto ao rodar o código.

Código: Selecionar todos

Sub BuscaDados()
 Dim nfo As Range, nfd As Range
  For Each nfo In Range("A2:A" & Cells(Rows.Count, 1).End(3).Row)
   Set nfd = Workbooks("matr780.xlsx").Sheets("2-Itens das Notas Fiscais de ").[G:G].Find(nfo.Value)
   If Not nfd Is Nothing Then
    nfo.Offset(, 1).Value = nfd.Offset(, 2).Value
    nfo.Offset(, 2).Value = nfd.Offset(, 3).Value
    nfo.Offset(, 3).Value = nfd.Offset(, -4).Value
   Else: nfo.Offset(, 1).Value = "NF não encontrada"
   End If
  Next nfo
End Sub

Enviado: **02 Jul 2021 às 13:41**

@osvaldomp Osvaldo, muitíssimo obrigado, obrigado pelo seu tempo e pelo seu conhecimento.
Ficou show !

Guru do Excel e Power BI

Dúvida VBA

Dúvida VBA

Re: Dúvida VBA

Re: Dúvida VBA