Ciao a tutti, mi presento mi chiamo kevin, e spero che possiate aiutarmi in questa mia situazione, e vi ringrazio in anticipo per il supporto che mi darete!!!
premetto che non ho alcuna conoscenza di tale codice....e non sono preparato in materia pero ho estremo bisogno di questa macro..quindi spero mi possiate aiutare
allora vi spiego il mio problema,
ho un foglio di excell che si chiama FATTURE, il foglio in questione è un pre-compilato dove andranno messi i dati del cliente e relativa prestazione con relativo costo ecc ecc.
sostanzialmente io ho già trovato una macro che fa al caso mio praticamente clicco sulla macro mi apre la pagina di salvataggio del file con estensione PDF con la seguente digitura "fattura_29-05-2015_15.21.51" nome file fattura data e ora.
a me andrebbe anche bene solo che ho necessita per praticità che prima della dicitura FATTURA compaia in automatico il nome e cognome del cliente che stanno nella cella E5-F5 (2 celle unite dove si trova il nome) e celle E6-F6 (anch'esse unite dove si trova il cognome.
a questo punto vorrei che al momento che eseguo la macro il file abbia tale forma
Mario_rossi_fattura_29-05-2015_15.21.51
dove il mario lo prende dalle 2 celle unite E5-F5 e il rossi dalle celle unite E6-F6
io attualmente sto utilizzando la seguente macro spero possiate aiutarmi in questo mio piccolo problema
p.s dimenticavo tale file verrà adoperato da diverse versioni di excel che variano dal 2007 fino all'ultimo 2013
[TESTO ::vb]Sub SalvaInPDF()
Dim ws As Worksheet
Dim strIndirizzo As String
Dim myFile As Variant
Dim strFile As String
On Error GoTo errHandler
Set ws = ActiveSheet
'apre la finestra di dialogo per il salvataggio dei file
'la cartella di default è la stessa della cartella di excel
strFile = Replace(Replace(ws.Name, " ", ""), ".", "_") _
& "_" _
& Format(Now(), "dd-mm-yyyy\_hh.mm.ss") _
& ".pdf"
strFile = ThisWorkbook.Path & "\" & strFile
myFile = Application.GetSaveAsFilename _
(InitialFileName:=strFile, _
FileFilter:="PDF Files (*.pdf), *.pdf", _
Title:="Seleziona la cartella e inserisci il nome del file da salvare")
If myFile <> False Then
ws.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=myFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
MsgBox "Il file PDF è stato salvato."
End If
exitHandler:
Exit Sub
errHandler:
MsgBox "Non ho potuto salvare il file PDF"
Resume exitHandler
End Sub[/TESTO]
[Modificato da angeluskk 29/05/2015 20:13]