Camargo, troque sua rotina pela a abaixo e faça os testes se é isto. Sub CopiaColaBases() Dim wShBase As Worksheet, wShDestino As Worksheet D...

Não entendi o trecho dessa forma eu nao teria o preço de custo e o levantamento de material

Marcelo, assim tambem não da certo, eu já havia tentado esta e muitas outras, até encontrei uma que funcionou mas parcialmente, pois tinha de informar...

Wagner, muito obrigado pela ajuda. Sim, o que você propôs atendeu ao que eu necessitava. Abraços.

Com isso consegui fazer a macro do arquivo anexo!! So adicionar um Shape, colocar conectores e atribuir a macro! Ao clicar em um Shape ele faz um &q...

Muito obrigado!!! ambos funcionaram muito bem!!!

Bom dia! Simplesmente planilhas compartilhadas não é bom negocio, e se vc tem Tabelas Dinâmicas nela pior ainda, não funcionam, o que vc pode fazer s...

Bom dia! Sim é possível calcular os campos vazios, anexo a sua planilha, fica mais fácil de ajudar. Doni

Bom dia! Para uma melhor visualização dos resultados eu mudaria o gráfico para barras, pois assim fica muito mais fácil ver quem atingiu a meta e que...

Bom dia!! Porque não listar tudo em uma guia qualquer... Sub AleVBA_18270() Dim objFSO As Object Dim objFolder As Object Dim objFile As O...

Boa tarde!! para evitar certas mensagens use Application.DisplayAlerts = False

Boa tarde!! use esse comando. ActiveSheet.Shapes(Application.Caller).Name Sub Retângulo1_Clique() MsgBox ActiveSheet.Shapes(Application.Cal...