Pesquisar nas cÉlulas do excel

[RIQUE KANAGUCHIK]

Preciso desenvolver uma aplicação em excel que faça o seguinte:

Na planilha haverá por volta de 200 linhas E 10 colunas preenchidas com dados. Eu tenho que fazer UM LOOP PARA PERCORRER AS LINHAS E COLUNAS DA PLANILHA ENCADEADO COM UM IF THEN ELSE PARA FAZER VERIFICAÇÃO DAS CÉLULAS:

para buscar alguns dados e jogar-los em uma outra coluna que estará vazia, mas não estou conseguindo desenvolver.

Exemplo:

if "coluna A e linha 2 for igual "XPTO" copia este dado para a coluna vazia."

Tentei fazer vários Loops com VBA, mas consegui êxito.

o MEU MAIOR PROBLEMA É QUE ESTE PEQUENO PLICATIVO É PARA O TRABALHO.

Obrigado.

[Márcio Rodrigues]

Tente isto:

Sub Search()

MySnnif = InputBox("Valor Procurado", "Busca")

If MySnnif = Empty Then Exit Sub

Dim CounterLine As Integer

CounterLine = 2

For i = 1 To 20 'Colunas

For j = 1 To 200 'Linhas

If Cells(j, i).Value = MySnnif Then 'Aqui entra o valor procurado

Cells(CounterLine, 21).Value = Cells(j, i).Value 'Cola valor na coluna 21 (H)

CounterLine = CounterLine + 1

End If

Next

Next

MsgBox "Found :" & CounterLine - 1

End Sub

[RIQUE KANAGUCHIK]

Muito Obrigado pela dica.

Vou colocar para funcionar.