Ir para conteúdo
Fórum Script Brasil

Elnaol

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Sobre Elnaol

Elnaol's Achievements

0

Reputação

  1. Elnaol

    Método dateadd

    Salve, pessoal tudo bem? Sou novo por aqui e to aprendendo VBA na raça, trabalho como auxiliar administrativo que é um trabalho que tem muita coisa que pode ser automatizado e tudo. Nesse mês tirei férias e pensei em voltar com tudo, por isso, tive a inciativa de automatizar um trabalho que é bastante desgastador, há uma certa renegociação que é divida em várias parcelas mensais e todas elas são a exatamente a um mês da primeira parcela, e quase todas com exceção da última tem o mesmo valor (já estou prevendo que o valor das parcelas vão dar o mesmo error) no final de tudo eu gostaria de transportar os dados do formulário e substituir num modelo do word para imprimir, até aí tudo as mil maravilhas, porém para somar as datas no seguinte código: .Application.Selection.Find.Text = ("#parcelas") .Application.Selection.Find.Execute .Application.Selection.Range = "dez parcelas" .Application.Selection.Find.Text = ("#pa1") .Application.Selection.Find.Execute .Application.Selection.Range = UCase(txt_data) .Application.Selection.Find.Text = ("#pa2") .Application.Selection.Find.Execute .Application.Selection.Range = UCase(txt_data).DateAdd("m", 1, txt_data) está dando um error '424' objeto obrigatório e o depurador para nessa última linha, já tentei de diversas formas resolver o problema, mas não logrei exito. Se poderem me ajudar serei eternamente grato. Do trabalhador de férias! Abraços.
×
×
  • Criar Novo...