OpenOFFICE CALC - MACRO para INSERIR DATA em uma determinada coluna.

ElyEMS
(usa Outra)

Enviado em 03/06/2015 - 22:47h

SRs Boa Noite.

Já lhes informo que infelizmente não sou programador mas amo programação de software. Porém isso em nada me ajuda e ai é que entra a participação e a gentileza dos Srs Experts no assunto.

Em casa uso o Office 2010 tranquilamente e minas macros funcionam ok No trabalho uso BROFFICE 3.3 com WINXP.
Ocorre que preciso de uma MACRO simples que consegui no OFFICE e não consegui ainda no OPENOFFICE.

A macro deve apenas e tão somente inserir por exemplo na coluna "C" uma DATA 03/06/2015 (data do dia lógico)
E isso deve acontecer TODA VEZ/SEMPRE em que eu digitar algo em uma célula da coluna "A".

ok?
tipo apartir da linha 5 da Planilhairei inserir dados tipo um cadastro e isso será na coluna "A"
Então inseri um nome na Coluna A. e dei <Enter> A macro automaticamente vai na coluna "C" e insere a data do dia. Simples assim.
Mas eu não sei programar para BROFFICE.

Alguém aqui poderia fazer a gentileza de me ajudar criando esse código?

tenho um código em VBA e um Br OFFICe que pedi num outro fórum de BROFFICE em inglês mas não conseguiram me atender.

Se fosse código em VBA para 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 - hh:mm:ss")
Else: Cells(Target.Row, 1) = ""
End If
End If
End Sub
=========================================================

Porém essa macro precisa funcionar na empresa onde trabalho.
A que consegui com os gringos mas que não funciona lá no OpenOffife 3.3 é:


REM ***** BASIC *****

Sub FixedDate2ActiveCell

Dim oSheet as object
Dim oCell As Object
Dim ColNr as long
Dim RowNr as long

'Date into the selected cell:
oCell = ThisComponent.getCurrentSelection()
oCell.setValue(DateValue(Now))

'or oCell.setValue(DateValue(Now()))

'Time into the next cell to right:

oSheet = thiscomponent.getcurrentcontroller.activesheet
ColNr = oCell.CellAddress.Column
RowNr = oCell.CellAddress.Row
oCell = oSheet.getCellByPosition( ColNr+3, RowNr )
oCell.setValue(DateValue(Now))
End sub
---------------------------------------------------------------------------------

Bem é isso. Infelizmente não conheço o suficiente para desenvolver esse código simples por isso conto coma a colaboração dos Srs e agradeço desde já.