Tenho uma planilha do Excel na qual usando o código abaixo roda perfeitamente. A função dela é associar quatro botões que me permitem avançar ou retroceder o mês ou o ano de uma data.
Abrindo essa planilha no Calc não funciona. Pesquisei como contornar, mas nenhuma dica deu certo.
Não conheço VBA. Esse código achei na internet, que serviu pra mim.
Como converter essas rotinas pro Calc?
Sub Avancar_o_Mês()
Dim data1 As Range
Set data1 = Range("C2")
data1 = VBA.DateAdd("m", 1, data1)
End Sub
Sub Retroceder_o_Mês()
Dim data2 As Range
Set data2 = Range("C2")
data2 = VBA.DateAdd("m", -1, data2)
End Sub
Sub Avancar_o_Ano()
Dim data3 As Range
Set data3 = Range("C2")
data3 = VBA.DateAdd("yyyy", 1, data3)
End Sub
Sub Retroceder_o_Ano()
Dim data4 As Range
Set data4 = Range("C2")
data4 = VBA.DateAdd("yyyy", -1, data4)
End Sub