Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Bestandsmap zoeken en eventueel aanmaken  (gelezen 2007 keer)

0 leden en 1 gast bekijken dit topic.

Offline Warme bakkertje

  • Volledig lid
  • **
  • Berichten: 215
  • Geslacht: Man
Re: Bestandsmap zoeken en eventueel aanmaken
« Reactie #15 Gepost op: 22 april 2022, 03:41:45 »
Beetje met de code van snb gespeeld.

Sub M_snb()
    c00 = ActiveSheet.Range("A1")
    mydocs = CreateObject("WScript.Shell").SpecialFolders("MyDocuments")
    If Dir(mydocs & "\" & c00 & "*", 16) = "" Then MkDir mydocs & "\" & c00 & "-" & ActiveSheet.Range("C1")
    ThisWorkbook.SaveCopyAs Dir(mydocs & "\" & c00 & "*", 16) & "\" & ThisWorkbook.Name
End Sub
Windows 10 Home   NLD 64bit

Microsoft Office Professional Plus 2016 US

Offline Warme bakkertje

  • Volledig lid
  • **
  • Berichten: 215
  • Geslacht: Man
Re: Bestandsmap zoeken en eventueel aanmaken
« Reactie #16 Gepost op: 25 april 2022, 01:12:50 »
Het forum bezocht nadat ik gepost had en zelfs nog geen berichtje. :(

Forumetiquette is je blijkbaar vreemd.

Suc6 nog met je project.
Windows 10 Home   NLD 64bit

Microsoft Office Professional Plus 2016 US

Offline daghengst

  • Lid
  • *
  • Berichten: 11
  • Geslacht: Man
  • Hey, ik ben nieuw hier !
Re: Bestandsmap zoeken en eventueel aanmaken
« Reactie #17 Gepost op: 25 april 2022, 06:36:54 »
Mijn excuses, warme bakkertje, ik had inderdaad vrijdag jouw oplossing gezien maar pas hedenochtend geprobeerd en het werkt precies op de manier zoals ik bedoelde, alleen is mijn vraag nu nog of het mogelijk is om ook op te slaan in de map die vermeld staat in cel "E1" in plaats van in "mijn documenten"... Als ik namelijk SpecialFolders("MyDocuments") vervang door SpecialFolders(ActiveSheet.Range("E1")) krijg ik een foutmelding in de volgende regel, zie bijgevoegde afbeelding.

Hartstikke bedankt voor je hulp en nogmaals mijn excuses voor de (te) late dankbetuigingen.
Dank ook aan iedereen anders die de moeite heeft genomen om mijn probleem te willen oplossen.

Groetjes Hans

Offline Warme bakkertje

  • Volledig lid
  • **
  • Berichten: 215
  • Geslacht: Man
Re: Bestandsmap zoeken en eventueel aanmaken
« Reactie #18 Gepost op: 25 april 2022, 12:27:28 »
Sub M_snb()
    c00 = ActiveSheet.Range("A1"): mydocs = ActiveSheet.Range("E1")
    If Dir(mydocs & "\" & c00 & "*", 16) = "" Then MkDir mydocs & "\" & c00 & "-" & ActiveSheet.Range("C1")
    ThisWorkbook.SaveCopyAs mydocs & "\" & Dir(mydocs & "\" & c00 & "*", 16) & "\" & ThisWorkbook.Name
End Sub

Wat betreft het opslaan als pdf, gaat het dan over het actieve werkblad, een ander werkblad of meerdere werkbladen?
Windows 10 Home   NLD 64bit

Microsoft Office Professional Plus 2016 US

Offline daghengst

  • Lid
  • *
  • Berichten: 11
  • Geslacht: Man
  • Hey, ik ben nieuw hier !
Re: Bestandsmap zoeken en eventueel aanmaken
« Reactie #19 Gepost op: 25 april 2022, 13:30:09 »
Hallo warme bakkertje,

Vooralsnog nog de complete werkmap als excelbestand, ik wilde zelf proberen om het actieve werkblad ook nog als pdf op te slaan. Een en ander ook om zelf de doorblik in VBA te verkrijgen en VBA-slimmer te worden. Mocht ik daar niet uitkomen kom ik graag op de kunde op dit forum terug.

In ieder geval hartstikke bedankt voor je hulp.

Groetjes Hans

PS: om VBA-slimmer te worden ben ik op zoek naar een goede en prijsgunstige cursus in het zuiden van Nederland? Heeft iemand misschien tips?

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Bestandsmap zoeken en eventueel aanmaken
« Reactie #20 Gepost op: 25 april 2022, 13:44:29 »
PS: om VBA-slimmer te worden ben ik op zoek naar een goede en prijsgunstige cursus in het zuiden van Nederland? Heeft iemand misschien tips?
is wel in het Engels : https://www.teachexcel.com/ , om code te downloaden moet je U gratis registreren...
Mvg,
Arnold.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline daghengst

  • Lid
  • *
  • Berichten: 11
  • Geslacht: Man
  • Hey, ik ben nieuw hier !
Re: Bestandsmap zoeken en eventueel aanmaken
« Reactie #21 Gepost op: 25 april 2022, 14:16:32 »
Arnold, bedankt! Gratis is altijd goed 0:-)

Offline daghengst

  • Lid
  • *
  • Berichten: 11
  • Geslacht: Man
  • Hey, ik ben nieuw hier !
Re: Bestandsmap zoeken en eventueel aanmaken
« Reactie #22 Gepost op: 26 april 2022, 06:55:30 »
Warme bakkertje,

Ik heb het geprobeerd en het werkt helemaal perfect! Hartstikke bedankt voor je hulp

Groetjes Hans

Offline Warme bakkertje

  • Volledig lid
  • **
  • Berichten: 215
  • Geslacht: Man
Re: Bestandsmap zoeken en eventueel aanmaken
« Reactie #23 Gepost op: 27 april 2022, 08:21:15 »
Bedankt voor de feedback en succes verder met je project.  :thumbsup:

Heb je nog vragen laat dan gerust iets weten.  :)
Windows 10 Home   NLD 64bit

Microsoft Office Professional Plus 2016 US

 


www.combell.com