|
Login
  • Page:
  • 1

TOPIC: Copia fogli selezionati in nuova cartella

Copia fogli selezionati in nuova cartella 8 years 9 months ago #7188

  • drone
  • drone's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 4
  • Karma: 0
Buongiorno,
ho questo comando che mi permette di stampare i fogli che ho selezionato:

Private Sub CommandButton2_Click()
Dim sFogli As String


If CheckBox2.Value = True Then
sFogli = "200 metri L.V."
End If
If CheckBox3.Value = True Then
If sFogli <> "" Then
sFogli = sFogli & ","
End If
sFogli = sFogli & "300 metri L.V."
End If
If CheckBox4.Value = True Then
If sFogli <> "" Then
sFogli = sFogli & ","
End If

If sFogli <> "" Then

Sheets(Split(sFogli, ",")).Select
Application.Dialogs(xlDialogPrint).Show
'MsgBox "Stampa"
Else
MsgBox "Nessun tabella selezionata selezionarne almeno UNA"
End If

End Sub

Vorrei modificarla in modo che invece di stampare i fogli me li copi in una nuova cartella sostituendo il comando Application.Dialogs(xlDialogPrint).Show con quello che mi copia i fogli selezionati in una nuova cartella.
Grazie a chi mi darà una mano
Drone
Last Edit: 8 years 9 months ago by drone.
The administrator has disabled public write access.

Copia fogli selezionati in nuova cartella 8 years 9 months ago #7209

  • mauro27
  • mauro27's Avatar
  • OFFLINE
  • Platinum Boarder
  • Posts: 636
  • Thank you received: 9
  • Karma: 42
ciao

al posto di
Sheets(Split(sFogli, ",")).Select

usa
Sheets(Split(sFogli, ",")).Copy

al posto di
Application.Dialogs(xlDialogPrint).Show
'MsgBox "Stampa"

usa x excel 2010
ActiveWorkbook.SaveAs Filename:=NuovoFile, FileFormat:=56
o per excel 2002
ActiveWorkbook.SaveAs Filename:=NuovoFile


ciao
mauro
mauro27 - excel 2010 su Win7 - excel 2011 su Mac
_________________________________________________
"per ogni problema esistono almeno 3 soluzioni, l'importante è trovare quella più semplice" - Mauro
"Ogni problema ha tre soluzioni: la mia soluzione, la tua soluzione, e la soluzione giusta" -...
The administrator has disabled public write access.
The following user(s) said Thank You: drone

Copia fogli selezionati in nuova cartella 8 years 9 months ago #7211

  • drone
  • drone's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 4
  • Karma: 0
Grazie Mauro, domani la modifico
Drone
The administrator has disabled public write access.
  • Page:
  • 1
Time to create page: 0.418 seconds