Página 1 de 1
Macro - Buscar valores da base de dados e colar na aba relatório
Enviado: 27 Ago 2021 às 20:16
por mdiego
Prezados(as), boa noite!
Gostaria de uma auxilio para montar um macro que busque as informações na base de dados e cole na aba relatório.
Segue exemplo.
Grato,
Re: Macro - Buscar valores da base de dados e colar na aba relatório
Enviado: 27 Ago 2021 às 20:43
por osvaldomp
Olá,
@mdiego .
Experimente:
Código: Selecionar todosSub BuscaDados()
Dim co As Range
With Sheets("Relatório")
For Each co In .Range("B7:B" & .Cells(Rows.Count, 2).End(3).Row).SpecialCells(2)
On Error Resume Next
Sheets("Base de Dados").ShowAllData
On Error GoTo 0
Sheets("Base de Dados").[B3:D3].AutoFilter 1, co.Value
Sheets("Base de Dados").Range("C4:D" & Sheets("Base de Dados").Cells(Rows.Count, 3).End(3).Row).Copy .Cells(co.Row, 6)
Sheets("Base de Dados").ShowAllData
Next co
End With
End Sub
Re: Macro - Buscar valores da base de dados e colar na aba relatório
Enviado: 27 Ago 2021 às 20:58
por mdiego
Boa noite, @osvaldomp ! Funcionou parcialmente, precisa de alguns ajustes, poderia me auxiliar? Grato desde já,
Re: Macro - Buscar valores da base de dados e colar na aba relatório
Enviado: 27 Ago 2021 às 21:32
por osvaldomp
Olá,
@mdiego .
Eu não captei a sua lógica. Você postou a planilha
Base de Dados com uma tabela
sem linhas vazias, eu elaborei o código e aí você foi testar o código em outra planilha
com linhas vazias na tabela.
Deixar linhas vazias na tabela não é recomendável.
Elas são obrigatórias no seu caso? Podem ser excluídas? Se sim, podemos acrescentar um comando ao código que passei para excluí-las. Se não, será preciso elaborar outro código.
Re: Macro - Buscar valores da base de dados e colar na aba relatório
Enviado: 27 Ago 2021 às 21:55
por mdiego
Olá, @osvaldomp !
Na verdade na tabela original não tem linha vazia, o que acontece é que nem sempre os dados estão ordenados em ordem decrescente, as vezes tem um código que está na primeira linha e outro na linha 4.000. Eu teria que trazer esse código respeitando essa ordem (não posso classificar).
Obrigado.
Re: Macro - Buscar valores da base de dados e colar na aba relatório
Enviado: 27 Ago 2021 às 22:56
por osvaldomp
Você testou o código na planilha original ?