Come vedi la necessita' aguzza l' ingegno; bene!
Per evitare di sporcare il txt con le informazioni sulle righe presenti, puoi fare qualsto calcolo direttamente nel vba con l' istruzione
- Codice: Seleziona tutto
X = Worksheets("Foglio1").Cells(Rows.count,6).Enx(xlup).row
Tieni anche presente che, dopo aver replicato le formule, e' inutile fare il copia/incolla speciale valori giacche' con il salvataggio ".txt" automaticamente saranno salvati i valori presenti.
Come pure e' superflua la tecnica di leggere il nome dell' ActiveWorkbook e poi chiudere il Workbook con quel nome; e' sufficiente usare
- Codice: Seleziona tutto
Activeworkbook.close SaveChanges:=False
Per quanto riguarda il nome con cui salvare, sostituirai la tua "
ActiveWorkbook.SaveAs etc etc" con queste 2:
- Codice: Seleziona tutto
NomeTxt = Replace(ActiveWorkbook.Name, ".xlsm", ".txt")
ActiveWorkbook.SaveAs Filename:=NomeTxt, _
FileFormat:=xlUnicodeText, CreateBackup:=False
Il triangolino sulle pseudodate non e' un errore ma una segnalazione; se espandi il "punto esclamativo" che vedi quando selezioni la cella, noterai che segnala "Numero memorizzato come testo". Se ti da' fastidio puoi emininare questa segnalazione su Menu /Strumenti /Opzioni, tab Controlli errori.
Dopo aver salvato in formato txt il file e' da chiudere, cosa che la macro mi pare faccia gia' (
Workbooks(OWb).Close SaveChanges:=False o come la vorrai modificare) perche' non so se le caratteristiche non compatibili col formato txt vengono tutte mantenute; in questo senso e' anche opportuno che il file venga salvato a inizio macro (aggiungi
ActiveWorkbook.Save).
Ciao.
Registrazione
