Perfeito Wagner. Muito obrigado!!

Que bom que deu certo Dayana. Precisando, estamos ai pra ajudar. Não esquece de marcar como RESOLVIDO, pro tópico ficar fechado. Obrigado!!

Como na imagem

Ola Dayana, bom dia. Veja se te atende. Se te atender, como fazer: Clica com o botão direito na barra do gráfico, e vá em Formatar Série de Dados Dep...

Muito obrigado Edson, não tinha atentado para esse detalhe. Deu certinho aqui.

Marcelo, boa noite. Realmente o codigo estava incompleto mesmo. Sub SalvarComo() Dim fname As Variant Dim ws As Worksheet Dim NewWb As W...

Perfeito Bruno, era isso mesmo. Muitíssimo obrigado meu amigo.

Bom dia Eric, de uma olhadinha se te atende: 'Exclui linhas ocultas TotalRegistroRelatório = ThisWorkbook.ActiveSheet.UsedRange.Rows.Count For i = 2...

Muito Obrigado, Messias. PERFEITO!!

Veja se resolve. Caso tenha resolvido, não esqueça de marcar o tópico como resolvido. Option Explicit Private Sub CommandButton1_Click() TextBox1 =...

Ola Nelson, muito obrigado pela resposta. O que eu quero é isso mesmo. Pode ser por VBA sem problema. Muito obrigado!!