Macro Para FIXAR DATA no OpenOFFICE CALC

[Ely_ems]

Srs. Boa Noite.

 

Estou com uma dificuldade Tremenda para  ter uma simples macro que no Excel seria assim

---------------------------------------------------------------------------

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 2 And Target.Row > 1 Then

If Cells(Target.Row, 2) <> "" Then

Cells(Target.Row, 1) = Format(Now(), "dd/mm/yy")

Else: Cells(Target.Row, 1) = ""

End If

End If

End Sub

---------------------------------------------------------------------------

Já tentei usar um site que "traduz" o cód VBA em Excel para OPenOffice CALC mas na prática não funcionou.

 

Será que algum amigo aqui poderia contribuir com uma macro o mais simples possível para inserir E FIXAR AUTOMATICAMENTE

uma data em determinada coluna da planilha a partir do momento em que outra determinada coluna tem uma linha preenchida.

 

 

 

 

[TianK]

@Ely_ems, boa tarde!

 

Sua dúvida está aqui já um tempinho, então não sei se você encontrou alguma resposta. Mas, vou deixar aqui uma solução que cheguei, para quem estiver precisando.

 

Primeiramente reescrevi a macro usando a API UNO do LibreOffice/OpenOffice:

REM  *****  BASIC  *****Sub Planilha1_Conteudo_Alterado( oCelAlterada )' Evento de Planilha: Conteúdo alteradoDim oPlan as ObjectDim Lin as Long, Col as Long	' Sair se a alteração detectada não for em uma célula individual	If oCelAlterada.ImplementationName <> "ScCellObj" Then Exit Sub		Lin = oCelAlterada.CellAddress.Row	Col = oCelAlterada.CellAddress.Column	oPlan = oCelAlterada.getSpreadsheet			If Col = 0 And Lin > 0 Then	   If oCelAlterada.String <> "" Then	      oPlan.getCellByPosition( 1,Lin ).String = Format( Now(), "DD/MM/YYYY" )	   End If	End IfEnd Sub

Em seguida, clicando com o botão direito do mouse sobre a aba da planilha, acessei "Eventos de planilha...". Atribui a macro que estava em "Module1" ao Evento "Conteúdo alterado".

 

Em meus testes no LibreOffice 4.4.4.3, tudo funcionou como o desejado.

 

 

[]s.

TianK

OOF-DataFixada-V2.ods.rar