Este fórum está sendo desativado

[walber]

Boa noite

Estou tentando resolver este problema com a vba mas não estou conseguindo.
a vba não puxa os valores.
Vocês podem me ajudar a resolver este problema

[Reinaldo]

Primeiro a célula Menu!Q3 tem seu conteúdo maiúsculo, e no selec case o conteúdo não , entenda que "DEZEMBRO" e diferente de "Dezembro".
Segundo: Se o visual da célula dezembro!A4 for, por exemplo:01/12/2016, e essa formatada como data, seu valor interno é 42705; ao utilizar diretamente: Mid(ActiveCell, 4, 2); provavelmente não terá o retorno desejado, pois e valido para uma string, não numero. Experimente utilzar : month(ActiveCell, 4, 2)....

Obs.: Se seu arquivo está dividido por meses, não vejo objetivo em verificar se o mês da data do registro corresponde ao mês desejado, se "selecionou" dezembro então os registros são desse mes, basta confirmar o ano