Help!

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

Hulp bij posten

Recente topics

Auteur Topic: Bestand opslaan met een macro  (gelezen 3567 keer)

0 leden en 1 gast bekijken dit topic.

Offline Marten

  • Lid
  • *
  • Berichten: 13
  • Geslacht: Man
  • Hey, ik ben nieuw hier !
Bestand opslaan met een macro
« Gepost op: 24 juni 2021, 11:20:46 »
Hallo
Heb een een excel File gemaakt onder de naam "Calculatie" met 2 tabbladen" Calculatie" en "planning"
In Colom " D5" heb ik een klantnaam staan
Ik wil graag de hele File opslaan in een excelfile op D:/Calculaie / klantnaam-datum en tijd.xls  doormiddel van een macroknop " Opslaan "
Zodat ik deze later kan terugvinden en eventueel nog kan bewerken
Zou iemand hier een bijlage van kunnen maken die ik kan downloaden ?  _/-\o_
Ben niet zo'n macro expert betreft " maken "
B v.d.
Marten

Offline AD1957

  • Ervaren lid
  • ***
  • Berichten: 250
  • Oplossing.be
Re: Bestand opslaan met een macro
« Reactie #1 Gepost op: 24 juni 2021, 12:15:00 »
Zo ?
Private Sub CommandButton1_Click()

Dim fPath As String

fPath = "D:\Calculatie\ "
ActiveWorkbook.SaveCopyAs Filename:=fPath & Range("D5").Value & "----" & Date & ".xlsb"
End Sub
Groet,

Albert

Offline Marten

  • Lid
  • *
  • Berichten: 13
  • Geslacht: Man
  • Hey, ik ben nieuw hier !
Re: Bestand opslaan met een macro
« Reactie #2 Gepost op: 24 juni 2021, 12:44:03 »
Ja super
Bedankt   :thumbsup:

Offline Marten

  • Lid
  • *
  • Berichten: 13
  • Geslacht: Man
  • Hey, ik ben nieuw hier !
Re: Bestand opslaan met een macro
« Reactie #3 Gepost op: 24 juni 2021, 12:59:16 »
Het enige wat ik er graag nog wil bijvoegen is,
Bij "opslaan" dat ik nog in deze file zit die is opgeslagen
Het origineel waar ik ben begonnen origineel laten staan zoals het is en afsluit

Voor de rest Perfect  :thumbsup:
gr Marten


Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Bestand opslaan met een macro
« Reactie #4 Gepost op: 24 juni 2021, 13:23:23 »
Probeer het eens zo

Sub jvr()
fPath = "D:\Calculatie\" & Range("D5") & "_" & Date & ".xlsm"
ThisWorkbook.SaveAs fPath
End Sub

Offline Marten

  • Lid
  • *
  • Berichten: 13
  • Geslacht: Man
  • Hey, ik ben nieuw hier !
Re: Bestand opslaan met een macro
« Reactie #5 Gepost op: 24 juni 2021, 14:04:26 »
Super bedank
Precies zoals ik het zou willen t.n.x.  :thumbsup:
Gr Marten

 


www.combell.com