Boa tarde Vinicius

Como você é novato, Para facilitar a tua participação no fórum, sugiro tomar conhecimento do conteúdo dos links abaixo:

viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

Quanto a tua dúvida, fica mais fácil do pessoal ajudar se você anexar a planilha

[]s

Não posso anexar a planilha. É do meu trabalho, desculpa.
Posso tentar explicar mais detalhadamente o que eu fiz e o que eu quero.

Precisamos da planilha nao dos dados da planilha.

Os dados confidenciais, não precisão ser disponibilizados.

Precisamos da planilha nao dos dados da planilha.

Os dados confidenciais, não precisão ser disponibilizados.

To enviando a planilha. Eu queria que mostrasse uma mensagem dizendo que ja existe a planilha criada quando a pessoa clicar no mesmo botão.

Por exemplo: o cara clicou em 'temperatura' e preencheu os campos, blz a macro fez o grafico pra ele. Mas se no futuro ele quiser atualizar esse mesmo grafico, quando ele clicar de novo em 'temperatura' ja apareça uma mensagem informando que ja fora criada esse grafico e ele escolhe se deseja excluir para a prosseguir com a criação de um novo ou se ele quer manter o gráfico antigo.

obs: essa foi a minha primeira macro então se tem alguma solução estupida me desculpem.

obs: até o momento eu so consegui botar essa mensagem de aviso que ja existe uma planilha depois que ele preencheu todos os campos de novo, mas eu nao quero retrabalho entende? Vocês vao ver quando abrirem a planilha

Criei 3 Subs que verificam se a ABA dos gráficos ja existem....
Nas Células E1, E2 e E3 tem um x

Sempre que estiver o x lá, ele vai perguntar se vc criou o gráfico e se quer apagar o antigo..

Voce precisa incrementar na sua macro a seguinte função..

Quando após criar um gráfico, o programa deve ir la na célula respectiva e escrever um "X"

Sub G_FAN()
If Sheets("Comparar").Range("E1") <> "" Then
    'BOTÃO DE CONFIRMAÇÃO SIM-NÃO
    Dim Resultado As VbMsgBoxResult
    Resultado = MsgBox("DESEJA  •EXCLUIR•  O GRÁFICO ANTIGO E GERAR UM NOVO?", vbYesNo, "Tomando uma decisão")
    If Resultado = vbYes Then
    
    Application.DisplayAlerts = False
    Sheets("gráfico fan").Select
    ActiveWindow.SelectedSheets.Delete
    Application.DisplayAlerts = True
    
    '•••••  <INSERIR AQUI O COMANDO DE GERAR GRÁFICO
    
     Else
          MsgBox "NENHUMA ALTERAÇÃO FOI REALIZADA!"
     End If
     End If
     
    Application.ScreenUpdating = True
    
End Sub
Sub G_CON()
If Sheets("Comparar").Range("E2") <> "" Then
    'BOTÃO DE CONFIRMAÇÃO SIM-NÃO
    Dim Resultado As VbMsgBoxResult
    Resultado = MsgBox("DESEJA  •EXCLUIR•  O GRÁFICO ANTIGO E GERAR UM NOVO?", vbYesNo, "Tomando uma decisão")
    If Resultado = vbYes Then
    
    Application.DisplayAlerts = False
    Sheets("gráfico consumo").Select
    ActiveWindow.SelectedSheets.Delete
    Application.DisplayAlerts = True
    
      '•••••  <INSERIR AQUI O COMANDO DE GERAR GRÁFICO
    
     Else
          MsgBox "NENHUMA ALTERAÇÃO FOI REALIZADA!"
     End If
     End If
     
    Application.ScreenUpdating = True

End Sub
Sub G_TEM()
If Sheets("Comparar").Range("E3") <> "" Then
    'BOTÃO DE CONFIRMAÇÃO SIM-NÃO
    Dim Resultado As VbMsgBoxResult
    Resultado = MsgBox("DESEJA  •EXCLUIR•  O GRÁFICO ANTIGO E GERAR UM NOVO?", vbYesNo, "Tomando uma decisão")
    If Resultado = vbYes Then
    
    Application.DisplayAlerts = False
    Sheets("gráfico temp").Select
    ActiveWindow.SelectedSheets.Delete
    Application.DisplayAlerts = True
    
      '•••••  <INSERIR AQUI O COMANDO DE GERAR GRÁFICO
    
     Else
          MsgBox "NENHUMA ALTERAÇÃO FOI REALIZADA!"
     End If
     End If
     
    Application.ScreenUpdating = True

End Sub

ccaciano

Não está rodando a macro. Está dando erro de compilação: 'sub' ou 'function' não definida.

Consegui resolver o problema! Obrigado ccaciano!

ViniciusC

Favor ler o conteúdo dos tópicos acima, pois fará falta e vai evitar de eu ter que ficar te alertando.

Você não soube como usar a ferramenta para pontuar o colaborador.

[]s