Guru do Excel e Power BI

Enviado: **04 Jun 2016 às 16:27**

Olá!
Estou criando uma planilha para verificação de prazo de validade de itens em estoque.
Preciso filtrar os itens "Vencidos" da coluna G, da planilha Banco de Dados. Após filtrados, copiar os respectivos códigos da coluna A, para a planilha "Mensal", a partir da célula A18.
Já fiz com fórmula, mas os itens ficam dispersos na planilha.
Gravei uma macro, aplicando filtro avançado, mas o intervalo de códigos copiados fica restrito (A3:A33), o que é um problema quando os itens aumentarem.
OBS. Não consegui anexar o arquivo, mesmo compactado, ficou com 8MB.
Desde já agradeço pela ajuda.

Enviado: **04 Jun 2016 às 16:37**

Boa tarde,

coloque um anexo de seu arquivo, nele deixe apenas o que é necessário para resolver o seu problema.

Att

Enviado: **04 Jun 2016 às 16:48**

Exclui algumas abas , acho que agora consegui.

Enviado: **04 Jun 2016 às 17:59**

Boa noite,

fiz usando o código abaixo, não sou expert em VBA.

Crie um módulo e coloque o código, depois coloque um botão chamando a macro.

Código: Selecionar todos

Sub kledison()

Sheets("Mensal").Range("A18:B100").ClearContents

lin = 2
linha = 18

Do Until Sheets("Banco de Dados").Cells(lin, 1) = ""
    If Sheets("Banco de Dados").Cells(lin, 7) = "Vencido" Then
        Sheets("Mensal").Cells(linha, 2) = Sheets("Banco de Dados").Cells(lin, 1)
        Sheets("Mensal").Cells(linha, 3) = Sheets("Banco de Dados").Cells(lin, 2)
        linha = linha + 1
        End If
        lin = lin + 1
        Loop

End Sub

Verifica se ajuda.

Att

Enviado: **04 Jun 2016 às 18:28**

Kledison, muito obrigado!
Funcionou perfeitamente.
Fiz uma pequena adaptação, pois precisava importar somente os códigos.
Obrigado.

Guru do Excel e Power BI

Gerar relatório Baseado em Criterios

Gerar relatório Baseado em Criterios

Gerar relatório Baseado em Criterios

Re: Gerar relatório Baseado em Criterios

Re: Gerar relatório Baseado em Criterios

Re: Gerar relatório Baseado em Criterios