Minha dúvida esta em consultar e listar informações de duas sheets diferentes. No caso estou utilizando o código abaixo para realizar uma listagem de certos dados. A rotina busca os dados na Sheets("dados1") e lista eles na Sheets("listagem"), porém eu gostaria que também buscasse dados na Sheets("dados2") obedecendo a informação listada na linha "Sheets("listagem").Cells(Linha, 1) = Sheets("dados1").Cells(lin, 1)".

Ou seja, tenho duas fontes com dados que se completam. Vamos supor na 'Dados1' tenho as informações: cód, carro, cor. Na "Dados2" tenho as informações: cód, nome, endereço, cidade. A informação comum é cód, e a listagem é para juntar as duas informações cód, carro, cor, nome endereço e cidade.

Espero que alguém possa me ajudar.

Sheets("listagem").Range("A2:k5000").ClearContents

lin = 2
Linha = 2

Do Until Sheets("dados1").Cells(lin, 2) = ""
'If Sheets("dados1").Cells(lin, 2) Like "*" & Me.cbsequencia & "*" Then _

If Sheets("dados1").Cells(lin, 20) = "" Then _

Sheets("listagem").Cells(Linha, 1) = Sheets("dados1").Cells(lin, 1)
Sheets("listagem").Cells(Linha, 2) = Sheets("dados1").Cells(lin, 2)

Linha = Linha + 1

End If
lin = lin + 1
Loop