Jorge Albuquerque

@Patropi Muito Obrigado, era o que eu precisava. Parabéns. Que você tenha um final de ano maravilhoso e um 2019 abençoado. Abç

Olá Patropi, segue anexo a planilha com o gráfico. Preciso que retirar essas datas intermediárias. Obrigado Gráfico.xlsx

Montei um gráfico, com 4 informações básicas 2 Datas e 2 Valores, porém no gráfico está aparecendo várias datas intermediárias. Gostaria de saber como retiro estas datas intermediárias do gráfico e ficar visível somente as datas principais. Datas principais: 13/12/2018 e 20/12/2018 Valores: 4.000 e 3744,30 Datas intermediárias que não devem aparecer no gráfico: 14/12 - 15/12 - 16/12 - 17/12 - 18/12 - 19/12 Segue anexo imagem do gráfico e das informações Se puderem me ajudar agradeço. Bom final de ano a todos.

Já liberei o acesso adicionado 0 minutos depois @Patropi Já liberei o acesso. É que não está liberando direto, quando alguém precisa vem solicitação pra eu liberar. Se puder me ajudar agradeço

Olá, Obrigado pelo retorno. Já entrei no visual basic e fiz algumas alterações, agora só falta descobrir onde está a formula que aparece na barra de formulas quando clico no botão sortear. Esta formula não está no visual basic, é como se estivesse oculta no botão. Nunca vi isso no excel VBA. Se você estiver com a planilha perceba que ao clicar no botão sortear, na barra de fórmula vai aparecer um formula, mas não aparece a celula que a mesma está. preciso alterar esta formula, pra conseguir finalizar a adaptação que preciso. No visual basic, ja fiz todas as alterações necessárias. Desde já agradeço.

Boa tarde, preciso mudar uma formula nesta planilha e não estou encontrando a mesma. Quando clico no botão "Sortear" é possível ver a formula na barra de formulas, mas não consigo encontrar esta formula na planilha pra que eu possa fazer a alteração. Será que vocês podem me ajudar e me falar onde está esta formula pra que eu possa fazer a alteração necessária quando precisar. Segue link da planilha pra vocês baixarem e verificarem o meu problema https://goo.gl/4yFvwe Coloquei o link, pois não consegui anexar o mesmo Obrigado

Olá Preciso de ajuda de vocês! Tenho uma data qualquer (27/04/2015) e preciso colocar uma data de Vencimento para que fique na mesma data e só altere o ano. por exemplo (27/04/2016) e (27/04/2017) A fórmula precisa considerar o ano Bisexto! a formula que eu fiz foi pegar a data (27/04/2015 + 365) só que ele mostra data de vencimento 26/04/2016. porque tem ano bisexto se não tiver ano bisexto, vai mostra a mesma data. Mas preciso de uma formula para que faça isso automaticamente. Qualquer dúvida estou a disposição Agradeço a ajuda.

Bom dia, Obrigado pela Ajuda e sugestão. Liguei o gravador de macro e fiz o que você sugeriu e deu certo! Segue a macro 1 que fiz Sub ACENTOS() ' Á Macro Application.ScreenUpdating = Falso Range("G:G").Select Cells.Replace What:="Á", Replacement:="A", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Cells.Replace What:="Ã", Replacement:="A", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Cells.Replace What:="Â", Replacement:="A", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Cells.Replace What:="É", Replacement:="E", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Cells.Replace What:="Ê", Replacement:="E", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Cells.Replace What:="Í", Replacement:="I", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Cells.Replace What:="Ó", Replacement:="O", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Cells.Replace What:="Ô", Replacement:="O", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Cells.Replace What:="Ú", Replacement:="U", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False MsgBox "ACENTOS RETIRADOS COM COM SUCESSO", , "RETIRAR ACENTOS" Range("A1").Select End Sub Macro 2 que fiz Sub SIMBOLOS() 'SIMBOLOS Macro Application.ScreenUpdating = False Range("B:B,F:F").Select Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.Replace What:="-", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.Replace What:="/", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Range("A1").Select MsgBox "SIMBOLOS RETIRADOS COM SUCESSO", , "RETIRAR SIMBOLOS" End Sub Abç e obrigado mais uma vez

Olá Pessoal Estou com pepino na mão! uma planilha planilha de excel no qual preciso fazer a tabulação de vário dados da empresa e nesta planilha tem algumas restrições, sendo. A planilha não pode ter: Barra(/), Ponto(.), traço(-) que contém nos CPF e CNPJ. Neste caso preciso trocar estes símbolos por"nada". Exemplo CPF (012.345.678-90) precisa ficar desta forma (01234567890) Exemplo CNPJ (01.234.567/0001-89) precisa ficar desta forma (01234567000189) A planilha também não pode ter nenhum tipo de acentos nos nomes, Ex. José. Então preciso verificar todos os nomes e substituir estas letras (Á), (Ã), (Â), (É), (Ê), (Í), (Ó), (Ô), (Ú). Exemplos: trocar a letra (É) por (E); trocar a letra (Ã) por (A) e assim por diante. José precisa ficar Jose Sebastião precisa ficar Sebastiao Talvez eu tenha que ter várias Macros, mas será muito mais rápido do que ter que ficar preenchendo o substituir sempre. Detalhe, seria mais fácil digitar estas planilha sem estas informações, mas como são milhares de nomes todos os meses, todas estas informações são enviadas já digitadas, mas cada um digita de uma maneira e eu preciso compilar todas estas informações em outra planilha sem os acentos e símbolos comentado acima. Se puderem me ajudar ficaria grato, pois vai economizar muito tempo. abç