opslaan als Xlsm met celnamen uit d16 en d17

[sirpatje]

Ik heb in een werkbook een tabblad genaamd basis.
Om die op te slaan zou ik een knop maken met vba code
Het is de bedoeling om op te slaan met de naam uit 2 cellen in xlsm formaat zonder path
Ik vermoed dat het iets in onderstaande genre is maar precies weet ik het niet.
Er zou ook nog een popup moeten komen die zegt dat het opgeslaan is.

Sub Knop130_Klikken()
Dim Bestandsnaam As String
Bestandsnaam = Range("D16") & Range("D17") & ".xlsm"
ActiveSheet.SaveAs Bestandsnaam
End Sub

iemand die kan helpen?

 

[edmoor]

Dit zal in ieder geval niet juist zijn: ActiveSheet.SaveAs Bestandsnaam
Gebruik:

ThisWorkbook.SaveCopyAs Bestandsnaam

Zorg er tevens voor dat D16 en D17 geen tekens bevatten die niet in een bestandsnaam mogen worden gebruikt.
Plaats een voorbeeld van je document.

Voorbeeld voor je gemaakt:
Bekijk bijlage sirpatje.xlsm

 

[sirpatje]

Bedankt edmoor,

Ik kan weer een beetje verder.

nog een prettig weekend,

Patje

 

[sirpatje]

Oei ik ben een beetje te vroeg geweest om af te sluiten.
Als ik opsla slaat hij enkel het basisblad op. Alles zou moeten opgeslagen worden (het gehele workbook)

grtz

 

[edmoor]

Ik dacht dat dat de bedoeling was.
Maar het lijkt me toch duidelijk in die code wat je dan moet doen.

 

[sirpatje]

Dag Edmoor,

Idd ik heb een paar regeltjes uit je vba geschrapt. ;-)



tx