Reinaldo, consegui chegar ao seguinte código:
Date1 = Format(StartMonth & "-" & StartYear, "mmm/yyyy")
Date2 = DateAdd("m", 38, Date1)
Sheet16.Range("C9").Value = Date2
Porém só funciona para janeiro, março, junho, julho e novembro! Quando seleciono algum mês diferente destes dá erro acusando Tipos incompatíveis. Não sei o que está acontecendo.
Poderia me ajudar?
Postado : 25/11/2014 12:04 pm