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