Macro opslaan als

[DannyKos]

hallo allemaal.

als beginnend VBA user, loop ik regelmatig tegen foutjes aan

zoals deze:

Ik probeer een macro te maken die mijn spreadsheet opslaat op een plek op de server bij ons.

dit alles gaat goed, tot dat ik in het menu opslaan als de bestandnaam in moet vullen waaronder de spreadsheet opgeslagen dient te worden.

Ik heb namelijk aan het begin van de macro het offerte nr op mijn spreadsheet gecopieerd,
en deze wil ik dus laten plakken in de bestands naam (in het opslaan als menu)

dit gaat dus niet aangezien je niet kunt plakken in het opslaan als menu!

snappen jullie het nog?

heeft iemand tips hoe ik dit getal (wat overigens altijd in een vaste cel staat) kan kopieren en opslaan ?

Alvast bedankt

Danny

 

[Niels28]

Zoiets

ActiveWorkbook.SaveAs Filename:="C:\test\Planning " & Range("e1").Value & ".xls"

Niels

 

[DannyKos]

Zoiets

ActiveWorkbook.SaveAs Filename:="C:\test\Planning " & Range("e1").Value & ".xls"

Niels

ok geprobeert maar dit werk nog niet

dit is wat ik heb

Sub opslaan()
'
' opslaan Macro
' De macro is opgenomen op 26-2-2010 door Dk.
'

'
ActiveWorkbook.SaveAs Filename:=''T:\Calculaties Sline op nr &range(k7).Value &
.xls ''


End Sub

hij geeft aan verwacht expressie (foutmelding)

groeten

Danny

 

[Rooie Darp]

ok geprobeert maar dit werk nog niet

dit is wat ik heb

Sub opslaan()
'
' opslaan Macro
' De macro is opgenomen op 26-2-2010 door Dk.
'

'
ActiveWorkbook.SaveAs Filename:=''T:\Calculaties Sline op nr &range(k7).Value &
.xls ''


End Sub

hij geeft aan verwacht expressie (foutmelding)

groeten

Danny

Probeer dit eens:
ActiveWorkbook.SaveAs Filename:=''T:\Calculaties Sline op nr" &range("k7").Value &
".xls ''

 

[Niels28]

De code kopieeren en plakken.

ActiveWorkbook.SaveAs Filename:="t:\Calculaties Sline op nr " & Range("k7").Value & ".xls"

Niels

 

[DannyKos]

Probeer dit eens:
ActiveWorkbook.SaveAs Filename:=''T:\Calculaties Sline op nr" &range("k7").Value &
".xls ''

Ik heb het ingevoerd en er gebeurt vrij weinig

ik stuur het bestand even mee

groeten

Danny

 

[Niels28]

Zie post #5

In je bestandje heb je er een (') voor staan en wordt het als tekst gezien.

Niels

 

[DannyKos]

Zie post #5

In je bestandje heb je er een (') voor staan en wordt het als tekst gezien.

Niels

Sub opslaan()
'
' opslaan Macro
' De macro is opgenomen op 26-2-2010 door vj.
'

'ActiveWorkbook.SaveAs Filename:=T:\Calculaties Sline op nr" &range("k7").Value &".xls ''


End Sub

zo bedoel je ?

hij werkt nog steeds niet

 

[Niels28]

Je hebt de code ook niet van post #5 gekopieerd.
en er staan weer een(') voor.

Hierbij de macro in jouw bestand


Niels

 

[DannyKos]

Je hebt de code ook niet van post #5 gekopieerd.
en er staan weer een(') voor.

Hierbij de macro in jouw bestand


Niels

idd ik had dat niet helemaal goed gedaan.

het werkt!!

weet je mischien ook hoe ik na dat het bestand is opgeslagen, een text naar voren kan laten komen, zoiets van : uw document is opgeslagen?

ik heb al gezocht naar een popup macro maar weet nog niet hoe ik de code achter de bestaande macro kan plakken

heb jij een andtwoord?

 

[Wigi]

MsgBox "uw document is opgeslagen", vbInformation