Jump to content
Fórum Script Brasil
  • 0

Help! Alterando Grafico Em Vba


Guest Maurício Frigério

Question

Guest Maurício Frigério

olá Amigos, preciso de uma ajuda aos feras em VBA

estou tentando montar um Grafico a partir de alguns dados no excel.

Tipo de A2:A5 tenho os meses

A B C D

1 MES JOSE JOAO MAURICIO

2 Jan 125,30 250,00 130,00

3 Fev 450,30 400,00 130,00

4 Mar 780,00 800,00 270,00

5 Abr 1000,00 700,00 600,00

6 Mai 735,00 500,00 750,00

já tenho um grafico de nome "Grafico 1"

quaro que quando eu selecionar o nome jose (B1) ele monte um grafico apenas das vendas do Jose

quando selecionar o nome Joao (C1) que ele monte APENAS o grafico do Joao

e quando celecionar o mauricio (D1) que ele monte o grafico apenas do mauricio

estou tentando usar o seguinte código abaixo , mas não esta dando certo , quando seleciono o jose dá certo , mas quando seleciono joao, ele monta um grafico com o jose e joao, quando seleciono o mauricio , ele monta um grafico com os tres vendedores ... alguém poderia me ajudar .... não quero criar novos gráficos, quero apenas mudar o local dos dados de um grafico... veja o código que tentei

Sub Atualiza()

CelulaAtual = ActiveCell.AddressLocal(False, False) ' pego o valor da célular atual

vendedor = ActiveCell.AddressLocal(False, False) & ":" & ActiveCell.Offset(15, 0).AddressLocal(False, False)

meses = "C4:C18"

ActiveSheet.ChartObjects("Gráfico 1").Activate

ActiveChart.SetSourceData Source:=Sheets("Plan1").Range(meses, vendedor), PlotBy:=xlColumns

Range(CelulaAtual).Select

End Sub

Antecipo cordial agradecimentos

Link to comment
Share on other sites

1 answer to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152k
    • Total Posts
      651.6k
×
×
  • Create New...