galera, eu preciso de uma programa que faca uma busca por valores....exemplo
eu tenho na minha coluna B diversos numeros, mas preciso encontrar apenas o valor digitado na minha txtNota e deslocar 4 colunas para direita e inserir o valor do txtCusto....como posso fazer ?
eu tentei assim

Range ("b2")

While ActiveCell <> ""
If ActiveCell = txtNota Then
ActiveCell.Offset(0, 4) = txtCusto
GoTo fim
End If
ActiveCell.Offset(1, 0).Select
Wend
MsgBox ''Valor nao encontrado''
fim:
limpar

End Sub

mais nao deu certo =[
poderiam me ajudar por favor ??