2 For para procurar Atividades em base

Question

Caros

Podem ajudar

Tenho uma plan base onde possuem este codigos

Codigos

João1

João2

João3

João4

João5

João6

Preciso consultar em outra plan chamadas atividades , onde na coluna B cada linha pussuem codigos diferentes, preciso que seja consultada toda a coluna B e onde ele achar o 1° codigo selecione toda a linha copie e cole esta linha em uma nova planilha chamada colagem onde cada resultado seja colocado um abaixo do outro

Sub III()

Dim valor

Dim linha

linha = Sheets("base").Range("a65536").End(xlUp).Row

For i = 1 To linha

Cells(i, 1).Select
valor = Cells(i, 1).Value

Next i

End Sub

Grato ;
Buno