Este fórum está sendo desativado

[osmarls]

Boa noite amigos, estou com uma dificuldade ,faço uma consulta no access e preciso alimentar algumas celuas no excel, sempre as mesmas colunas , só muda o numero da linha, tem alguma maneira de eu selecionar tipo A3 e copiar nessa linha, na próxima pesquisa posso selecionar a celula " A7" e os dados serem copiados nessa linha?
essa selecão para copiar os dados teria que ser de certa forma dinamica, não fixa como no codigo abaixo

Sub procura()
Dim DB As Database
Dim RS As Recordset
Set DB = OpenDatabase(("C:\Osmar\mdb\Cadastro.mdb"), False)
Set RS = DB.OpenRecordset("SELECT * FROM [dados] WHERE nome LIKE '" & Plan2.Range("J1").Value & "'")

Do Until RS.EOF

Plan2.Range("A3") = RS("nome")
Plan2.Range("B3") = RS("cidade")
Plan2.Range("C3") = RS("estado")
Plan2.Range("D4") = RS("profissao")

RS.MoveNext

End Sub

desde ja agradeço muito
Abraços

[Jimmy]

Olá Osmar,

Tente assim:
Inclua a linha
Lin = ActiveCell.Row
antes do DO UNTIL, e altere as linhas abaixo de:
Plan2.Range("A3") = RS("nome")
Plan2.Range("B3") = RS("cidade")
Plan2.Range("C3") = RS("estado")
Plan2.Range("D3") = RS("profissao")
para:
Plan2.Range("A" & Lin) = RS("nome")
Plan2.Range("B" & Lin) = RS("cidade")
Plan2.Range("C" & Lin) = RS("estado")
Plan2.Range("D" & Lin) = RS("profissao")

Se esta mensagem colabora para a solução do problema, peço que dê um Like, clicando no botão com o "positivo", acima e a direita.

Jimmy San Juan

[osmarls]

Bom dia amigo, ficou perfeito, muito obrigado mesmo.

Abraços