scusami ma forse ho saltato qualche passaggio.... non mi hai detto tu di inserire così la macro?
dove ho sbagliato?
Puoi riformularmi la macro corretta per favore?
certo che 3 mb non mi stanno bene!!!!
Grazie
Moderatori: Anthony47, Flash30005
Sub salva()
'
Sheets("Prev1.").Select
Sheets("Prev1.").Copy
'
Cells.ClearContents '<<<1 Vedi Testo 1
Range("A1").Select
ThisWorkbook.Sheets("Prev1.").Range("A1:P111").Copy
ActiveSheet.Paste
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
'
Application.DisplayAlerts = False
Directory = "C:\Clienti\"
ThisFile = InputBox("Salva Con Nome") & ".xls"
'
On Error Resume Next '<<<2 Vedi Testo 2
ActiveWorkbook.SaveAs Filename:=Directory & ThisFile, FileFormat:=xlExcel8
'
If ActiveWorkbook.Name <> ThisFile Then
Mess = "ATTENZIONE, file NON SALVATO" & vbCrLf & _
"Provare a salvare il file Manualmente"
Stile = 16
Else
Mess = " Il Tuo File è stato salvato correttamente " & vbCrLf & _
" " & vbCrLf & ThisFile
Stile = 64
ActiveWorkbook.Close
End If
MsgBox Mess, Stile
'
'ActiveWorkbook.Close
'
End Sub
Torna a Applicazioni Office Windows
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Excel 2016 - Funzione SCARTO + INDIRETTO Autore: pl1957 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 61 ospiti