Este fórum está sendo desativado

[michelnunesm]

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 ?

[osvaldomp]

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

[michelnunesm]

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