Ir ao conteúdo
  • Cadastre-se

cliffpk

Membros Plenos
  • Total de itens

    78
  • Registro em

  • Última visita

  • Qualificações

    0%

Reputação

1

Sobre cliffpk

  • Data de Nascimento 26-07-1992 (26 anos)

Informações gerais

  • Cidade e Estado
    Ipatinga
  1. @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.
  2. 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
  3. 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?
  4. 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..
  5. @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!
  6. @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
  7. 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
  8. 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!
  9. Muito obrigado @Patropi, funcionou perfeitamente. Obrigado também Osvaldomp mas não será necessário!
  10. 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!
  11. Bom dia! Na verdade sim, mas como a fórmula pra resolver essa situação é mais simples eu nem questionei a respeito!
  12. Amigo, a planilha de exemplo ja esta postada no topico, o que coloquei foi só uma imagem pra facilitar a visualização.
  13. 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
  14. 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

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×