Este fórum está sendo desativado

[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,

[osvaldomp]

Olá, @mdiego .

Experimente:

Código: Selecionar todos

Sub 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

[mdiego]

Boa noite, @osvaldomp ! Funcionou parcialmente, precisa de alguns ajustes, poderia me auxiliar? Grato desde já,

[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.

[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.

[osvaldomp]

Você testou o código na planilha original ?