Premesso che sono scarsissimo con il limguaggio VBA, sono qomunque riuscito a creare, cercando in internet, la MACRO che posto alla fine.
In pratica da un foglio excel mi estrae, con un filtro, dei dati che vengono salvati in un altro foglio excel a sua volta salvato in una determinata cartella. Il mio DESIDERIO sarebbe quello di creare direttamente dei PDF (anzichè excel) salvati nella stessa cartella (qusti file vanno poi inviati a diversi utenti per mail).
Ho provato a sostituire .xls con .pdf: in realtà mi crea un file che non riesco però ad aprire in quanto mi dà messaggio di errore (Adobe reader non è in grado di aprire 'file.pdf' perchè è un tipo di file non supportato...)
Ho provato anche ad aggiungere alla mia MACRO alcuni comandi che ho trovato in rete, ma non funziona, probabilmente per il fatto che sbaglio la sintassi oppure i comandi non vanno bene!
C'è qualche anima buona che riescea darmi una mano?
XP - OFFICE 2003 - PDFCREATOR
Ecco la macro
- Codice: Seleziona tutto
Sub Filtro()
Sheets("FONTI").Select
Selection.AutoFilter Field:=1, Criteria1:=Range("Foglio1!A1").Value
Cells.Select
Selection.Copy
Sheets("Foglio2").Select
Cells.Select
ActiveSheet.Paste
Cells.Select
Cells.EntireColumn.AutoFit
Application.CutCopyMode = False
Sheets("Foglio2").Copy
Range("A1").Select
ChDir "O:\xxxx\xxx\xxx\SETTEMBRE 2014\FONTI"
ActiveWorkbook.SaveAs Filename:= _
"O:\xxxx\xxxx\xxxxx\SETTEMBRE 2014\FONTI\" _
& Range("A2") & "-" & ("FONTI") & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
End Sub