Este fórum está sendo desativado

[Leoandrim123]

Boa tarde, a Todos!!!

sou novo aqui no forum, e venho estudando muito excel, venho criando algumas automações e me desafiando,

estou precisando de uma ajuda de vocês.

tenho uma planilha com 2 abas "Relatório e Recebimento"
preciso fazer uma referencia entre as 2

na aba relatorio tenho todo material recebido linha por linha amarrado com o numero de sua NF

na aba recebimento tenho a referencia do recebimento e transportadora e em uma coluna lanço todas NF´s separado por barra.

Preciso na aba relatorio preciso trazer qual a referencia do carregamento por isso preciso utilizar o FIND, conseguir fazer uma Macro que preencha uma celula porém queria criar uma função


conto com a ajuda de todos.

abaixo segue a Macro que fiz , porem queria mesmo uma função
e tambem em anexo esta a planilha

Sub referencia()
'
' Macro1 Macro
'

'
valor = Sheets("Relatório").Range("e4")
Sheets("recebimento").Select
Cells.Find(What:=valor).Activate
lin = ActiveCell.Row
col = ActiveCell.Column

ref = Cells(lin, col - 3)

Sheets("Relatório").Range("d4") = ref



End Sub


muito obrigado

[Leoandrim123]

Gostaria de complementar , caso a NF nao seja encontrada
a celula receberia a msg NF não Encontrada.


mais uma vez obrigado a todos

[gfranco]

Boa tarde.
Veja se entendi direito seu objetivo.

[Leoandrim123]

Show de bola, poxa conheço o indice e corresp porém não sabia utilizar ele da maneira que você fez.

muito obrigado