Mi sono costruito un programma di fatturazione con
Excel Tutto bene fino a quando devo
archiviare i totali, le date ,ecc.
delle fatture in un archivio appena ho finito
di fatturare il mese:
Io adesso sto usando il sistema dell'uguale
cella, però devo portarle tutte ad una ad una
Se qualcuno può aiutrami grazie
Pippo

con due righe di macro si risolve facilmente il problema. bisognerebbe sapere come è strutturato il tuo foglio di lavoro.
saluti.
Andrea

---

salve
questa è un esempio di macro che applicata ad un pulsante sul foglio ti trasferisce i dati della fattura su un foglio di riepilogo.
Sub aggiorna_archivio()
Application.ScreenUpdating = False
Sheets("foglio2").Select 'si ipotizza che l'archivio sia posto nel foglio 2 della cartella di lavoro
Dim riga As Integer
'routine che cerca la prima cella libera del foglio2 "archivio fatture" a partire dalla riga 2
riga = 2
While Cells(riga, 1).Value () ""
riga = riga + 1
Wend
Cells(riga, 1) = Sheets("foglio1").Range("h4").Value ' numero fattura
Cells(riga, 2) = Sheets("foglio1").Range("h6").Value ' data fattura
Cells(riga, 3) = Sheets("foglio1").Range("h9").Value ' cliente
Cells(riga, 4) = Sheets("foglio1").Range("c61").Value ' imponibile
Cells(riga, 5) = Sheets("foglio1").Range("d61").Value 'iva
Cells(riga, 6) = Sheets("foglio1").Range("f61").Value ' spese
Cells(riga, 7) = Sheets("foglio1").Range("h61").Value 'totale fattura
Application.ScreenUpdating = True
End Sub

saluti
andrea

solito problema il segno di maggiore minore è stato sostituoto dalle parentesi tonde
While Cells(riga, 1).Value () ""


Edited by - a10n11 on 07/03/2005 21:44:51

---

Ciao a10n11
Ti ringrazio per la macro inviatami ma
mi da un errore cioè viene la riga in rosso su:
While=Cells(riga,1).Value()""
e mi dice errore sintassi ecc.
Puoi capirci qualcosa?
Ciao Piero

<BLOCKQUOTE id=quote><font size=1 face="Sans Serif, Arial, Helvetica" id=quote>quote:<hr height=1 noshade id=quote>
Mi sono costruito un programma di fatturazione con
Excel Tutto bene fino a quando devo
archiviare i totali, le date ,ecc.
delle fatture in un archivio appena ho finito
di fatturare il mese:
Io adesso sto usando il sistema dell'uguale
cella, però devo portarle tutte ad una ad una
Se qualcuno può aiutrami grazie
Pippo
<hr height=1 noshade id=quote></BLOCKQUOTE id=quote></font id=quote><font face="Sans Serif, Arial, Helvetica" size=2 id=quote>
Con cosa sostituisco le parentesi Con ) e questo ( e dove?
Aspetto Ciao
Piero

visto che qui non trovo modo di rappresentare i cartteri giusti, ti ho mandato il testo della macro corretta alla tua mail di aiutamici.
saluti
Andrea

---

nella Homepage nella sezione servizi
clicca Webmail inserisci la ua username e password e accedi alla tua casella di posta di aiutamici.
saluti
Andrea

---