cliffpk

@Patropi, bom dia! Na verdade a linha gráficas representando os valores das colunas Previsto e Realizado seriam exibidas para todas as semanas, porém só o ultimo lançamento na coluna Realizado teria um rótulo de dados acima do ponto gráfico, exatamente conforme o exemplo na planilha que enviei. A questão é se isso poderia ser feito de forma automática, sem necessidade de ficar excluindo e inserindo novamente o rótulo de dados toda vez que um dado for preenchido. Por exemplo, na ocasião da imagem anexa, somente a semana 04/02/2019 seria rotulada no gráfico, porém as demais ainda seriam exibidas.

Coloquei um exemplo da planilha/gráfico. Tive que colocar em zip porque o formato do arquivo é .xlsm e o forum não estava aceitando. A forma que queria que os rótulos fossem exibido é como está na planilha, iria mostrar o rótulo previsto e realizado referente a linha do ultimo dado coletado na coluna "Realizado." CRONOGRAMA_14112018.7z

Pessoal, bom dia. Iria criar um novo tópico com a mesma solicitação mas encontrei esse já existente. Existe alguma forma de apresentar somente o rótulo de dados do ultimo dado de um gráfico, de forma automática, por VBA ou alguma outra forma?

Na verdade a planilha é um modelo de controle de notas fiscais à ser utilizado em diferentes situações por uma equipe, então algumas linha serão acrescentadas, editadas... caso fosse possível simplesmente ignorar as celulas bloqueadas, eu poderia manter as celulas da estrutura da planilha bloqueadas e englobar uma quantidade de células maior no botão de limpar as planilhas, de forma que ele realmente limpasse toda a planilha, englobando mesmo as possíveis adições de linhas. De qualquer forma muito obrigado..

@osvaldomp Os intervalos estão certos, a questão é que se houver uma célula bloqueada dentro desses intervalos ela também é apagada. A ideia que tive é que a mesma seria ignorada, não gerando erro e não sendo limpa!

@osvaldomp, fiz dessa forma e o que aconteceu foi que as células bloqueadas foram apagadas, ao invés de apresentar erro. Como as minhas planilhas não tem senha, deixei o código da seguinte forma: Sub Limpar_celulas() Senha = "1234" resposta = InputBox("Digite a senha para continuar.") If resposta <> Senha Then MsgBox "Senha incorreta.", vbCritical, "Atenção!" Exit Sub 'Não continuar a macro End If Sheets("Resumo Geral").Protect userinterfaceonly:=True Sheets("Resumo Geral").Range("C4:C5,C7:C11,C14:C16,C20:C21,D26:D30").ClearContents Sheets("Resumo Financeiro").Protect userinterfaceonly:=True Sheets("Resumo Financeiro").Range("E4:E15").ClearContents Sheets("Resumo OC").Protect userinterfaceonly:=True Sheets("Resumo OC").Range("C8:C16,D8:D16").ClearContents Sheets("Notas Fiscais").Protect userinterfaceonly:=True Sheets("Notas Fiscais").Range("B3:I200").ClearContents Sheets("Ordens de Compra").Protect userinterfaceonly:=True Sheets("Ordens de Compra").Range("A3:G200").ClearContents Sheets("Medições").Protect userinterfaceonly:=True Sheets("Medições").Range("A3:B17,D3:H17").ClearContents Sheets("Cronograma").Protect userinterfaceonly:=True Sheets("Cronograma").Range("E38:N90").ClearContents For Each xWs In ActiveWorkbook.Worksheets For Each xComment In xWs.Comments xComment.Delete Next Next End Sub

Amigos, boa tarde. Atualmente tenho um botão que limpa as células da minha planilha, o problema é que entre uma célula ou outra tenho algumas células bloqueadas. O excel tenta limpar as células e, por ter células bloqueadas entre elas, apresenta erro. Gostaria de saber como posso adaptar a função VBA para ignorar as células que apresentam bloqueio. Muito obrigado, abraços! Sub Limpar_celulas() Senha = "1234" resposta = InputBox("Digite a senha para continuar.") If resposta <> Senha Then MsgBox "Senha incorreta.", vbCritical, "Atenção!" Exit Sub 'Não continuar a macro End If Sheets("Resumo Geral").Range("C4:C5").ClearContents Sheets("Resumo Geral").Range("C7:C11").ClearContents Sheets("Resumo Geral").Range("C14:C16").ClearContents Sheets("Resumo Geral").Range("C20:C21").ClearContents Sheets("Resumo Geral").Range("D26:D30").ClearContents Sheets("Resumo Financeiro").Range("E4:E15").ClearContents Sheets("Resumo OC").Range("C8:C16").ClearContents Sheets("Resumo OC").Range("D8:D16").ClearContents Sheets("Notas Fiscais").Range("B3:I200").ClearContents Sheets("Ordens de Compra").Range("A3:G200").ClearContents Sheets("Medições").Range("A3:B17").ClearContents Sheets("Medições").Range("D3:H17").ClearContents Sheets("Cronograma").Range("E38:N90").ClearContents For Each xWs In Application.ActiveWorkbook.Sheets For Each xComment In xWs.Comments xComment.Delete Next Next End Sub

Pessoal, bom dia! Estou fazendo um relatório e estive tentando inserir um botão em uma celula para inserção de uma imagem e, ao inserir já redimensiona-la. Essa automatização é possível? Obrigado!

Muito obrigado @Patropi, funcionou perfeitamente. Obrigado também Osvaldomp mas não será necessário!

Pessoal, bom dia. Preciso encontrar uma forma de arredondar uma data inserida em uma célula para o dia 15 do mês que aquela data foi inserida e caso a data seja menor que dia 15, retorne na célula com a fórmula o dia 15 do mês anterior. Por exemplo, Na célula A1 insere-se 22/05/2018, a data mostrada na célula A2 seria 15/05/2018. Caso fosse inserido 03/09/2018, retornaria em A2 o valor do dia 15/08/2018. Caso fosse inserido 14/09/2018, retornaria em A2 o valor do dia 15/08/2018. Alguem sabe me dizer se é possível e como é possível? Obrigado!

Bom dia! Na verdade sim, mas como a fórmula pra resolver essa situação é mais simples eu nem questionei a respeito!

Amigo, a planilha de exemplo ja esta postada no topico, o que coloquei foi só uma imagem pra facilitar a visualização.

Amigo, me desculpe, realmente escrevi errado. O certo seria dessa forma: Quando o valor de uma celula na coluna "I" atingir 0, o excel recolhe o que está escrito naquela linha para a coluna "J" e, todos as linhas que tiverem na coluna "J" o mesmo número daquela linha que atingiu o valor 0, retornarão "OK" na coluna K. Por exemplo, a ordem de compra 9 possui 3 notas fiscais, na terceira nota, linha 12, o saldo (coluna I) do fornecedor atingiu 0, então o excel analisará a coluna J da mesma linha e todos as linhas que possuírem 9 naquela mesma coluna ficarão com "OK" na coluna K. A planilha do que deveria acontecer está anexa

Alguém pra dar uma luz pessoal?..

Pessoal, bom dia. Trabalho com uma planilha de controle de notas fiscais e queria saber como executar a seguinte tarefa: Quando o valor de uma celula na coluna "I" atingir 0, o excel recolhe a informação na coluna "J" e, todos as linhas que tiverem na coluna "L" o mesmo numero da coluna "L" da linha que atingiu o valor 0 na coluna "J" retornarão "OK" na coluna K. Por exemplo, a ordem de compra 9 possui 3 notas fiscais, na terceira nota, linha 12, o saldo (coluna I) do fornecedor atingiu 0, então o excel analisará a coluna J da mesma linha e todos as linhas que possuirem 9 naquela mesma coluna ficarão com "OK" na coluna K. [ Espero ter deixado claro o problema, de qualquer forma agradeço desde já. planilha_teste2.xlsx

Pessoal, bom dia. Faço uso de uma planilha para controle de notas fiscais em que utilizei do recurso de formatação condicional para demonstrar em cor quanto cada fornecedor da minha empresa tem de saldo financeiro, está devendo ou se o mesmo já encontra com a situação quitada. A fórmula é basicamente simples, ela analisa a ultima coluna da planilha e pinta a linha toda de acordo com o valor, >0 amarelo, =0 verde, <0 vermelho. O problema é que há situações em que tenho que mesclar a celula do fornecedor, fazendo com que ela ocupe varias linhas, de forma que não possa ser previsto a quantidade, as vezes 2, as vezes 3 ou 7 linhas, como na planilha de exemplo anexa, no caso o FORNECEDOR 4. Eu queria que, quando a ultima linha das celulas mescladas atingisse 0, todas as linhas que tem participação naquela célula mesclada também ficasse da mesma cor, no caso, verde. Utilizei uma fórmula na coluna D que consigo separar as linhas mescladas em um tipo de "grupo", mas não sei como dizer ao excel que se o saldo do fornecedor atinge 0, todas as linhas com valores equivalentes ao valor da linha D, que é a divisão de grupo, devem ser coloridas de verde. EXEMPLO.xlsx

Amigos, boa tarde. Possuia uma placa MSI 880GM-E41 rodando o meu Phenom II X4 955 3.2gz normalmente, um belo dia a placa queimou e tive necessidade de troca-la, como na data estava com urgência, comprei uma placa M5A78L-M LX/BR, que desde então tem me causado alguns problemas. Ao ligar o computador recebo a mensagem que a placa não é compativel com o processador, mesmo já tendo atualizado a BIOS ainda recebo a notificação. O SO esta extremamente lento, e a configuração geral do PC nem é assim tão ruim, as peças estão devidamente limpas, temperatura do processador também está OK. Preciso comprar uma placa compatível com este processador, porém depois da experiência ruim fiquei um pouco traumatizado. Alguém pode me ajudar com essa questão? Segue configurações não anunciadas do PC. 4GB RAM DDR3, (sendo que tenho um pente extra de 2GB que ficou inutilizável devido a troca das placas-mãe) Placa de vídeo ATI RADEON HD 6870 HD 500GB

Pessoal, bom dia, estou prestando manutenção em um computador que tem o Windows 8 Original instalado, o usuario tem um sistema que depende das atualizações para o seu funcionamento. O problema é que o sistema não quer atualizar, o que já foi feito: - Utilizei a ajuda proposta pela Microsoft, tentei executar o comando de restauração DISM. - Utilizei o programa de reparo da Microsoft para concerto das atualizações automáticas. - Restaurei o sistema em um ponto antigo e mesmo assim não funcionou. - Utilizei o recurso de Troubleshooting proposto pelo Windows. O código do erro é 0x80073712 Alguém poderia contribuir para a solução? Desde já sou muito grato.

Amigos, bom dia. Refiz a formatação feita por um amigo de um computador com Windows 7, porém mesmo depois de duas formatações o áudio do computador não funciona. PLACA MÃE: POS-MIG31AG O que o Windows mostra: - Mostra que o driver está corretamente instalado, não há qualquer exclamação amarela no Gerenciador de Dispositivos, tudo está PERFEITAMENTE NORMAL. - Ao executar um som, o medidor sonoro/de volume do Windows movimenta, demonstrando que o audio está sendo executado pelo sistema. O que já fiz: - Já entrei no site da positivo e pesquisei os drivers do fornecedor, e mesmo assim não resolveu. - Instalei os drivers completos com o programa Driver Pack - Tentei desabilitar o driver, desinstalar e depois instalar de novo e reiniciar, não resolveu. - Já mudei a caixa de som, sendo que as caixas estão funcionando perfeitamente. Enfim, só falta mesmo ajoelhar e orar. Pesquisei outros topicos com o mesmo problema e mesma placa mas não obtive sucesso! Agradeço a algum ser humano que puder ajudar, obrigado!

Bom, o Bulletstorm aqui ta rodando com 60fps, com tudo no max, inclusive AA 8x, vou esperar pra instalar outros jogos pra fazer o teste, parece que no GTA o FPS é bem baixo mesmo... Valeu por enquanto galera!

Bem, eu tinha usado o FRAPS sem reiniciar o PC, quando liguei o PC de manhã, FPS do GTA chegou a aumentar um pouco sim (120 em casa, 40~50 rua), mas ontem ainda sem reiniciar o PC depois da instalação do FRAPS, tinha testado o Bulletstorm tambem, a velocidade esta bem estavel, mas tava marcando 30fps (tudo no max), não sei se é porque não tinha reiniciado, ou o CPU estava mais aquecido... sei lá... Eu sei que eu to MUITO preocupado entendem, a ponto até de meio desanimar, pelo computador ser novinho tenho medo de que algo nele não esteja 100% e eu esteja perdendo tempo e $$$! Desculpa o incomodo galera. Estou no trabalho agora, chegando em casa eu vou testar mais e dou um up no post aqui. Os Patchs tão instalados, mas vou fazer o teste com o Driver sim! Valeu gente

Galera, desculpa mas eu to meio desesperado! Não sei se a placa ta com defeito, to meio com medo de estar. Fora o problema citado acima, o GTA aqui ta rodando até beleza a velocidade, mas quando rodei o fraps, alertou que dentro de casa fica 75, mas quando vai pra rua, pra esses lugares mais carregados a media fica de 50 parado, chega reduzir pra 30. Apesar de não ter percebido lentidão (pode ser porque to acostumado com aquela velocidade) o frame me preocupa muito...

O problema do GTA eu ja resolvi, mas a setinha desconfigurada ainda me preocupa, tenho medo de se tornar uma bola de neve depois, ou ja estar perdendo desempenho por causa de algum mísero defeito na placa...

É sério? Aqui ta acontecendo que o FPS ta bem distribuido, mas frequentemente fica dando umas travadas! To muito preocupado com isso, muito mesmo.

Ola galera, comprei um PC novo muito recentemente com as seguintes configs. Então, instalei Windows7 e os drivers da placa, não fiz nenhuma configuração no clock de nenhuma peça, depois de formatado, percebi que as vezes a setinha do mouse ficava "desconfigurada" (serrilhada, meio avacalhada), por hora deixei pra la, mas como trabalho como tecnico em informatica, pensei que poderia ser placa de video, pois esses erros meio "especificos" e intermitentes geralmente são. porém nao me incomodou em nada, e apareceu somente umas 2 ou 3x, então instalei 2 jogos de inicio, Bulletstorm e Splinter Cell: Conviction O Bulletstorm rodou no maximo com uma velocidade boa, porém as vezes, dava uma travadinha, coisa minúscula, mas perceptivel. Ja o SplinterCell tambem rodou no maximo, mas se eu reduzisse a resolução melhorava POUCA coisa a velocidade (que não estava ruim) Bom, então depois de alguns dias, instalei o GTA IV, esse ultimo me deixou bastante grilado, pois acontece o seguinte, o jogo roda beleza, com bons graficos, só que muito frequentemente o jogo da umas travadas, maiores que a do Bulletstorm, o que torna meio ruim de jogar. Não sei se é por causa que é o primeiro gameplay, mas mesmo reiniciando continuou as travadinhas. Estou com medo de ser a Placa de Video ou outra peça, mas suspeitando que seja a Placa de Video, não sei se faz tanta diferença, mas comprei no Balão em um "RUSH" pois achei ela MUITO barata (599,00), então sei lá, pode ser que seja meio suspeito. Ah, esqueci de mencionar, a resolução maxima do meu monitor é de 1280x1024. Desculpe o post gigante, só queria deixar bem claro o que aconteceu, estou muito preocupado com a situação.