• 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.

Code knop verdwijnen en opslaan werkt deels, mis een stukje code

Status
Niet open voor verdere reacties.
H

HBot

Gebruiker
Lid geworden
12 dec 2006
Berichten
325
Geachte forum,

Onderstaande code werkt niet zoals ik verwacht komt door mijn onnozelheid,
ik heb een knop om de code te activeren maar wil de knop hierna weg hebben.
simpele gedachte zet ik een regel ertussen "activesheet.shapes("knop 1").visible=false.
de knop verdwijnt maar document wordt niet opgeslagen, haal ik de regel weg wordt document netjes opgeslagen.
wat mis ik?

Code: 
Sub Save_kopie_klachtenoverzicht()
     'document opslaan als kopie
    Dim pad As String
      
    MyOldName = ActiveWorkbook.FullName
    'de mappen waarin wordt opgeslagen
    pad = "S:\Projecten\Klachten\Klachten Boekjaar 2021\"

ActiveSheet.Shapes("Knop 1").Visible = False
       
'opslaan document naar de juiste map
If ActiveWorkbook.Name = "Klachtenoverzicht100820.xlsm" Then
ActiveWorkbook.SaveAs pad & "\" & Sheets("Klachten overzicht").Range("F2") & ".xlsm", FileFormat:=52

End If

End Sub
 
Zet die regel eens onder de End If.
 
Het probleem zit hem denk ik in:

Code: 
If ActiveWorkbook.Name = "[COLOR=#ff0000]Klachtenoverzicht100820[/COLOR].xlsm" Then

Hoofd cq kleine letters maken verschil.

Gebruik anders.

Code: 
[COLOR=#3E3E3E]If [/COLOR][COLOR=#ff0000]Lcase([/COLOR][COLOR=#3E3E3E]ActiveWorkbook.Name[/COLOR][COLOR=#ff0000]) [/COLOR][COLOR=#3E3E3E]= "[/COLOR][COLOR=#ff0000]k[/COLOR][COLOR=#3E3E3E]lachtenoverzicht100820.xlsm" Then[/COLOR]


Je kan de knop ook verwijderen.
Code: 
activesheet.shapes(1).delete
 
Edmoor,

Je had gelijk, dacht dat ik dit al geprobeerd had.. stom hé,
HSV bedankt voor je optie.

gr
Henny
 
Maakt bij mij niet uit of ik die regel eronder zet of laat staan.
De code doet zijn werk goed.

Het nadeel van naar onderen plaatsen:
Je wordt gevraagd bij het afsluiten of je het wilt opslaan → wat je net hebt gedaan. ;)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan