Ciao ragazzi,
sto cercando di estrarre un commento e copiarlo in una cella. Non ho trovato alcuna funzione che facesse questo e se provo a fare copia - incolla speciale - commenti mi copia il commento di una cella nel commento di un'altra cella.
A questo link: https://www.extendoffice.com/it/documen ... ments.html ho trovato questo codice:
sub copiacommenti2
sh = ThisComponent.Sheets(0)
for r = 1 to 4
oCell = sh.getCellByPosition(0,r)
oNote = oCell.Annotation
if oNote.String <> "" then
Sh.getCellByPosition(2, r).string = oNote.String
end if
next r
end sub
-------------------
Libre Office 7.5.3.2 su Windows 11
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta