perdonami
ho scaricato excel utilities , ma cosa devo fare in concreto?
che tasti devo utilizzare?
Moderatori: Anthony47, Flash30005
Sub salva3()
Directory = "C:\Temp\"
ThisFile = [B2] & [D2] & ".xls"
If ThisFile = ".xls" Then
MsgBox "Impossibile dare il nome al file (B2 e D2 vuoti)"
Exit Sub
End If
ActiveSheet.Copy
For Each Pict In ActiveSheet.Shapes
If Left(Pict.Name, 6) = "Button" Then
ActiveSheet.Shapes(Pict.Name).Cut
End If
Next Pict
Columns("AK:BE").Delete Shift:=xlToLeft
ActiveWorkbook.SaveAs Filename:=Directory & ThisFile
'<<<< eliminare le righe che seguono se non occorrono
MsgBox _
" Il Tuo File è stato salvato correttamente " & vbCrLf & _
" " & vbCrLf & (ThisFile), vbInformation
End Sub
Sub salva4()
Directory = "C:\Temp\"
ThisFile = [B2] & [D2] & ".xls"
If ThisFile = ".xls" Then
MsgBox "Impossibile dare il nome al file (B2 e D2 vuoti)"
Exit Sub
End If
ActiveSheet.Copy
Cells.Copy '<<<<< riga aggiunta
Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False '<<< riga aggiunta
For Each Pict In ActiveSheet.Shapes
If Left(Pict.Name, 6) = "Button" Then
ActiveSheet.Shapes(Pict.Name).Cut
End If
Next Pict
Columns("AK:BE").Delete Shift:=xlToLeft
ActiveWorkbook.SaveAs Filename:=Directory & ThisFile
'<<<< eliminare le righe che seguono se non occorrono
MsgBox _
" Il Tuo File è stato salvato correttamente " & vbCrLf & _
" " & vbCrLf & Directory & ThisFile, vbInformation
End Sub
Torna a Applicazioni Office Windows
Conta.più.se con solo parte del testo Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 9 |
Macro protezione foglio con password non funge Autore: xilofono |
Forum: Applicazioni Office Windows Risposte: 13 |
Esiste un riferimento relativo al foglio precedente? Autore: wallace&gromit |
Forum: Applicazioni Office Windows Risposte: 4 |
EXCEL - Estrazione nome file senza estensione da percorso Autore: Dylan666 |
Forum: Applicazioni Office Windows Risposte: 6 |
Problema stampa due pagine Excel su foglio A4 Autore: dipdip |
Forum: Applicazioni Office Windows Risposte: 11 |
Visitano il forum: Nessuno e 103 ospiti