[ Pannello di Controllo Moderatore ]
Ant52 ha scritto:Io ritenevo che il solo fatto di posizionarmi con il mouse sulla cella dove voglio inserito il dato fosse sufficiente ma pare che non sia così. Grazie mille a chi mi potrà aiutare a risolvere questo problema.
oSelRiga = ThisComponent.getCurrentSelection.cellAddress.Row
Sub CodFsicale
Doc = ThisComponent
Sh = Doc.Sheets.getByName("COD FISC")
Sh1 = Doc.Sheets.getByName("Foglio1")
oSelRiga = ThisComponent.getCurrentSelection.cellAddress.Row
Sh.getCellRangeByName("Cognome").String = Sh1.GetCellbYPosition(1, oSelRiga).String
Sh.getCellRangeByName("Nome").String = Sh1.GetCellbYPosition(2, oSelRiga).String
Sh.getCellRangeByName("Citta").String = Sh1.GetCellbYPosition(5, oSelRiga).String
Sh.getCellRangeByName("Sesso").String = Sh1.GetCellbYPosition(3, oSelRiga).String
Sh.getCellRangeByName("DataNascita").Value = Sh1.GetCellbYPosition(4, oSelRiga).Value
ThisComponent.getCurrentSelection.String = Sh.getCellRangeByName("CodiceFiscale").String
End Sub
Sub CodFsicale
Doc = ThisComponent
Sh = Doc.Sheets.getByName("COD FISC")
Sh1 = Doc.Sheets.getByName("Foglio1")
oSelRiga = ThisComponent.getCurrentSelection.cellAddress.Row
oSelCol = ThisComponent.getCurrentSelection.cellAddress.Column
Sh.getCellRangeByName("Cognome").String = Sh1.GetCellbYPosition(oSelCol-7, oSelRiga).String
Sh.getCellRangeByName("Nome").String = Sh1.GetCellbYPosition(oSelCol-6, oSelRiga).String
Sh.getCellRangeByName("Citta").String = Sh1.GetCellbYPosition(oSelCol-3, oSelRiga).String
Sh.getCellRangeByName("Sesso").String = Sh1.GetCellbYPosition(oSelCol-5, oSelRiga).String
Sh.getCellRangeByName("DataNascita").Value = Sh1.GetCellbYPosition(oSelCol-4, oSelRiga).Value
ThisComponent.getCurrentSelection.String = Sh.getCellRangeByName("CodiceFiscale").String
End Sub
ecco come fare viewtopic.php?f=2&t=5661Ant52 ha scritto: Vorrei chiarito meglio come si fa a mettere l'OK di Risolto nel post
Visitano il forum: Nessuno e 8 ospiti