Condividi:        

Salvataggio in automatico subito dopo la scrittura di dati

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

Salvataggio in automatico subito dopo la scrittura di dati

Postdi Zagor57 » 11/06/15 19:13

Buonasera a tutto il forum
avrei bisogno di qualche dritta,mi spiego :
alla conferma dei dati,da parte dell'operatore con l'apposito pulsante (Salva i dati di scrittura ) vorrei che subito dopo che la macro esegue la scrittura contemporaneamente faccia il salvataggio di tutta la cartella di lavoro.
Sono riuscito a trovare qualcosa simile nel Nostro Forum che è la seguente
Codice: Seleziona tutto
  nome = "C:\Users\Administrator\Desktop\FidelityCard" & ".xlsm" ' <<Salva il file sul Desktop con il nome FidelityCard
    ActiveWorkbook.SaveAs nome

mentre questa è l'intera macro
Codice: Seleziona tutto
Sub Inseriscinuovocliente()
'
' Inseriscinuovocliente Macro
'

'
    If Range("E7") = "" Or Range("E8") = "" Or Range("E9") = "" Or Range("E10") = "" Or Range("E11") = "" Or Range("E13") = "" Or Range("E16") = "" Or Range("E17") = "" Or Range("E18") = "" Or Range("E19") = "" Then
       MsgBox ("Attenzione i Campi con * sono obbligatori non compilati tutti"): Exit Sub
    End If
    '
    '
       If Evaluate("=SUMPRODUCT(--(CM$3:CM$5000=$E$9),--($CN$3:$CN$5000=$E$10),--($CQ$3:$CQ$5000=$E$13))") > 0 Then
        MsgBox ("                       ATTENZIONE  " & vbCrLf & vbCrLf & Range("E9") & "  -  " & Range("E10") & "  -  " & Range("E13") & vbCrLf & vbCrLf & "              Esiste già in anagrafica " & vbCrLf & vbCrLf & "              Correggere e riprovare")
        Exit Sub
    Else
        'il codice per inserire il nuovo record
        '
    End If


 Range("E7:E27").Select
    Selection.Copy
    Sheets("Hompage").Select
    Range("Cj3").Select
    Selection.End(xlDown).Select
    Range("Ck1048576").Select
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    ActiveCell.Offset(86, 20).Range("A1").Select
    Sheets("Hompage").Select
    Range("E20:E18").Select
    Selection.ClearContents
    Range("E16:E15").Select
    Selection.ClearContents
    Range("E13").Select
    Selection.ClearContents
    Range("E10:E7").Select
    Selection.ClearContents
    Range("E7").Select
    '
    nome = "C:\Users\Administrator\Desktop\FidelityCard" & ".xlsm" ' <<Salva il file sul Desktop con il nome FidelityCard
    ActiveWorkbook.SaveAs nome
   
End Sub

Si mi effettua il salvataggio,ma vorrei evitare la domanda "esiste già un file con questo nome " e faccia direttamente il salvataggio
Ciao
attendo come sempre il Vostro aiuto Grazie
Avatar utente
Zagor57
Utente Junior
 
Post: 75
Iscritto il: 04/05/15 19:35
Località: Massafra TA

Sponsor
 

Re: Salvataggio in automatico subito dopo la scrittura di da

Postdi Anthony47 » 12/06/15 00:11

Ma tu vuoi salvare il file col suo nome (quindi comando Thisworkbook.Save) o vuoi cambiarne il nome (quindi comando ThisWorkbook.SaveAs)??

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Salvataggio in automatico subito dopo la scrittura di da

Postdi Zagor57 » 12/06/15 07:03

Ok fatto,
Il salvataggio era sempre con lo stesso nome
grazie

Ciao
Avatar utente
Zagor57
Utente Junior
 
Post: 75
Iscritto il: 04/05/15 19:35
Località: Massafra TA


Torna a Applicazioni Office Windows


Topic correlati a "Salvataggio in automatico subito dopo la scrittura di dati":


Chi c’è in linea

Visitano il forum: Nessuno e 32 ospiti