Buongiorno a tutti, ho un problema su una macro e volevo chiedervi un consiglio.
La macro è la classica salva con nome...
Sub salva()
Sheets("Prev1.").Select
Sheets("Prev1.").Copy
Directory = "C:\clienti\"
ThisFile = InputBox("Salva Con Nome") & ".xls"
ActiveWorkbook.SaveAs Filename:=Directory & ThisFile, FileFormat:=xlExcel8
MsgBox _
" Il Tuo File è stato salvato correttamente " & vbCrLf & _
" " & vbCrLf & _
(ThisFile), vbInformation
End Sub
Vorrei inserire in questa macro delle condizioni, mi spiego meglio:
se nella cella A1 c'è la x deve salvarmi il file nella Directory = "C:\clienti\garanzie"
se invece la x è presente nella cella A3 deve salvarmi il file nella Directory = "C:\clienti\pagamento"
infine se la x è presente nella cella A5 deve salvarmi il file nella Directory = "C:\clienti\allestimento"
Grazie per la tua disponibilità.