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. 

14 horas atrás, Patropi disse:

Boa noite @magnosalmeida

 

Cadê a planilha anexada.

 

Imagem não ajuda nada, pois como vamos fazer testes na imagem.

 

[]s

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?

21 horas atrás, Patropi disse:

@magnosalmeida

 

Como as respostas foram úteis faltou você clicar em Curtir nas respostas da Midori e do Osvaldo.

Como a dúvida foi sanada, faltou você marcar o tópico como Resolvido.(Na minha assinatura tem um link para um instrução.

 

Precisando, volte a postar no fórum.

 

[]s

@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