Questo browser non è più supportato.
Esegui l'aggiornamento a Microsoft Edge per sfruttare i vantaggi di funzionalità più recenti, aggiornamenti della sicurezza e supporto tecnico.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Salve a tutti,
vorrei sapere come devo fare per creare un macro per far si che ogni volta che premo il bottone mi salvi una copia del file in PDF con numero della fattura, nome cliente, data emissione fattura.
In oltre vorrei sapere quale formula/macro devo utilizzare per far si che ogni volta che stampo/salvo il file mi venga maggiorato di 1 il numero progressivo della fattura.
Per la data utilizzo la fx =OGGI().
Grazie mille in anticipo...
Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione dei dati.
Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.
Definisci tu il range di celle non protette da *ripulire*. Ad esempio:
Range("A1:A2, C1:C2, A9:C9").Clear
Considero nome cliente in A1, data in B1, numero fattura in C1, tutto nel Foglio1.
Come prima cosa creo un Nome e gli assegno il valore di 1.
Quindi copio/incollo questo in un modulo standard:
Public Sub mCompila()
With Worksheets("Foglio1")
.Range("B1").Value = Date
.Range("C1").Value = [FatturaNumero]
End With
End Sub
Public Sub Stampa()
Dim sh As Worksheet
Dim sNomeFile As String
Dim lng As Long
lng = [FatturaNumero]
Set sh = ThisWorkbook.Worksheets("Foglio1")
With sh
sNomeFile = Range("C1").Value & _
.Range("A1").Value & _
Format(.Range("B1").Value, "dd-mm-yyyy")
.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\Prova" & sNomeFile & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End With
ActiveWorkbook.Names.Add Name:="FatturaNumero", _
RefersToR1C1:="=" & lng + 1
'qui il codice che cancella i valori dalle celle
'per preparare la nuova fattura, ad esempio
'.Range("A3:D10").Value=""
Set sh = Nothing
ThisWorkbook.Save
End Sub
Poi creo due pulsanti o due tasti di scelta rapida ai quali assegno le due macro.
Con mCompila mi ritrovo il numero di fattura e la data.
Con mStampa stampo il Foglio1 e una volta salvato come pdf, automaticamente aumento di 1 il numero della fattura e cancello le celle per una nuova fattura.
Ci diamo del tu, grazie, o mi sento più vecchio di quello che (ahimè) sono... ;-)
Manda il file qui:
maurogsc
chiocciola
alice.it
Ho fatto come diceva lei ma mi continua a dare questi 2 errori...
Se per lei non è un disturbo, potrei inviarle direttamente il file, cosi controlla dove sbaglio?
No.
C:\Prova\ è dove viene salvato il file.
Nel codice qui sotto in grassetto le parti da modificare con i tuoi riferimenti:
Public Sub mCompila()
With Worksheets("Foglio1")
.Range("B1").Value = Date
.Range("C1").Value = [FatturaNumero]
End With
End Sub
Public Sub Stampa()
Dim sh As Worksheet
Dim sNomeFile As String
Dim lng As Long
lng = [FatturaNumero]
Set sh = ThisWorkbook.Worksheets("Foglio1")
With sh
sNomeFile = Range("C1").Value & _
.Range("A1").Value & _
Format(.Range("B1").Value, "dd-mm-yyyy")
.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="**C:\Prova**" & sNomeFile & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End With
ActiveWorkbook.Names.Add Name:="FatturaNumero", _
RefersToR1C1:="=" & lng + 1
'qui il codice che cancella i valori dalle celle
'per preparare la nuova fattura, ad esempio
'.Range("A3:D10").Value=""
Set sh = Nothing
ThisWorkbook.Save
End Sub