magnosalmeida

@Patropi Obrigado pela dica. Compra de Resina teste.rar

@Edson Luiz Branco Continuo no aguardo, amigo. Um abraço!

@Edson Luiz Branco O site não permite anexar, subi no link: https://we.tl/t-jNa3Oskn9J Só lembrando: a macro precisa atualizar todas as planilhas (as guias BDReal e BD Limite geram a BDConsolidado, que por sua vez alimenta da tabela dinâmica e gráficos das guias PorDTEmissao e PorDTPgto). Não sei se tem a ver com algum erro da macro mas, às vezes, só atualiza quando eu fecho e abro o arquivo novamente. Obrigado pela disposição em me ajudar, Edson!

@Edson Luiz Branco Obrigado por responder. Retirei a linha "end select" mas a macro ainda não funciona Eu preciso de uma macro que, ao executar um comando, ela atualize todas as planilhas do arquivo. Consegue me ajudar nisso?

Ao executar a macro abaixo, dá um erro com nome de "erro de compilação. era esperado end sub." A macro: Private Sub Worksheet_Activate() ActiveWorkbook.RefreshAll End Select End Sub O objetivo da macro é atualizar todas as planilhas do arquivo ao executar.

@Edson Luiz Branco - A planilha/pasta de trabalho está protegida? A planilha não está protegida. Mas o problema acontece em todas as planilhas de minha máquina. - Se abrir em outro PC acontece o mesmo? Quando abro em outro PC o ícone aparece normalmente. - Arrastando a alça de preenchimento com o botão direito aparece alguma opção? Sim. Aparece o ícone de análise rápida, conforme a imagem abaixo. - Se você for pela guia Página Inicial > grupo Edição > botão Preencher também dá no mesmo? Desta forma consigo. Não conhecia essa opção. Já me ajudou... Mas seguirei tentando tornar o ícone de autopreenchimento automático ao arrastar. Obs.: Meu pacote office encontra-se atualizado.

@Edson Luiz Branco Bom dia, Edson. Obrigado pelo retorno. Mas as células não estão em intervalos filtrados e nem há linhas ocultas. O problema persiste, infelizmente. Veja os exemplos abaixo...

Quando passo o mouse sobre a célula selecionada e arrasto a cruz (no canto direito inferior) até a célula desejada, o ícone opção de autopreenchimento não aparece. Acontece o preenchimento automático sem dar as opções como por ex,: copiar células, preencher células, etc. Já fui em arquivo, opções, avançado e a a opção "habilitar alça de preenchimento e arrastar-e-soltar célula" está preenchida. Marquei com seta, na imagem abaixo, o que eu gostaria que aparecesse. Alguém sabe como habilitar esse opção?

@RafaBTM Deu certo!!!. Imaginei que o problema estava na formatação condicional não considerando valores negativos porém não consegui resolver. Obrigadoooo.

Obrigado pela resposta. Segue anexo. Alguns recursos podem não estar disponíveis, pois esse site não permite anexar arquivos ".xlsm". Observação: por motivos de confidencialidade, retirei a base de dados real. Indicadores_Financeiros_23.xlsx

Sobre abreviar números de gráficos em milhões para (Mi) e mil para (K), utilizei o seguinte código de formatação: [>999999]0,00.."Mi";0."K" E ficou: a) 1,05Mi para 1.050.000 b) 950K para 950.000 Mas quando o número em milhões é negativo está ficando: a) -1050K Sendo que eu gostaria que ficasse: a) -1,05Mi. Alguém poderia me ajudar?

@Patropi MUITO OBRIGADO pela dica! Sou novo por aqui e estou aprendendo a interagir. Abração!

@osvaldomp também deu certo. Fiquei feliz. Vou usar esse código por ser mais simples! Obrigado por me ajudar, mano.

@Midori Deu certo, você é show! Obrigadoooo!!!

Criei a macro abaixo no excel porém ela dá o seguinte erro de compilação: "Bloco If sem End IF". A proposta da macro é: quando aparecer... - o valor "1" na aba G1, chamar o "GRAFSEMANA"; - o valor "2", chamar o "GRAFMES"; - o valor "3", chamar o "GRAFANO"; - o valor "4", chamar o "GRAFACUMULADO". Alguém consegue me ajudar? Sub GRAFICO() If Sheets("G1").Range("E1").Value = 1 Then Sheets("P1").Shapes("GRAFSEMANA").Visible = True Sheets("P1").Shapes("GRAFMES").Visible = False Sheets("P1").Shapes("GRAFANO").Visible = False Sheets("P1").Shapes("GRAFACUMULADO").Visible = False Else If Sheets("G1").Range("E1").Value = 2 Then Sheets("P1").Shapes("GRAFSEMANA").Visible = False Sheets("P1").Shapes("GRAFMES").Visible = True Sheets("P1").Shapes("GRAFANO").Visible = False Sheets("P1").Shapes("GRAFACUMULADO").Visible = False Else If Sheets("G1").Range("E1").Value = 3 Then Sheets("P1").Shapes("GRAFSEMANA").Visible = False Sheets("P1").Shapes("GRAFMES").Visible = False Sheets("P1").Shapes("GRAFANO").Visible = True Sheets("P1").Shapes("GRAFACUMULADO").Visible = False Else If Sheets("G1").Range("E1").Value = 4 Then Sheets("P1").Shapes("GRAFSEMANA").Visible = False Sheets("P1").Shapes("GRAFMES").Visible = False Sheets("P1").Shapes("GRAFANO").Visible = False Sheets("P1").Shapes("GRAFACUMULADO").Visible = True End If End Sub

Criei a macro abaixo no excel porém ela dá o seguinte erro de compilação: "Bloco If sem End IF". A proposta da macro é: quando aparecer... - o valor "1" na aba G1, chamar o "GRAFSEMANA"; - o valor "2", chamar o "GRAFMES"; - o valor "3", chamar o "GRAFANO"; - o valor "4", chamar o "GRAFACUMULADO". Alguém consegue me ajudar? Sub GRAFICO() If Sheets("G1").Range("E1").Value = 1 Then Sheets("P1").Shapes("GRAFSEMANA").Visible = True Sheets("P1").Shapes("GRAFMES").Visible = False Sheets("P1").Shapes("GRAFANO").Visible = False Sheets("P1").Shapes("GRAFACUMULADO").Visible = False Else If Sheets("G1").Range("E1").Value = 2 Then Sheets("P1").Shapes("GRAFSEMANA").Visible = False Sheets("P1").Shapes("GRAFMES").Visible = True Sheets("P1").Shapes("GRAFANO").Visible = False Sheets("P1").Shapes("GRAFACUMULADO").Visible = False Else If Sheets("G1").Range("E1").Value = 3 Then Sheets("P1").Shapes("GRAFSEMANA").Visible = False Sheets("P1").Shapes("GRAFMES").Visible = False Sheets("P1").Shapes("GRAFANO").Visible = True Sheets("P1").Shapes("GRAFACUMULADO").Visible = False Else If Sheets("G1").Range("E1").Value = 4 Then Sheets("P1").Shapes("GRAFSEMANA").Visible = False Sheets("P1").Shapes("GRAFMES").Visible = False Sheets("P1").Shapes("GRAFANO").Visible = False Sheets("P1").Shapes("GRAFACUMULADO").Visible = True End If End Sub