Condividi:        

Compilazione ordine con form

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Re: Compilazione ordine con form

Postdi lucaferrolf » 29/06/15 16:35

La seconda:

presente l'elenco matricole, D6 foglio 3 che da anche il nome al file pdf ?? ecco quell'elenco praticamente io lo dovrei copiare e incollare giornalmente da un'altro file, si riesce a farglielo aggiornare da solo dall'altro file??

questa è un po piu complicata.

;)
lucaferrolf
Utente Junior
 
Post: 49
Iscritto il: 15/01/15 15:58

Sponsor
 

Re: Compilazione ordine con form

Postdi ricky53 » 29/06/15 23:58

Ciao,
risposta alla prima necessità:
Codice: Seleziona tutto
Sub Prova_File_Esistente()
    mNome = "Drive\TuoPerorso\NomeFile.pdf"
    If Dir(mNome) <> "" Then
        MsgBox "Il file è già presente nel percorso scelto"
    Else
' qui metti le istruzioni che producono il file PDF
    MsgBox "il file non esiste e viene salvato il file PDF"
    End If
End Sub
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Compilazione ordine con form

Postdi lucaferrolf » 30/06/15 07:24

io devo inserirlo qua dentro però:

Next

Application.CutCopyMode = False

UR = Worksheets("Sheets2").Range("A" & Rows.Count).End(xlUp).Row
ditta = UserForm1.ComboBox5.Value
matricole = UserForm1.ComboBox6.Value

Unload Me
Worksheets("Sheets2").Range("a1:e" & UR + 1).Copy Destination:=Worksheets("Foglio3").Range("a8")
Worksheets("Foglio3").Range("a3").Value = ditta
Worksheets("Foglio3").Range("d6").Value = matricole
Worksheets("Foglio3").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"\\DISKSTATION\Produzione\Distinte Tubi\2015\Serie Emesse\" & Range("D6").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:= _
True, IgnorePrintAreas:=False, OpenAfterPublish:=False ' <-- Attenzione devi variare percorso su riga precedente
Worksheets("Sheets2").Range("a1:f200").Clear
Application.ScreenUpdating = True

MsgBox "Operazioni concluse."
End Sub
lucaferrolf
Utente Junior
 
Post: 49
Iscritto il: 15/01/15 15:58

Re: Compilazione ordine con form

Postdi lucaferrolf » 30/06/15 16:22

su questa parte avrei due quesiti:

1 - farlo funzionare anche con pdf creator
2 - errore con file gia presente (con stesso nome)
lucaferrolf
Utente Junior
 
Post: 49
Iscritto il: 15/01/15 15:58

Re: Compilazione ordine con form

Postdi ricky53 » 30/06/15 23:56

Ciao,
il controllo sull'esistenza del file va fatto prima dell'istruzione
Codice: Seleziona tutto
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
 "\\DISKSTATION\Produzione\Distinte Tubi\2015\Serie Emesse\" & Range("D6").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:= _
 True, IgnorePrintAreas:=False, OpenAfterPublish:=False ' <-- Attenzione devi variare percorso su riga precedente


Se il file ESISTe dai il messaggio di esistenza e TERMINI l'elaborazione oppure con un messaggio a scelta chiede all'utente di scegliere di ricoprire il file esistente o di terminare l'elaborazione.


Perché vuoi renderlo utilizzabile con PDFCreator?
Office gestisce la scrittura in Pdf senza problemi, a partire dalla versione 2010 (la 2007 non lo so se lo consente).
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Compilazione ordine con form

Postdi lucaferrolf » 01/07/15 07:46

ho un pc con 2003 :cry: :cry: :cry:
lucaferrolf
Utente Junior
 
Post: 49
Iscritto il: 15/01/15 15:58

Re: Compilazione ordine con form

Postdi lucaferrolf » 01/07/15 08:05

ho provato ad inserire la parte per il controllo pdf ma mi da errore, come lo inserisco ?
lucaferrolf
Utente Junior
 
Post: 49
Iscritto il: 15/01/15 15:58

Re: Compilazione ordine con form

Postdi ricky53 » 01/07/15 11:00

Ciao,
riporta il codice che hai modificato e dicci quale errore ottieni
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Compilazione ordine con form

Postdi lucaferrolf » 01/07/15 11:49

Next

Application.CutCopyMode = False

UR = Worksheets("Sheets2").Range("A" & Rows.Count).End(xlUp).Row
ditta = UserForm1.ComboBox5.Value
matricole = UserForm1.ComboBox6.Value

Unload Me
Worksheets("Sheets2").Range("a1:e" & UR + 1).Copy Destination:=Worksheets("Foglio3").Range("a8")
Worksheets("Foglio3").Range("a3").Value = ditta
Worksheets("Foglio3").Range("d6").Value = matricole
Worksheets("Foglio3").Activate

mNome = "Drive\TuoPerorso\NomeFile.pdf"
If Dir(mNome) <> "" Then
MsgBox "Il file è già presente nel percorso scelto"
Else
' qui metti le istruzioni che producono il file PDF
MsgBox "il file non esiste e viene salvato il file PDF"
End If

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"\\DISKSTATION\Produzione\Distinte Tubi\2015\Serie Emesse\" & Range("D6").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:= _
True, IgnorePrintAreas:=False, OpenAfterPublish:=False ' <-- Attenzione devi variare percorso su riga precedente
Worksheets("Sheets2").Range("a1:f200").Clear
Application.ScreenUpdating = True

MsgBox "Operazioni concluse."
End Sub
lucaferrolf
Utente Junior
 
Post: 49
Iscritto il: 15/01/15 15:58

Re: Compilazione ordine con form

Postdi lucaferrolf » 01/07/15 11:51

Scusa ho sbagliato:

Next

Application.CutCopyMode = False

UR = Worksheets("Sheets2").Range("A" & Rows.Count).End(xlUp).Row
ditta = UserForm1.ComboBox5.Value
matricole = UserForm1.ComboBox6.Value

Unload Me
Worksheets("Sheets2").Range("a1:e" & UR + 1).Copy Destination:=Worksheets("Foglio3").Range("a8")
Worksheets("Foglio3").Range("a3").Value = ditta
Worksheets("Foglio3").Range("d6").Value = matricole
Worksheets("Foglio3").Activate

mNome = "\\DISKSTATION\Produzione\Distinte Tubi\2015\Serie Emesse\" & Range("D6").Value & ".pdf"
If Dir(mNome) <> "" Then
MsgBox "Il file è già presente nel percorso scelto"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"\\DISKSTATION\Produzione\Distinte Tubi\2015\Serie Emesse\" & Range("D6").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:= _
True, IgnorePrintAreas:=False, OpenAfterPublish:=False ' <-- Attenzione devi variare percorso su riga precedente
Worksheets("Sheets2").Range("a1:f200").Clear
Application.ScreenUpdating = True

MsgBox "Operazioni concluse."
End Sub
lucaferrolf
Utente Junior
 
Post: 49
Iscritto il: 15/01/15 15:58

Re: Compilazione ordine con form

Postdi ricky53 » 01/07/15 13:34

Ciao,
che errore ottieni?

Comunque manca "Else" e devi sapere cosa va fatto dopo il messaggio di segnalazione di file esistente.

Non sapendo cosa fare abbozzo un tentativo
Codice: Seleziona tutto
' ...
mNome = "\\DISKSTATION\Produzione\Distinte Tubi\2015\Serie Emesse\" & Range("D6").Value & ".pdf"
If Dir(mNome) <> "" Then
    MsgBox "Il file è già presente nel percorso scelto, NON viene prodotto il file PDF aggiornato !!!"
Else
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "\\DISKSTATION\Produzione\Distinte Tubi\2015\Serie Emesse\" & Range("D6").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:= _
        True, IgnorePrintAreas:=False, OpenAfterPublish:=False ' <-- Attenzione devi variare percorso su riga precedente
End If
Worksheets("Sheets2").Range("a1:f200").Clear
' ...
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Compilazione ordine con form

Postdi lucaferrolf » 01/07/15 15:07

mi da errore:

mNome

all'inizio.
lucaferrolf
Utente Junior
 
Post: 49
Iscritto il: 15/01/15 15:58

Re: Compilazione ordine con form

Postdi ricky53 » 01/07/15 15:57

Ciao,
si ma che errore.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Compilazione ordine con form

Postdi lucaferrolf » 01/07/15 16:20

mNome=

Errore di compilazione
variabile non definita
lucaferrolf
Utente Junior
 
Post: 49
Iscritto il: 15/01/15 15:58

Re: Compilazione ordine con form

Postdi ricky53 » 01/07/15 16:48

Ciao,
devi definire la variabile prima di utilizzarla: tipo "String"
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Compilazione ordine con form

Postdi lucaferrolf » 02/07/15 16:24

non puoi correggermela direttamente e capisco anche ?!?

Per favore ovviamente.
lucaferrolf
Utente Junior
 
Post: 49
Iscritto il: 15/01/15 15:58

Re: Compilazione ordine con form

Postdi ricky53 » 02/07/15 16:49

Ciao,
ma è semplice !!! Potevi leggere come si definiscono le variabili ... pigrone !!!

Comunque ad inizio macro devi semplicemente scrivere
Codice: Seleziona tutto
Dim mNome as String
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Compilazione ordine con form

Postdi lucaferrolf » 03/07/15 07:58

avevo gia provato.... :lol:
lucaferrolf
Utente Junior
 
Post: 49
Iscritto il: 15/01/15 15:58

Re: Compilazione ordine con form

Postdi lucaferrolf » 03/07/15 09:16

ok ,fatto, grazie mille.
lucaferrolf
Utente Junior
 
Post: 49
Iscritto il: 15/01/15 15:58

Re: Compilazione ordine con form

Postdi lucaferrolf » 03/07/15 09:22

ora mi rimane il problema di poterlo far girare anche con pdf creator, hai soluzioni??
lucaferrolf
Utente Junior
 
Post: 49
Iscritto il: 15/01/15 15:58

PrecedenteProssimo

Torna a Applicazioni Office Windows


Topic correlati a "Compilazione ordine con form":


Chi c’è in linea

Visitano il forum: Nessuno e 80 ospiti