Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
contar qt de dias e exibir data sem finais de semana [RESOLV
contar qt de dias e exibir data sem finais de semana [RESOLV
Boa noite pessoal!
Por favor, me ajudem a fazer um código para o seguinte problema:
uma textbox recebe uma data inicial,
o vba conta uma quantidade de dias qualquer
e outra textbox exibe a data futura, excluindo da contagem os finais de semana.
Muito agradecido!
Por favor, me ajudem a fazer um código para o seguinte problema:
uma textbox recebe uma data inicial,
o vba conta uma quantidade de dias qualquer
e outra textbox exibe a data futura, excluindo da contagem os finais de semana.
Muito agradecido!
Editado pela última vez por vallfon em Sex Out 19, 2012 8:43 pm, em um total de 2 vezes.
Re: contar qt de dias e exibir data sem finais de semana
Vallfon,
Essa parte ficou complicada: o vba conta uma quantidade de dias qualquer
De qualquer forma, procure pelas fórmulas DIATRABALHO e DIATRABALHOTOTAL. No caso do VBA, WorksheetFunction.WorkDay. Elas lhe darão exatamente o que quer, já que elas contam somente dias úteis.
Abraços
Essa parte ficou complicada: o vba conta uma quantidade de dias qualquer
De qualquer forma, procure pelas fórmulas DIATRABALHO e DIATRABALHOTOTAL. No caso do VBA, WorksheetFunction.WorkDay. Elas lhe darão exatamente o que quer, já que elas contam somente dias úteis.
Abraços
Re: contar qt de dias e exibir data sem finais de semana
Tomás,
Muito agradecido pela dica do uso da função workday!
Acho que me expressei de maneira errada!
Não é uma quantidade qualquer de dias, esta quantidade de dias será digitada numa textbox.
Não sei como fazer. Gostaria de fazer usando a dica que destes!
Muito agradecido pela dica do uso da função workday!
Acho que me expressei de maneira errada!
Não é uma quantidade qualquer de dias, esta quantidade de dias será digitada numa textbox.
Não sei como fazer. Gostaria de fazer usando a dica que destes!
webmaster escreveu:Vallfon,
Essa parte ficou complicada: o vba conta uma quantidade de dias qualquer
De qualquer forma, procure pelas fórmulas DIATRABALHO e DIATRABALHOTOTAL. No caso do VBA, WorksheetFunction.WorkDay. Elas lhe darão exatamente o que quer, já que elas contam somente dias úteis.
Abraços
- BaptistaCG
- Colaborador
- Mensagens: 96
- Registrado em: Seg Jul 30, 2012 10:33 pm
- Localização: Sorocaba/SP
Re: contar qt de dias e exibir data sem finais de semana
Prezado Vallfon,
Ta meio complicado mesmo de entender o que vc precisa, pelo o que entendi seria para o vba contar a quantidade de dias em um intervalo da data inicial até a data final? e estas datas serão informadas através dos textsboxs? é isso?
Se for o caso coloca sua planilha em anexo ae que as vezes dá uma clariada em nossos pensamentos rsrs..
Abraço,
Att.
Ta meio complicado mesmo de entender o que vc precisa, pelo o que entendi seria para o vba contar a quantidade de dias em um intervalo da data inicial até a data final? e estas datas serão informadas através dos textsboxs? é isso?
Se for o caso coloca sua planilha em anexo ae que as vezes dá uma clariada em nossos pensamentos rsrs..
Abraço,
Att.
Re: contar qt de dias e exibir data sem finais de semana
Ok! A data inicial e a quantidade de dias são informadas por textbox. Os feriados estão num intervalo da planilha. Uma terceira textbox deve imprimir a data futura, descontando os finais de semana e os feriados.
Aí está o que estou tentando fazer.
Aí está o que estou tentando fazer.
BaptistaCG escreveu:Prezado Vallfon,
Ta meio complicado mesmo de entender o que vc precisa, pelo o que entendi seria para o vba contar a quantidade de dias em um intervalo da data inicial até a data final? e estas datas serão informadas através dos textsboxs? é isso?
Se for o caso coloca sua planilha em anexo ae que as vezes dá uma clariada em nossos pensamentos rsrs..
Abraço,
Att.
- Anexos
-
- Workday_conta_dias_excluindo_finais_de_ semana_e_feriados.rar
- WorkDay
- (17.35 KiB) Baixado 485 vezes
Re: contar qt de dias e exibir data sem finais de semana
Bom dia,
Sugiro alterar a seguinte linha:
Por esta:
Abraço
Sugiro alterar a seguinte linha:
Código: Selecionar todos
Me.TextBox3 = WorksheetFunction.WorkDay(Me.TextBox1, Me.TextBox2, Range("Feriados"))
Código: Selecionar todos
Me.TextBox3 = WorksheetFunction.WorkDay(CDate(Me.TextBox1), Me.TextBox2, Range("Feriados"))
- BaptistaCG
- Colaborador
- Mensagens: 96
- Registrado em: Seg Jul 30, 2012 10:33 pm
- Localização: Sorocaba/SP
Re: contar qt de dias e exibir data sem finais de semana
Perfeito JValq é isso mesmo! Testei aqui e funcionou Parabéns.JValq escreveu:Bom dia,
Sugiro alterar a seguinte linha:Por esta:Código: Selecionar todos
Me.TextBox3 = WorksheetFunction.WorkDay(Me.TextBox1, Me.TextBox2, Range("Feriados"))
AbraçoCódigo: Selecionar todos
Me.TextBox3 = WorksheetFunction.WorkDay(CDate(Me.TextBox1), Me.TextBox2, Range("Feriados"))
Boa sorte em seu projeto Valfon.
Re: contar qt de dias e exibir data sem finais de semana
Perfeito!!! É o que eu preciso.
Muito grato, JValq!
Agradeço a todos pela atenção dispensada.
Forte abraço em todos.
Muito grato, JValq!
Agradeço a todos pela atenção dispensada.
Forte abraço em todos.
JValq escreveu:Bom dia,
Sugiro alterar a seguinte linha:Por esta:Código: Selecionar todos
Me.TextBox3 = WorksheetFunction.WorkDay(Me.TextBox1, Me.TextBox2, Range("Feriados"))
AbraçoCódigo: Selecionar todos
Me.TextBox3 = WorksheetFunction.WorkDay(CDate(Me.TextBox1), Me.TextBox2, Range("Feriados"))