macro in excel

[Henk48]

Een deel van een pagina in excel wil ik als pdf opslaan met behulp van een macro.
De pagina is al opgeslagen als xlsx bestand. Het maken van de macro lukt mij wel, maar als ik het bestand een andere naam geef en daarna weer een deel wil opslaan onder deze nieuwe naam dan blijkt de oude naam in de macro te blijven staan.
Hoe kan ik de macro zo wijzigen dat deze de bestaande (gewijzigde) naam van het bestand hanteert bij het maken van de pdf

 

[edmoor]

Dat ligt eraan hoe het nu in je macro staat.

 

[Henk48]

In de macro staat nu het volgende:
Sub pdfmaken()
'
' pdfmaken Macro
'

'
Range("A3:H30").Select
Range("H30").Activate
ActiveWorkbook.SaveAs Filename:= _
"Macintosh HD:Users:henkesktop:testpdfmaken.pdf", FileFormat:= _
xlPDF, PublishOption:=xlSelection
Application.Goto Reference:="pdfmaken"
End Sub

 

[edmoor]

Vervang "Macintosh HD:Users:henkesktop:testpdfmaken.pdf" eens door
"Macintosh HD:Users:henkesktop:" & Thisworkbook.Name & ".pdf"

 

[Henk48]

Dat werkt en daar ben ik al heel blij mee!
Alleen de naamgeving is nog niet helemaal naar mijn zin. Er staat nu als bestandsnaam "Testpdfmaken2Blad1.pdf"
Kan het ook zonder dat Blad1?

 

[edmoor]

Je had er een vaste naam in staan (testpdfmaken.pdf) en wilde dat gelijk hebben aan de naam van je werkblad.
Kennelijk heb je de wijziging zoals ik aangaf niet volledig doorgevoerd omdat de naam van het blad er nu aan vastgeplakt is.
Waar dan ineens die 2 vandaan komt weet ik ook niet.
Laat eens zien wat je er nu hebt staan.

 

[Henk48]

Nadat ik de macro had aangepast heb ik het werkblad opgeslagen onder de naam Testpdfmaken2. Vervolgens heb ik de macro gerund en deze maakte de pfd Testpdfmaken2Blad1.pdf

De macro ziet er nu als volgt uit:

Sub pdfmaken()
'
' pdfmaken Macro
'
'
Range("A1:G22").Select
Range("G22").Activate
ActiveWorkbook.SaveAs Filename:= _
"Macintosh HD:Users:henkesktop:" & ThisWorkbook.Name & ".pdf", FileFormat:= _
xlPDF, PublishOption:=xlSelection
End Sub

 

[edmoor]

Dat heb je dan inderdaad wel goed overgenomen.
Ik weet niet hoe de Mac ermee omgaat maar ik maak er zelf ook een denkfout in.
Op m'n pc wordt Thisworkbook.name terug gegeven als Testpdfmaken2.xlsx
Het is nu wat laat, ik zal er morgen nog eens naar kijken.

 

[Warme bakkertje]

Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5)

 

[edmoor]

Yep, en - 4 als het gaat om Excel 2003.

 

[Henk48]

Voor wat betreft de naamgeving klopt het nog steeds niet.
De vermelding Blad1 is nu vervangen door de naam van het werkblad.
En ook worden aparte pdf-bestanden gemaakt van de andere werkbladen, terwijl ik alleen een pdf-bestand wil hebben van de selectie op blad 1.