[Risolto] macro funziona a singhiozzo

[Alelon]

Salve, allego un file con una macro capricciosa. La macro a volte funziona volte no e altre volte, seppur non associata a nessun evento, parte lo stesso.

[bobo779256]

Se non ho capito male, la macro dovrebbe verificare se D14 è compilata, se 'si' aumenta di 1 la cella D7

Editato: si, ho sbagliato a scrivere, se 'no' aumenta di 1 D7

Se è così secondo me dovresti modificare la riga

Codice: Seleziona tutto

If isEmpty(oCella) then

in

Codice: Seleziona tutto

If oCella = "" then

ed aggiungere .string a oCella, cioè:

Codice: Seleziona tutto

oCella=Sheet.getCellRangeByName("D14").string

isEmpty non verifica se nella cella specificata c'è qualcosa, ma, come da help:

Controlla se una variabile di tipo Variant contiene il valore Empty. Il valore Empty indica che la variabile non è inizializzata.

[Alelon]

Incrementa se non è compilata

[Alelon]

Potresti scrivere il codice corretto di tutta la macro?

Grazie

[bobo779256]

Codice: Seleziona tutto

Sub IncrementaSalva
Dim Doc as object, Sheet as object, oCella as string
Doc = thiscomponent
Sheet = Doc.Sheets(0)
oCella=Sheet.getCellRangeByName("D14").string
If oCella = "" then
Sheet.getCellRangeByName("D7").Value =Sheet.getCellRangeByName("D7").Value +1
Doc.store()
Else
'trasforma in commento questo comando per non visualizzare il messaggio
msgbox "macro non esegue nulla."&chr(13)&"Trasforma in commento il comando presente nel codice responsabile di questo messaggio"
End if
End Sub

ed allego anche il tuo file d'esempio aggiustato

[Alelon]

Ti voglio bene. Funziona benissimo.
Grazie.

[bobo779256]

Meglio così

[unlucky83]

Fai attenzione
Ti avevo già segnalato che c’era quell’errore e ti avevo allegato il file corretto
viewtopic.php?f=9&t=11466#p65445
Hai fatto confusione con i file

[Alelon]

Verissimo.Avevi già risolto tutto.
Ho fatto un po' di confusione io con i file

[unlucky83]

Nessun problema. L’importante è che sia tutto chiaro. Grazie @bobo779256