• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Command button verstoppen in excell na het opslaan van sheet.

Status
Niet open voor verdere reacties.

Shadowx85

Gebruiker
Lid geworden
26 jan 2016
Berichten
25
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 ? ..

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
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan