Este fórum está sendo desativado

[rafhajs]

Saudações!

Preciso de orientações sobre uma macro feita com o gravador com a finalidade de:

1) Pesquisar um certo nome na planilha.
2) Localizando o nome pular para a linha inferior ao nome localizado e copiar a célula.
3) Colar os dados copiados em uma célula específica.

O código ficou assim:

Range("A17").Select
Cells.Find(What:="PEDRO", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Offset(1, 0).Select
Selection.Copy
Range("N2").Select
ActiveSheet.Paste

Ocorre que preciso realizar 2 alterações na macro:

1) Limitar as células em que a pesquisa é feita.
Por exemplo: Pesquisar somente da célula A1 até a célula C9.

2) Inserir algum comando para em caso do nome pesquisado não fosse encontrado retornar com o número 0 e colasse na célula informado.
Tentando explicar: Caso a pesquisa do nome "PEDRO" não encontrasse resultado fosse incluído na célula N2 o número 0, e caso fosse localizado o nome "PEDRO" fosse copiado a célula abaixo do nome pedro e colado o valor da mesma na célula N2.

Alguém pode me ajudar?

[osvaldomp]

Experimente:

Código: Selecionar todos

Sub ProcuraPedro()
 Dim p As Range
  Set p = [A1:C9].Find("PEDRO")
   If Not p Is Nothing Then [N2] = p.Offset(1).Value Else: [N2] = 0
End Sub