Heren,
Ik heb in de eerste 4 rijen button's zitten waaronder ook een save as button daarmee sla ik de sheets op in een aparte excel bestand maar dan neemt hij gelijk ook het hele rij met buttons mee en ik wil daar eigenlijk maar een deel van mee hebben. Hoe verstop ik de button of haalt ie hem uit het bestand ? ..
Ik heb in de eerste 4 rijen button's zitten waaronder ook een save as button daarmee sla ik de sheets op in een aparte excel bestand maar dan neemt hij gelijk ook het hele rij met buttons mee en ik wil daar eigenlijk maar een deel van mee hebben. Hoe verstop ik de button of haalt ie hem uit het bestand ? ..
Code:
Sub SAVE_AS()
Dim PATH As String
Dim FILENAME1 As String
Dim FILENAME2 As String
Dim FILENAME3 As String
Dim FILENAME4 As String
Dim FILENAME5 As String
Dim FILENAME6 As String
FILENAME1 = Range("P8")
FILENAME2 = Range("Q8")
FILENAME3 = Range("I9")
FILENAME4 = Range("I13")
FILENAME5 = Range("I29")
FILENAME6 = Range("I30")
MENU.Hidden = True
MENU.Visible = False
Sheets(Array("BLAD3", "BLAD4")).Copy
ActiveWindow.Activate
With Application.FileDialog(msoFileDialogSaveAs)
.InitialFileName = "c:\users\x\documents\"
.FilterIndex = 1
.InitialFileName = FILENAME1 & "-" & FILENAME2 & "-" & FILENAME3 & "-" & FILENAME4 & "-" & FILENAME5 & "-" & FILENAME6
.Title = "Opslaan als"
.Show
.Execute
End With
End Sub