*

Help!

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

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: basis VBA opslaan  (gelezen 87944 keer)

0 leden en 2 gasten bekijken dit topic.

Offline sirpatje

  • Lid
  • *
  • Berichten: 11
  • Geslacht: Man
  • Oplossing.be
basis VBA opslaan
« Gepost op: 05 september 2024, 12:19:37 »
Vrienden,
Ik heb een excel werkboek die moet opgeslaan worden met als titel een cel (p5)
Ik kan ook geen pad opgeven waar er moet opgeslaan worden want het werkboek gaat naar verschillende medewerkers op verschillende computers.
Is er een simpele vba code die ik onder een knop kan steken? En wat als ik 2 keer opsla zal hij dan overschrijven? Ik hoop van wel :-)


Grtz Patje
Gelogd

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.334
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: basis VBA opslaan
« Reactie #1 Gepost op: 05 september 2024, 12:34:12 »
Hallo sirpatje,

dat is zeker mogelijk.
Zijn de collega's waar het werkboek naartoe moet altijd dezelfde collega's?

Kan je een voorbeeld geven van hun mailadres binnen het bedrijf (enkel de structuur, geen echte namen).

Als je de macro juist hebt, dan wordt hetzelfde (of aangepaste) werkboek opnieuw verstuurd, zolang de naam van het werkboek niet veranderd.

Aan jou.

:) SoftAid :)             
Gelogd
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline sirpatje

  • Lid
  • *
  • Berichten: 11
  • Geslacht: Man
  • Oplossing.be
Re: basis VBA opslaan
« Reactie #2 Gepost op: 05 september 2024, 12:54:42 »
willy@minfin.fed.be

Het is eigenlijk een programma om dossiers aan te maken, bestaande uit een basisblad waaruit de benodigde data automatisch in andere tabbladen ingevuld wordt naargelang het soort dossier.
Wij zijn momenteel met 18 mensen maar daar komen weldra 24 mensen bij.
Het basiswerkboek staat op een gedeelde server maar iedereen moet dit werkboek kopiëren op hun eigen bureaublad.
Vandaar kunnen ze het dossier aanmaken en opslaan voor later gebruik. Het opgeslagen werkboek wordt dan naar mij doorgestuurd.

Grtz Patrick
Gelogd

Offline Della Jordan

  • Volledig lid
  • **
  • Berichten: 233
  • Geslacht: Vrouw
Re: basis VBA opslaan
« Reactie #3 Gepost op: 05 september 2024, 15:04:50 »
Geen flauw idee of je zoiets bedoeld?
Je medewerkers kunnen de juiste plaats kiezen.
Code: [Selecteer]
Sub opslaanexcel()
Application.ScreenUpdating = False
Set dlgSaveFolder = Application.FileDialog(msoFileDialogFolderPicker)
With dlgSaveFolder
.Title = "Selecteer een Folder"
.AllowMultiSelect = False
If .Show <> -1 Then GoTo CancelFolderSelection
sFolderPathForSave = .SelectedItems(1)
End With
Set dlgSaveFolder = Nothing
ActiveSheet.Copy
With ActiveWorkbook
    .SaveAs Filename:=sFolderPathForSave & "\ " & Range("P5").Value, FileFormat:=xlOpenXMLWorkbookMacroEnabled
    .Close savechanges:=False
End With
CancelFolderSelection:
Application.ScreenUpdating = True
End Sub
Gelogd
Groetjes,Della

Offline sirpatje

  • Lid
  • *
  • Berichten: 11
  • Geslacht: Man
  • Oplossing.be
Re: basis VBA opslaan
« Reactie #4 Gepost op: 10 september 2024, 10:02:51 »
Hoi terug van een lang weekend ik zal het eens proberen? tx
Gelogd

Offline sirpatje

  • Lid
  • *
  • Berichten: 11
  • Geslacht: Man
  • Oplossing.be
Re: basis VBA opslaan
« Reactie #5 Gepost op: 10 september 2024, 10:16:20 »
Hoi,

Ik heb gemakshalve het basisformulier meegestuurd. Ik heb een button aangemaakt en de code gekopieerd. Helaas werkt het niet maar ik zal wel een fout gemaakt hebben.
Gelogd

Offline Della Jordan

  • Volledig lid
  • **
  • Berichten: 233
  • Geslacht: Vrouw
Re: basis VBA opslaan
« Reactie #6 Gepost op: 10 september 2024, 13:03:30 »
Zo?
Gelogd
Groetjes,Della

Offline Della Jordan

  • Volledig lid
  • **
  • Berichten: 233
  • Geslacht: Vrouw
Re: basis VBA opslaan
« Reactie #7 Gepost op: 10 september 2024, 16:56:35 »
Citaat
Helaas werkt het niet maar ik zal wel een fout gemaakt hebben.
Klopt, je hebt de code niet onder je knop gezet, maar in de programmacode van je blad.
« Laatst bewerkt op: 10 september 2024, 18:26:11 door Della Jordan »
Gelogd
Groetjes,Della

Offline sirpatje

  • Lid
  • *
  • Berichten: 11
  • Geslacht: Man
  • Oplossing.be
Re: basis VBA opslaan
« Reactie #8 Gepost op: 11 september 2024, 10:54:45 »
Inderdaad bedankt.
zou er in onderstaande een foutje staan want als ik op de opslaan knop duw komt er een popup met de vraag waar ik mag opslaan maar zonder de gegevens uit cel P5 als titel.

With ActiveWorkbook
    .SaveAs Filename:=sFolderPathForSave & "\ " & Range("P5").Value, FileFormat:=xlOpenXMLWorkbookMacroEnabled
    .Close savechanges:=False
Gelogd

Offline Della Jordan

  • Volledig lid
  • **
  • Berichten: 233
  • Geslacht: Vrouw
Re: basis VBA opslaan
« Reactie #9 Gepost op: 11 september 2024, 11:27:23 »
Je krijgt geen vraag voor de titel in P5, gebeurt automatisch. Je hoeft alleen de plek te kiezen waar je wilt opslaan. Er moet natuurlijk iets ingevuld zijn in P5.
Gelogd
Groetjes,Della

Offline Della Jordan

  • Volledig lid
  • **
  • Berichten: 233
  • Geslacht: Vrouw
Re: basis VBA opslaan
« Reactie #10 Gepost op: Vandaag om 15:50:50 »
We zijn ondertussen een paar dagen verder, is je probleem opgelost?
Gelogd
Groetjes,Della
Pagina's: [1]   Omhoog
 


www.combell.com