Este fórum está sendo desativado

[EvandroRodrigues]

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.

[Kledison]

Boa tarde,

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

Att

[EvandroRodrigues]

Exclui algumas abas , acho que agora consegui.

[Kledison]

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

[EvandroRodrigues]

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