71 - Planner Dialogo

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


Option Explicit



Sub Agg_Anno()
  Dim oRange as Object
  REM oRange = ThisComponent.NamedRanges.GetByName("B1").ReferredCells

  oRange = ThisComponent.CurrentController.ActiveSheet.getCellRangeByName("B1")
  ThisComponent.LockControllers

    oRange.getcellbyposition(0, 0).Value = InputBox("Nuovo anno:", "Nuovo anno")
    ThisComponent.CalculateAll()
  ThisComponent.UnlockControllers

Sub dbase_impegni()
  DbaseForm.DbaseForm ("Scadenziario_riunioni")
End Sub


End Sub

© Ing. Stefano Salvi - released under FDL licence