utilizando formula en macro

[rhod-wulf]

Buenas noches

Quería saber cómo se puede crear una fórmula en donde el número de fila que este cambie a la fila activa?

Formulalocal = "= A1-B1" se encuentra en la fila 1, si me paso a la fila 2 automáticamente cambie a A2-B2"

Se supone que al estar en una fila por ejemplo 22 la formula que se ingrese ponga la fila 22 no la 8

Código: Seleccionar todo

REM ***** BASIC *****
Dim oSel As Object, oHoja As Object, oDir As Object
Dim lCol As Long

Sub Definir()
oSel = ThisComponent.CurrentController.Selection
oHoja = oSel.SpreadSheet
oDir = oSel.CellAddress
End Sub

 Sub InsertarHoraFinal()
lCol = 5
Definir
oHoja.getCellByPosition(lCol, oDir.Row).setValue(CDbl(Now))
lCol = 8
oHoja.getCellByPosition(lCol, oDir.Row).SetFormula ("=(F8-E8)*24*60")
End Sub

[PepeOooSevilla]

Hola.

Mira esta respuesta en tu otro tema Re: aplicar valor formula a través de macro en tabla.

Saludos cordiales.

[rhod-wulf]

Muchas gracias, ya la vi, no habría podido hacer la modificación que indicaste y me sirvió muchísimo.

[PepeOooSevilla]

Hola.

Si consideras que el tema está resuelto, indícalo (¿Cómo marcar como RESUELTO un tema?), ya que, de esta forma, conseguiremos un foro más ordenado.

Saludos cordiales.