Bestand opslaan op basis van 2 cel gegevens

Status
Niet open voor verdere reacties.
J

JurjenH

Gebruiker
Lid geworden
17 jun 2017
Berichten
5
Goedenavond,

Toch maar mijn vraag op het forum.
Ben al 2 avonden aan het Googelen en kom niet tot het gewenste resultaat.

Heb een Excel document.
Mijn bedoeling is dat doormiddel van een "opslaan" knop het bestand automatisch wordt opgeslagen in C:\Week
Wil dat het wordt opgeslagen onder de naam van cel A4 (weeknummer) en cel B4 (naam monteur)
Zodra het opgeslagen is mag het Excel venster worden afgesloten.

Voor de toekomst wil ik graag nog een knop erbij maken met verzenden.
Dan is het de bedoeling dat deze automatisch via de email wordt verstuurd.
Weet niet of ik dat in dezelfde macro moet verwerken.

Gezien mijn kennis van de code taal helaas 0 is kom ik er niet helemaal uit.

Alvast bedankt voor jullie hulp.

Groet,

Jurjen
 
Met bijlage

Beste,

Hartelijk dank voor uw snelle reactie.

Zodra het weeknummer wordt aangepast zal de data veranderen.
Vandaar dat het voor mij handig is als eerst de monteur naam wordt opgeslagen en hierna het week nummer.

Het is de bedoeling dit stapje voor stapje uit te bereiden en het wellicht op laptop/ipad te laten draaien.

Wederom hartelijk dank voor de reacties alvast.

Gr
Jurjen
 

Bijlagen

  • test.xlsm
    23,1 KB · Weergaven: 51
Laatst bewerkt:
Op een laptop met Windows is dat geen probleem. Op een iPad gaat 'm denk ik niet worden.
Maar goed, stap 1. Het document opslaan middels je knop:

Code: 
Sub Opslaan()
    ActiveWorkbook.SaveCopyAs "C:\Week\" & Range("B4").Value & "_" & Range("A4") & ".xlsm"
End Sub
 
Opslaan werk zover

Beste,

Bovenstaande code werkt, ziet ook er behoorlijk anders uit als de overige info die ik op internet heb gevonden.
Middels 1 cel opslaan was geen probleem alleen die 2e cel lukt niet.

Hartelijk bedankt zover.

Ga zelf eerst even stoeien dan hij hierna Excel of Excel tabblad gaat afsluiten.
Zal dit ook even terug koppelen.
 
Zet er dan na het opslaan Application.Quit bij.
 
ook afsluiten werkt

Beste,

Had inderdaad deze zin/code toegepast. (vanwege het mooie weer niet te lang op de computer)
Echter vroeg hij dan nog "opslaan?".

Heb er dus van gemaakt.

Sub Opslaan_afsluiten()
ActiveWorkbook.SaveCopyAs "C:\Week" & Range("B4").Value & "_" & ("week") & "_" & Range("A4") & ".xlsm"
ActiveWorkbook.Saved = True
Application.Quit
End Sub
 
Dat is voor wijzigingen in het document dat je open hebt, niet de kopie. Ik neem aan dat je die wel wilt opslaan toch?
 
Opslaan

Beste Ed, (neem aan dat het Ed is)

Met mijn code wijzigt hij wel het kopie en niet het origineel.
Bij eventuele wijzigingen hierna doen ze dit in het al opgeslagen bestand.

Het lijkt dus per ongeluk goed te werken :)

Eerdaags ga ik verder met mijn Excel project.
We hebben 3 bedrijven die allen verschillende klanten hebben, het moet dus zo zijn dat als ik bedrijf "a" kies alleen zijn klanten kan kiezen.
Op zich niet heel belangrijk, echter er kunnen zo minder fouten gemaakt worden.

Genoeg te doen dus :)

Fijne avond
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan