Knop "save as" via macro werkt niet

[Verwijderd]

Mijn vraag:
Ik wil in een excel file 2 knoppen maken die de functie "save as" gebruiken.
De eerste knop is aan 1 cel gelinkt (G10) en werkt perfect.

De 2de knop is aan 2 cellen gelinkt (G11 & K11).
Het probleem is dat cel "G11" een dropdown list is en dat ik in de macro hierdoor een fout aangeduid krijg.
Weet iemand hoe ik die code moet wijzigen?


Relevante software en hardware die ik gebruik
...

Wat ik al gevonden of geprobeerd heb

[ Voor 23% gewijzigd door Verwijderd op 23-03-2020 18:31 ]

[MAX3400]

Mis je niet gewoon een "

Want die staat wel na K11 bijvoorbeeld.

[Arjan90]

Ik heb oprecht geen enkel idee van wat je probeert te doen. Kun je wat code en screenshots delen? De Excel delen zal niet zoveel zin hebben aangezien ik niet verwacht dat iemand op Tweakers een Excel met macro's download en opent van iemand die ze niet kennen (ivm beveiligingsrisico's).

Edit: Sorry, te laat geplaatst, ik zie nu je foto wel.

[ Voor 9% gewijzigd door Arjan90 op 23-03-2020 18:35 ]

[Verwijderd]

Daar heb ik over gezien.
Heb dit net aangepast, maar ik krijg nog steeds de weergave dat er iets fout zit ...

[Arjan90]

Volgens mij moet je gewoon Range gebruiken ipv Dropdownlist, die laatste functie ken ik in ieder geval niet. Je wil immers van het betreffende bereik, de Range, de text waarde ophalen. Hoe die waarde in dat veld terechtkomt, via een dropdown, maakt voor VBA niet uit.

[ Voor 42% gewijzigd door Arjan90 op 23-03-2020 18:36 ]

[Verwijderd]

Dat had ik eerst gedaan, maar daar geeft hij ook een fout op ...

[biomass]

Los van dat je naam in de screenshots staat, welke items zijn te zien in de combobox linksboven je code?
In de eerste twee foto's staat daar 'CommandButton2'.
Welke fout krijg je?

Volgens mij is het handiger je code in [Code] of preformatted tags [ de </> knop boven je reactie venster] te plakken?

[heuveltje]

dat. en staat er uberhaubt een geldige tekst in dat vak ?

[dix-neuf]

En met de tekst in G11 ben je er nog niet ! Naast wat er G11 staat, laat je helaas ook niet zien wat er staat na: ActiveWorkbook.Saveas Filename:= Path & Filename1
Als het een Excelbestand is, moet je dat ná Filename1 ook nog vermelden, dus bv:

code:

ActiveWorkbook.SaveAs FileName:=Path & FileName1 & ".xlsm"

[F_J_K]

@Verwijderd kan je zoals @biomass al aangeeft, ajb die foto's vervangen door gewoon tekst? Dat lest veel makkelijker, is voor jou makkelijker, en maakt copypasten mogelijk
De opmaak kun je bewaren door er
[code=vb]
foo = "bar"
[/code]

tags omheen te zetten:

Visual Basic:

foo = "bar"

[ Voor 5% gewijzigd door F_J_K op 23-03-2020 19:27 ]

[Verwijderd]

Ik heb nog gezien dan de code "Dim filename2 As String" ontbrak, deze is nu toegevoegd.
Echter krijg ik nu een syntaxfout.


Hierbij de gebruikte code (hopelijk is het zo goed gedaan):

Visual Basic:

Private Sub CommandButton2_Click()

Dim path As String
Dim filename1 As String
Dim filename2 As String

path = "C:\Users\Ken Smets\Documents\"
filename1 = Range("G11").Text
filename2 = Range("K11").Text
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=path & filename1 & "-" & filename2 ".xlsx", FileFormat:=xlOpenXMLWorkbook
Application.DisplayAlerts = True
ActiveWorkbook.Close


End Sub

op deze code krijg ik zowel ee nfout op "Private sub cammand button 2" als op de link "ActiveWorkbook.SaveAs…"

[ Voor 6% gewijzigd door Verwijderd op 23-03-2020 20:13 ]

[dix-neuf]

- Bij Saveas ontbreekt na filename2 de ampersand & (zie mijn vorig bericht).
- De macro bevindt zich in de file die je opslaat neem ik aan, ".xlsx" moet daarom zijn: ".xlsm" (zie eveneens mijn vorig bericht).
- Commanbutton2 bestaat toch wel?

[g0tanks]

Kan je voor de volledigheid ook eens een screenshot van de sheet plaatsen, met daarop de knoppen en relevante cellen?

[Verwijderd]

Het probleem is opgelost!
Hartelijk dank iedereen.

Die ampersant "&" was de laatste boosdoener :-).
Daar heb ik dus meerdere keren overgezien.


Dat .xlsx mag blijven.
Het eigenlijke file is een excel file met macro (.xlsm)
Als je op 1 van de 2 knoppen drukt wordt het file "opgeslagen als" een "standaard excel file".

Het is de bedoeling altijd te werken en te vertrekken met dit excel macro file.
Het is niet de bedoeling een opgeslagen file aan te passen en dan "opslaan als" terug te gebruiken.