2 warden tegelijk opslaan

[JanFilarski]

2 waarden tegelijk opslaan

Hallo Allemaal

Ik moet telkens één waarde op schijf C en ook op schijf Q opslaan.
(voor de zekerheid)

Kan dat ook in één handeling?

MVG
Jan Filarski

 

[VenA]

En hoe ziet die ene waarde eruit dan? En hoe moet deze opgeslagen worden?

 

[edmoor]

Ik denk dat je wat duidelijker moet zijn voordat iemand hier iets over kan zeggen.

 

[JanFilarski]

Hallo mensen

De waarde die ik wil opslaan zijn de uitkomsten van een dagelijkse fysical test.
Dus gewicht, bloedsuiker stand, uitkomsten van inspanningsoefeningen (ik ben een hardpatient)
De waarden wil ik opslaan op D:\oefening en op Q:'\Oefening (voor de veiligheid)

Ik hoop dat jullie hieraan genoeg hebben.

MVG
Jan Filarski

 

[Timshel]

Je zit hier op het excelforum.
Begrijp ik goed dat je je excelbestand met resultaten met één druk op de knop op 2 verschillende netwerklocaties wilt opslaan?
Anders begrijp ik niet wat je met 'waarden' bedoelt.

 

[JanFilarski]

Hallo Timshel

Dat is exact wat ik bedoel.

MVG
Jan Filarski :d

 

[Timshel]

Plak deze VBA-routine in een module en koppel hem aan een commandbutton, zoals in voorbeeld

Sub WegZetten()
    ThisWorkbook.Save
    ThisWorkbook.SaveCopyAs "Q:\Oefening\" & ThisWorkbook.Name
End Sub

 

[VenA]

Of zonder knop. Deze code in ThisWorkbook. Dan wordt er bij het opslaan of het afsluiten van het bestand, het bestand en een kopie opgeslagen.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Save
ThisWorkbook.SaveCopyAs "Q:\Oefening\" & ThisWorkbook.Name
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.SaveCopyAs "Q:\Oefening\" & ThisWorkbook.Name
End Sub