gengar wrote:
[...]
Ci sono diversi errori. Ad esempio non capisco perché hai scritto DATA
invece di "Data". Poi confronti un oggetto con la stringa vuota. Ci sono
due metodi, IsNull e IsEmpty che controllano se una variabile non
contiene dati o non è inizializzata, ma non li puoi usare per una cella
presente nel foglio. Se la cella è vuota, vuol dire che contiene il
valore 0.
Per controllare il valore della cella (non è un intervallo, mi pare di
capire) si potrebbe fare così:
' accedo alla tabella
oSheet = ThisComponent.CurrentController.ActiveSheet
' al posto di Range si può usare oSheet.GetCellRangeByName
oData = oSheet.GetCellRangeByName("Data")
If oData.Value = 0 Then
MsgBox ("Dati Incompleti")
End If
Mi pare che il resto della prima macro non faccia altro che spostare un
gruppo di celle da una tabella ad un'altra, giusto?
Proverei a vedere se funziona il metodo copyRange(rangedestinazione,
rangeorigine) (non so se funziona tra tabelle diverse), seguito da
ClearContents per eliminare il contenuto originario.
Potresti ripulire un po' tutte e tre le macro togliendo le righe che non
servono (e quindi verificandone il funzionamento alla fonte, cioè in
Excel). Forse questo faciliterebbe la comprensione del codice.
Ciao,
--
MC
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
