PDA

View Full Version : an active sheet save as copy



coxonitus
05-02-2011, 05:08 AM
hello,
i'm having the following problem, and i'm getting it not fixed.

Dim exemplaar As String
exemplaar = Application.InputBox(Title:=UCase("Wat moet er gebeuren ?"), prompt:="* Document opslaan en afsluiten ? = Antwoord : Ja" & vbLf & "* Pagina afdrukken, geef aantal exemplaren :" & vbLf & "* niets doen : antwoord A", Default:="1", Type:=2)
Select Case UCase(exemplaar)
Case "", "A": MsgBox "je hebt op annuleren gedrukt"
Case "JA": ActiveSheet.SaveAs "G:\Project\Temp.File\Brandstofverbruik" & SheetName & ".xlsm"
Sheets("Schakelbord").Select
Range("E15").Select
Case Else
If IsNumeric(exemplaar) Then
If CInt(exemplaar) > 0 Then ActiveSheet.printout Copies:=CInt(exemplaar), Preview:=False
End If

End Select
End Sub

The problem is, when i select "case Ja", it has to save the active sheet as copy in the folder on G( like above). with the Range A1 till J30. the Buttons i want to hide in the copy.
i just can't get it fixed!
please anyone

Bob Phillips
05-02-2011, 05:32 AM
What bit needs fixing?