patel45, 06/11/2014 11:33:
mi sembra che ci sia qualche errore nella macro di zero, prova questa
In effetti il codice che ho allegato sopra era una versione di prova; il codice corretto è quello allegato da Patel.
Bisogna solo vedere se il file prodotto viene riconosciuto correttamente.
L'esportazione e correzione del file possono, per comodità, essere collegati ad un pulsante sul foglio.
Per quanto riguarda l'altro problema, non ti so dire se esista un'impostazione xml idonea.
Dal lato Excel si può però fare in modo che, quando viene inserito un numero in uno dei campi predisposti, questo venga automaticamente adattato al formato richiesto.
Inserisci questo nel modulo di codice del foglio interessato (controlla che le celle siano quelle giuste):
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count = 1 Then
If IsNumeric(Target) And Not Intersect(Target, Range("B93,B95,B103,B105,B107,B109,B111,B124,B126,B128,B134,B136,B150")) Is Nothing Then
Application.EnableEvents = False
Target = Replace(Target, ",", ".")
If InStr(Target, ".") = 0 Then Target = Target & ".00"
Application.EnableEvents = True
End If
End If
End Sub Allego il file con le modifiche già inserite; clicca sul pulsante per generare il file xml.
[Modificato da Zer0kelvin 06/11/2014 15:47]
__________________________
[Excel 2010]
-Condividere la conoscenza aumenta la ricchezza di tutti.
-Dai ad un uomo un pesce e lo avrai sfamato per un giorno; insegnagli a pescare e lo avrai sfamato per sempre. (Confucio)
-Il sonno della ragione genera mostri. (Francisco Goya)