Boa noite Mahashia Seja bem-vindo ao fórum! Baixe a planilha e veja se é isto que vc deseja. Para testar selecione um número na célula A2 21_12_1...

Gamboaisrael, Primeiro obrigado pela resposta e desculpa a demora para responder. Estou meio ocupado esses dias mas no decorrer des...

Bom dia!! Se eu entendi bem, ao usar a pesquisa do forum, você pode resolver com ...

Boa tarde!! Use a pesquisa do fórum viewtopic.php?t=2711&p=11962 Att

Boa tarde!! Talvez sirva de inspiração Sub AleVBA_13914() Range("A" & ActiveSheet.Rows.Count).End(xlUp).Select ...

Não entendi, A que somas se refere?? Se essa célula for "letras" o que fazer?? a rotina apenas copia a célula J (ultima com dados) para a cé...

Welcome Daniel I hope you understand Brazilian Portuguese

Teste

Creio que está "fixado" no valor de B4 ($B$4) Experimente assim ÉPAR(MÊS($B4)) /ÉIMPAR(MÊS($B4))

o "retorno" de um valor em uma textbox é, por definição, uma string(texto); e o sistema não consegue efetuar operações matemáticas com texto...

a maneira que sugeri, creio eu, é oriunda do 2003, e compatível com as versões posteriores. Se continua gerando o erro, provavelmente é outra coisa, n...

Bom dia Elvio Para facilitar, em vez de postar a imagem, você deveria ter anexado um exemplo da planilha. []s

Experimente: de um duplo clique no evento desejado, veja se funciona, porem deve garantir que o arquivo esteja no local apontado Private Sub Resumo_Db...

Talvez algo +/- assim: Sub Fecha() Dim Start, Delay Sheets("Capa").Shapes.Range(Array("Picture 35")).Select Selection.ShapeRange....

Assim?