Ir ao conteúdo
  • Cadastre-se

carli.ricardo

Membros Juniores
  • Total de itens

    6
  • Registro em

  • Última visita

  • Qualificações

    N/D
  1. Muito obrigado meu amigo, realmente era esse o problema! Já utilizo intervalo dinâmico no EIXO X, o que é uma verdadeira mão na roda. Obrigado novamente.
  2. Bump... desculpe mas... alguem tem alguma ideia?
  3. Pessoal, boa noite! Tenho uma planilha que contempla um gráfico de gestão de obra, esse gráfico funciona de forma dinamica de acordo com a duração da obra, as vezes a obra é de 60 dias, as vezes de 200 dias... e as vezes de 500 dias. O problema é que, mesmo ajustando os valores pra configuração dinâmica, o gráfico, que é exposto de forma semanal, não ultrapassa 52 semanas, ou 364 dias. A unica forma que encontrei de alterar esse limite de "1 ano" é indo até as opções de eixo e mudando o valor de limite máximo do eixo de "automático" para "manual" e inserindo o valor. Dessa forma nao me atenderia pois tal planilha estaria disponibilizada para a empresa e os usuarios não tem conhecimento, enfim... eu queria tentar automatizar. Alguem consegue me ajudar? É possivel? Estou disponibilizando uma amostra da planilha sem a configuração de gráfico dinâmico, de qualquer forma ele só lê 52 semanas... painel_amostra.rar painel_amostra.xlsx
  4. Bom dia! Conforme instrução, disponibilizei a planilha compactada abaixo. PAINEL_OBRA_fch.7z Os campos que vem com formatação incorreta são os campos de percentual, valor financeiro e datas. Me parece que oexcel não interpreta "," em valores inseridos nos formularios VBA e só aceita "."
  5. Pessoal, saudações! Fiz um formulario para cadastro de obras da planilha do meu trabalho porém alguns valores não recebem a formatação correta ao serem enviados para a planilha. Os campos em que são inseridos valores ou percentuais recebem a formatação "Geral" quando são "cadastrados" e não ficam formatados, dessa forma a planilha não consegue analisar seus valores em outras abas em que esses valores são necessários. Por favor! Preciso muito de ajuda com isso! Agradeço desde já. Segue o código do macro abaixo Private Sub CommandButton1_Click() Dim linha As Long Sheets("Resumo Contratual").Cells(6, 3).Value = TextBox1.Value Sheets("Resumo Contratual").Cells(9, 3).Value = TextBox2.Value Sheets("Resumo Contratual").Cells(15, 3).Value = TextBox3.Value Sheets("Resumo Contratual").Cells(18, 3).Value = TextBox4.Value Sheets("Resumo Contratual").Cells(18, 5).Value = TextBox5.Value Sheets("Resumo Contratual").Cells(6, 9).Value = TextBox6.Value Sheets("Resumo Contratual").Cells(9, 9).Value = TextBox7.Value Sheets("Resumo Contratual").Cells(9, 15).Value = TextBox8.Value Sheets("Resumo Contratual").Cells(12, 15).Value = TextBox9.Value Sheets("Resumo Contratual").Cells(15, 15).Value = TextBox10.Value Sheets("Resumo Contratual").Cells(26, 3).Value = TextBox11.Value Sheets("Resumo Contratual").Cells(29, 3).Value = TextBox12.Value If TextBox13.Value <> 0 Then Sheets("Resumo Contratual").Cells(42, 11).Value = TextBox13.Value / 100 Else: Sheets("Resumo Contratual").Cells(42, 11).Value = TextBox13.Value End If If TextBox14.Value <> 0 Then Sheets("Resumo Contratual").Cells(39, 19).Value = TextBox14.Value / 100 Else: Sheets("Resumo Contratual").Cells(39, 19).Value = TextBox14.Value End If If TextBox15.Value <> 0 Then Sheets("Resumo Contratual").Cells(42, 19).Value = TextBox15.Value / 100 Else: Sheets("Resumo Contratual").Cells(42, 19).Value = TextBox15.Value End If If TextBox16.Value <> 0 Then Sheets("Resumo Contratual").Cells(45, 19).Value = TextBox16.Value / 100 Else: Sheets("Resumo Contratual").Cells(45, 19).Value = TextBox16.Value End If Sheets("Resumo Contratual").Cells(12, 9).Value = TextBox17.Value mensagem = MsgBox("Dados cadastrados com sucesso", vbInformation, ":: Cadastro ::") TextBox1.Value = Null TextBox2.Value = Null TextBox3.Value = Null TextBox4.Value = Null TextBox5.Value = Null TextBox6.Value = Null TextBox7.Value = Null TextBox8.Value = Null TextBox9.Value = Null TextBox10.Value = Null TextBox11.Value = Null TextBox12.Value = Null TextBox13.Value = Null TextBox14.Value = Null TextBox15.Value = Null TextBox16.Value = Null TextBox17.Value = Null Formulario2.Hide End Sub

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

×