Opslaan

[ExcelNoob]

Hey mensen,

Ik heb even een vraagje tussendoor, maar ik heb dezelfde (als Rommyke) macro toegepast, zonder msgbox, maar ik wil graag dat hij opgeslagen wordt niet met de datum erachter, maar met de waarde die in D8 staan. Ik heb al geprobeerd om dat te wijzigen met Range maar dat werkt niet. Kan iemand mij even helpen tussendoor?

Alvast bedankt!

ExcelNoob

 

[arafy]

als je even zoek in het forum, kom je het vaak tegen.

steven

 

[vanschagen]

als je even zoek in het forum, kom je het vaak tegen.

steven

doe jij dat dan ff

 

[ExcelNoob]

Ik heb al een vraag gevonden waar het over hetzelfde gaat, maar als ik die oplossing invoer en aanpas geeft hij aan dat er een syntaxisfout bestaat.

Deze formule gebruik ik:

Sub Savefile()
ActiveWorkbook.SaveAs Filename:=Range("D8").Value
End Sub

 

[Wigi]

doe jij dat dan ff

Bertus, is dat niet de omgekeerde wereld?

Ik veronderstel toch dat vraagstellers eerst het forum afzoeken, zeker bij vragen die regelmatig terugkeren.

Wigi

 

[Wigi]

Ik heb al een vraag gevonden waar het over hetzelfde gaat, maar als ik die oplossing invoer en aanpas geeft hij aan dat er een syntaxisfout bestaat.

Deze formule gebruik ik:

Sub Savefile()
ActiveWorkbook.SaveAs Filename:=Range("D8").Value
End Sub

Wat staat er in D8?

 

[ExcelNoob]

Een achternaam

 

[vanschagen]

Bertus, is dat niet de omgekeerde wereld?

Ik veronderstel toch dat vraagstellers eerst het forum afzoeken, zeker bij vragen die regelmatig terugkeren.

Wigi

nee ik bedoel om zo'n antwoord te geven als arafy doet dat ie dan beter zijn mond kan houden.

 

[Wigi]

En je zou er geen .xls aan toevoegen?

En zou je Excel niet zeggen in welke map dit moet opgeslagen worden?

 

[ExcelNoob]

Komt dat er dan zo uit te zien?

Sub Savefile()
ActiveWorkbook.SaveAs Filename:="H:\Mijn Documenten\".Range("D8").Value & ".xls"
End Sub

 

[Wigi]

Sub Savefile()
ActiveWorkbook.SaveAs Filename:="H:\Mijn Documenten\" & Range("D8").Value & ".xls"
End Sub

 

[ExcelNoob]

Wigi wederom bedankt! Hij klopt, heb hem nog een klein beetje aangepast. Dit is hem geworden:

Sub Savefile()
ActiveWorkbook.SaveAs Filename:="H:\Mijn Documenten\PMF" & Range("D8").Value & ".xls"
End Sub