knop voor opslaan als toevoegen

[davylenders123]

Ik zou in een exel blad een knop willen zetten die het volgende doet.

Opslaan als maar moet ineens in de hoofdmap terecht komen dat je alleen de sub map nog moet kiezen.

Bv T:\Mag-Data\Mit pc\davy\planning magazijn dit is de hoofdmap daar zou de knop al direct heen moeten gaan.

Zodat je daar enkel de sub map nog hoeft te kiezen en op opslaan moet klikken.

Hoe begin ik hier aan ?

 

[Roncancio]

ChDir "T:\Mag-Data\Mit pc\davy\planning magazijn\"
Application.Dialogs(xlDialogSaveAs).Show

Met vriendelijke groet,


Roncancio

 

[davylenders123]

ChDir "T:\Mag-Data\Mit pc\davy\planning magazijn\"
Application.Dialogs(xlDialogSaveAs).Show

Met vriendelijke groet,


Roncancio

Ik krijg wel het opslaan als scherm maar komt niet terecht in de hoofdmap maar gewoon op de standaard of vorige opslaan map.

Hij zou in deze map terecht moeten komen T:\Mag-Data\Mit pc\davy\planning magazijn
Maar dat doet hij nog niet

 

[Roncancio]

ChDrive "T:\"
ChDir "T:\Mag-Data\Mit pc\davy\planning magazijn\"
Application.Dialogs(xlDialogSaveAs).Show

Met vriendelijke groet,


Roncancio

 

[davylenders123]

ChDrive "T:\"
ChDir "T:\Mag-Data\Mit pc\davy\planning magazijn\"
Application.Dialogs(xlDialogSaveAs).Show

Met vriendelijke groet,


Roncancio

Sorry maar het werkt nog niet.

het is een knop uit de Werkset Besturingselementen die ik heb gebruikt en daar heb ik u code ingeplakt.
Doe ik iets verkeerd mischien ?

 

[Warme bakkertje]

Probeer deze eens

Application.GetSaveAsFilename "T:\Mag-Data\Mit pc\davy\planning magazijn"

 

[davylenders123]

Probeer deze eens

Application.GetSaveAsFilename "T:\Mag-Data\Mit pc\davy\planning magazijn"

Met deze code kom ik al wel in de juist map terecht.

Maar als je een sub map kiest en dan een naam invoerd om op te slaan slaat hij niks op
ook niet als je een sub map kiest en dan een bestaand bestand aan klikt slaat hij ook niks op

Hij doet alles normaal maar als je in de map gaat kijken heeft hij niks opgeslaan.

 

[Warme bakkertje]

Sub tst()
ActiveWorkbook.SaveAs Application.GetSaveAsFilename("T:\Mag-Data\Mit pc\davy\planning magazijn", _
    "Excel files (*.xls),*.xls", 1)
End Sub

 

[davylenders123]

Sub tst()
ActiveWorkbook.SaveAs Application.GetSaveAsFilename("T:\Mag-Data\Mit pc\davy\planning magazijn", _
    "Excel files (*.xls),*.xls", 1)
End Sub

zo werkt u code

Private Sub CommandButton1_Click()
ActiveWorkbook.SaveAs Application.GetSaveAsFilename("T:\Mag-Data\Mit pc\davy\planning magazijn", _
        " Excel files (*.xls),*.xls", 1)
End Sub

B E D A N K T :thumb::thumb:

 

[davylenders123]

Er is toch nog iets niet helemaal juist in de code.

Als ik de knop opslaan als gebruik dan zet hij een extra excel file in de hoofdmap met als naam FALSE.

Wat moet ik nog aan de code veranderen zodat hij het niet meer doet.

 

[popipipo]

Private Sub CommandButton1_Click()
ActiveWorkbook.SaveAs Application.GetSaveAsFilename("T:\Mag-Data\Mit pc\davy\planning magazijn" [COLOR="Red"]& ActiveSheet.Range("A1").Value[/COLOR],  " Excel files (*.xls),*.xls", 1)
End Sub

Ik was net zelf ook hier mee bezig en heb het zoals hierboven opgelost.
De naam van mijn bestand staat in cel A1

Ben er niet zeker van maar als je 'ActiveSheet.Range("A1").Value' veranderd in 'naamvanjebestand' moet het denk ik ook lukken.

 

[davylenders123]

Private Sub CommandButton1_Click()
ActiveWorkbook.SaveAs Application.GetSaveAsFilename("T:\Mag-Data\Mit pc\davy\planning magazijn" [COLOR="Red"]& ActiveSheet.Range("A1").Value[/COLOR],  " Excel files (*.xls),*.xls", 1)
End Sub

Ik was net zelf ook hier mee bezig en heb het zoals hierboven opgelost.
De naam van mijn bestand staat in cel A1

Ben er niet zeker van maar als je 'ActiveSheet.Range("A1").Value' veranderd in 'naamvanjebestand' moet het denk ik ook lukken.

Heb eerst geprobeerd om het te veranderen naar mijn betsands naam maar dat lukte niet.
Heb het dan geprobeerd door op n1 mijn bestands naam te zetten en de code van a1 naar n1 aangepast maar die werkte ook niet

 

[popipipo]

Als het niet lukt dan weet ik het helaas ook niet want VBA is ook niet mijn sterkste kant.
Even wachten dus op een antwoord van een VBA specialist.

 

[Warme bakkertje]

Davy, als je geen naam intikt slaat hij het bestand op als Onwaar.xls. Ik heb de macro aangepast zodat hij de code verlaat indien er geen naam ingegeven wordt.

Sub tst()
sName = Application.GetSaveAsFilename("T:\Mag-Data\Mit pc\davy\planning magazijn", _
    "Excel files (*.xls),*.xls", 1)
If sName = False Then Exit Sub
ActiveWorkbook.SaveAs sName
End Sub

 

[davylenders123]

Davy, als je geen naam intikt slaat hij het bestand op als Onwaar.xls. Ik heb de macro aangepast zodat hij de code verlaat indien er geen naam ingegeven wordt.

Sub tst()
sName = Application.GetSaveAsFilename("T:\Mag-Data\Mit pc\davy\planning magazijn", _
    "Excel files (*.xls),*.xls", 1)
If sName = False Then Exit Sub
ActiveWorkbook.SaveAs sName
End Sub

Dit is de juist code .

Allemaal bedankt voor jullie hulp :thumb: top:thumb: