Fattura pdf

Hai un problema con Excel?

Nuova discussione

Fattura pdf
di paolo (utente non iscritto) data: 11/11/2016 00:33:11
Salve ragazzi, sono giorni che cerco di risolvere questo problema
per registrare una fattura ora vi allego la mia macro che non
riesco a farla funzionare, l´intento della macro e`dover, in
sostanza registrare un file di una fattura o preventivo in formato
PDF, il PDFcon il nome,(n°Fatt. Data e nominativo Fatt.) Primo
passo aumentare il n° fattura di 1, che si trova in cella 3-13
la prima parte l`aggiornamento del n° Fatt. funziona. Secondo
Passo ho adottato il sistema di dover copiare la cella 3-13, 3-12,
7-12,=CONCATENA(C13;" ";C12;" ";G12) questo risultato in cella 12-
6, che a sua volta vado a copiare la cella 12-6 in cella 12-8
incolla con (speciali valori in numeri), per poter trasferire tutto
il risultato della cella 12-8 vado a copiare nella barra della
formula il risultato, faccio un salva col nome inserisco incolla il
risultato della barra della formula e seleziono il formato PDF per
la registrazione, Vorrei sapere se E`possibile fare funzionare la
macro, meglio ancora se si può registrare direttamente nelle
celle 3-13, 3,13, 7,12, scusatemi se vi ho inserito la macro qua`
sotto non sono stato capace di fare la sua cartella separata.
Un saluto a tutti.Paolo

Sub SalvaFattura() 
' 
' SalvaFattura Macro 

Dim numfatt As Integer 

numfatt = Val(Cells(13, 3)) 
numfatt = numfatt + 1 
Cells(13, 3) = Str(numfatt) 

ChDir _ 
"D:HYDROGESTIONE HYDROTEC7 FATTURE & PAGAMENTIANNO IN 

CORSOData Base Fatture" 
Workbooks.Open Filename:= _ 
"D:HYDROGESTIONE HYDROTEC7 FATTURE & PAGAMENTIANNO IN 

CORSOData Base FattureFATTURE ANNO IN CORSO ELENCO.xlsm" _ 
, UpdateLinks:=0 
Range("H1").Select 
Selection.Copy 
Range("H2").Select 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, 

SkipBlanks _ 
:=False, Transpose:=False 
Application.CutCopyMode = False 
Range("A1").Select 
Range(Selection, Selection.End(xlToRight)).Select 
Selection.Copy 
Range("H3").Select 
Selection.End(xlDown).Select 
Selection.End(xlToLeft).Select 
Selection.End(xlUp).Select 
ActiveCell.Offset(1, 0).Range("A1").Select 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, 

SkipBlanks _ 
:=False, Transpose:=False 
Application.CutCopyMode = False 
Selection.End(xlUp).Select 
Range("A3").Select 
ActiveWorkbook.Save 
ActiveWindow.Close 
ActiveWorkbook.Save 
End Sub

di patel data: 11/11/2016 09:56:07
per testare la macro occorre un file di esempio

Vuoi Approfondire?