Opslaan als macro

[ramonschoemaker]

Hallo,

Ik heb me helemaal het laplazerus gezocht naar hoe ik dit moet maken...
Ik heb een factuur, zie bijlage, en nu wil ik eigenlijk alleen maar een macro
die zorgt dat als ik die aanklik dat het 'Opslaan als' scherm verschijnt
met daarin alvast het factuurnummer...

Zou iemand dit voor mij in kunnen vullen als dit niet lastig is??

Dan kan ik hier mee leren werken...

B.v.d.

 

[Revdutchie]

Hallo,

Ik heb me helemaal het laplazerus gezocht

Ik ook, het intypen duurde wel 30 seconden, in mijn geval op "macro factuur opslaan.

Resultaat

http://www.helpmij.nl/forum/showthread.php?t=486765&highlight=macro+factuur+opslaan

 

[ramonschoemaker]

Sorry, maar ik kan zo de macro zelf niet zien als ik dat open....
Ik zal wel gek zijn...

Zou niet iemand mijn bijlage even willen bewerken en weer bijvoegen??

 

[Revdutchie]

Sorry, maar ik kan zo de macro zelf niet zien als ik dat open....
Ik zal wel gek zijn...

Zou niet iemand mijn bijlage even willen bewerken en weer bijvoegen??

En hoe ga je dan de macro zien, wil het best doen hoor, maar dit lijkt me een voorbeeld bestand.

Dit is je macro (zichtbaar) Code van Ware Bakkertje

Sub Werkorder_bewaren()
Sheets("Blad1").Copy
With ActiveWorkbook
    With .Sheets(1).UsedRange
        .Value = .Value
    End With
     .SaveAs "D:\Mijn documenten\Werkorders\" & [H10].Value & ".xlsx"
    .Close
End With
End Sub

 

[koosl]

Ramon,

nu krijg je het Opslaan Als scherm met als bestandsnaam wat er in C13 staat.

Koosl

 

[Warme bakkertje]

Alternatief

Application.Dialogs(xlDialogSaveAs).Show [C13]

 

[Revdutchie]

Alternatief

Application.Dialogs(xlDialogSaveAs).Show [C13]

Rudi,

Is daarmee de code van jou zoals ik hierboven heb geplaatst out of date ?

 

[Warme bakkertje]

Neen, de code die jij gepubliceerd hebt slaat het bestand onmiddelijk op onder een bepaalde naam. De onderste code geeft je nog de kans om de naam te wijzigen alvorens op te slaan.

 

[ramonschoemaker]

Alternatief

Application.Dialogs(xlDialogSaveAs).Show [C13]

SUPER!!!!!!!:thumb::thumb: Bedankt!! helemaal top!! dit werkt geweldig, harstikke bedankt!!

 

[Warme bakkertje]

:thumb: Zet je de vraag dan nog even op opgelost