Pagina 1 di 1
Copia celle da file a file
Inviato: martedì 2 marzo 2021, 9:44
da amax
Buongiorno ho un file con delle macro (qui allego un file semplificato) che mi permette di raccogliere alcuni dati da un file (in questo caso la fattura) in un altro file (riepilogo contabilità).
I campi che vengono copiati sono, come al solito, Nome Cognome... Importo, Data, ecc. Ho un piccolo problema il campo "DATA" nella copia perde la formattazione "DATA" e diventa testo (gli ho dato una funzione .string).
Come faccio a dire alla macro di copiare il campo come "DATA"?
Allego i due file
Grazie
Re: Copia celle da file a file
Inviato: martedì 2 marzo 2021, 10:02
da amax
al momento ho sostituito String con Formula e funziona.
Codice: Seleziona tutto
Archivio.getCellByPosition(5,Riga).String = Sheet.getCellRangeByName("C13").String
Codice: Seleziona tutto
Archivio.getCellByPosition(5,Riga).Formula = Sheet.getCellRangeByName("C13").String
Come si può notare sto andando a tentativi, quindi se esiste un metodo diverso e corretto ditemi pure
Grazie
Re: Copia celle da file a file
Inviato: martedì 2 marzo 2021, 10:11
da charlie
File scompattato.
Re: Copia celle da file a file
Inviato: martedì 2 marzo 2021, 10:21
da amax
charlie ha scritto:File scompattato.
Grazie
Re: Copia celle da file a file
Inviato: martedì 2 marzo 2021, 19:25
da patel
io proverei con
Codice: Seleziona tutto
Archivio.getCellByPosition(5,Riga).Formula = Sheet.getCellRangeByName("C13").Formula
Re: Copia celle da file a file
Inviato: venerdì 5 marzo 2021, 10:01
da amax
patel ha scritto:io proverei con
Codice: Seleziona tutto
Archivio.getCellByPosition(5,Riga).Formula = Sheet.getCellRangeByName("C13").Formula
Grazie, quindi è come ho fatto io
Re: Copia celle da file a file
Inviato: sabato 6 marzo 2021, 7:54
da patel
tu hai fatto
Archivio.getCellByPosition(5,Riga).Formula = Sheet.getCellRangeByName("C13").String
Re: Copia celle da file a file
Inviato: mercoledì 10 marzo 2021, 16:52
da amax
patel ha scritto:tu hai fatto
Archivio.getCellByPosition(5,Riga).Formula = Sheet.getCellRangeByName("C13").String
Infatti funziona meglio così.
Grazie