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

opslaan als werkt maar 1 malig

Status
Niet open voor verdere reacties.
M

masari

Gebruiker
Lid geworden
17 sep 2006
Berichten
7
Als ik een sheet opsla met onderstaande macro, werkt deze na het opslaan van het de werkmap niet meer.
Zie niet goed waar het fout gaat.

Onderstaand de marco.
waarbij de 1 na laatste regel fout gaat

Sub test()

End Sub
Sub opslaan()
'
'Sub OpslaanAls()

Dim MyName
MyName = Range("b2").Value & "" & Range("d17").Value
ChDir "G:\All Companies\Public\_WERKPLAATS\Inschrijf formulieren"
ActiveWorkbook.SaveAs Filename:=MyName & ".xlsm"
End Sub
 
Het zou wel handig zijn als je er ook bij verteld of je een foutmelding krijgt en zoja welke dat dan is.

Maar probeer deze eens:
Code: 
Sub opslaan()
    MyPath = "G:\All Companies\Public\_WERKPLAATS\Inschrijf formulieren\"
    MyName = Range("B2").Value & "" & Range("D17").Value
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=MyPath & MyName & ".xlsm"
    Application.DisplayAlerts = True
End Sub
 
Sorry je hebt helemaal gelijk. Dank voor je reactie.

Momenteel liggen mijn prioriteiten bij wat andere zaken, heb dan ook nog niet naar je oplossing gekeken.

Ga zeer zeker nog je oplossing kijken, echter niet op de korte termijn.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan