met VBA automatisch datum plakken indien cel is gevuld

Stel hier je vraag over een Excel probleem
Plaats reactie
Frans Exceleert
Berichten: 4
Lid geworden op: 01 nov 2020 19:27

met VBA automatisch datum plakken indien cel is gevuld

Bericht door Frans Exceleert » 02 nov 2020 16:20

Beste mensen, Graag stel ik hier de volgende vraag.
Ik ben redelijk thuis in Excel echter VBA is nieuw voor mij. Wat ik graag wil is een datum en een tijd in een cel plaatsen op basis van een veld wat handmatig gevuld wordt. Dit is een productie schema en als ik in bijvoorbeeld in kolom 2 een machine kies moet in kolom 1 automatisch de datum en tijd worden geplaatst zodat ik later met draaitabellen leuke productieoverzichten kan genereren.

Nu heb ik nog niet eerder gewerkt met VBA maar wel een voorbeeld gevonden, echter gebeurt er niets als ik deze macro in mijn werkblad zet. Kan iemand mij op weg helpen?

Het volgende gebruik ik als voorbeeld.
Graag jullie feedback.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Target.Count = 1 And Target.Column = 1 Then
Set rng = Target.Offset(0, 1)
If Len(Target) = 0 Then
rng.ClearContents
rng.Offset(0, 1).ClearContents
Else
If Len(rng) = 0 Then
rng = Date
rng.Offset(0, 1) = Date + 30
End If
End If
End If
End Sub

tknijnenburg
Berichten: 229
Lid geworden op: 18 feb 2019 17:04

Re: met VBA automatisch datum plakken indien cel is gevuld

Bericht door tknijnenburg » 02 nov 2020 18:08

Wat er in de macro staat is:
Als er in kolom 1, 1 cel wijzigt wordt, tenzij de cel er naast gevuld is, de datum in de cel er naast gezet en in de cel daarnaast de datum + 30 dagen.

Ben je hiermee geholpen?
Grtz, Ton
kn-ict.com

Frans Exceleert
Berichten: 4
Lid geworden op: 01 nov 2020 19:27

Re: met VBA automatisch datum plakken indien cel is gevuld

Bericht door Frans Exceleert » 02 nov 2020 18:59

tknijnenburg schreef:
02 nov 2020 18:08
Wat er in de macro staat is:
Als er in kolom 1, 1 cel wijzigt wordt, tenzij de cel er naast gevuld is, de datum in de cel er naast gezet en in de cel daarnaast de datum + 30 dagen.

Ben je hiermee geholpen?
Nee ik begrijp het niet en het lijkt ook niet te werken. Ik stuur het excel bestand even mee, misschien kan jij duiden wat im anders moet doen. Het gaat om het werkblad : Productie. Als er in kolom A een machine wordt gekozen, moet in kolom B de datum komen en in kolom C de tijd. Je zou me enorm helpen als ik dit voor elkaar kan krijgen.
Bijlagen
BRANDRESULTAAT_OKT_2020 FH.xlsm
(38.14 KiB) 16 keer gedownload

tknijnenburg
Berichten: 229
Lid geworden op: 18 feb 2019 17:04

Re: met VBA automatisch datum plakken indien cel is gevuld

Bericht door tknijnenburg » 02 nov 2020 22:11

Beste Frans,
De sub routine stond niet op de juiste plaats, in een module i.p.v. in het werkblad zelf.
Je had de gebeurtenis worksheet_change (wijzigen van het werkblad) gewijzigd in worksheet_productie. Dat is een niet bestaande gebeurtenis.
Als je geen verstand hebt van VBA kan je er in mijn ogen beter van afblijven.

Ik heb een nieuw tabblad toegevoegd met hetzelfde resultaat in een formule zonder gebruik te maken van VBA.
Bijlagen
BRANDRESULTAAT_OKT_2020 FH TK.xlsm
(40.3 KiB) 13 keer gedownload
Grtz, Ton
kn-ict.com

Frans Exceleert
Berichten: 4
Lid geworden op: 01 nov 2020 19:27

Re: met VBA automatisch datum plakken indien cel is gevuld

Bericht door Frans Exceleert » 03 nov 2020 16:42

tknijnenburg schreef:
02 nov 2020 22:11
Beste Frans,
De sub routine stond niet op de juiste plaats, in een module i.p.v. in het werkblad zelf.
Je had de gebeurtenis worksheet_change (wijzigen van het werkblad) gewijzigd in worksheet_productie. Dat is een niet bestaande gebeurtenis.
Als je geen verstand hebt van VBA kan je er in mijn ogen beter van afblijven.

Ik heb een nieuw tabblad toegevoegd met hetzelfde resultaat in een formule zonder gebruik te maken van VBA.
Bedankt voor je hulp, echter werkt wat je gemaakt hebt niet. Iedere keer als er in een volgende cel iets wordt geplaatst springen de datum en tijd op NU, dus er gaat hier iets mis. Volgens mij is dit ook de reden dat het in VBA moet, maar ik kan me natuurlijk vergissen omdat ik er geen verstand van heb.

tknijnenburg
Berichten: 229
Lid geworden op: 18 feb 2019 17:04

Re: met VBA automatisch datum plakken indien cel is gevuld

Bericht door tknijnenburg » 03 nov 2020 17:07

Zie bijlage
Bijlagen
BRANDRESULTAAT_OKT_2020 FH TK2.xlsm
(41.57 KiB) 12 keer gedownload
Grtz, Ton
kn-ict.com

Frans Exceleert
Berichten: 4
Lid geworden op: 01 nov 2020 19:27

Re: met VBA automatisch datum plakken indien cel is gevuld

Bericht door Frans Exceleert » 03 nov 2020 17:49

tknijnenburg schreef:
03 nov 2020 17:07
Zie bijlage
Dankjewel zo werkt het inderdaad met VBA. Rest mij nog één vraag. Hoe krijg ik de datum op een NL notatie dus i.p.v. 11/03/2020 naar 02-11-2020 celopmaak werkt in deze niet.

tknijnenburg
Berichten: 229
Lid geworden op: 18 feb 2019 17:04

Re: met VBA automatisch datum plakken indien cel is gevuld

Bericht door tknijnenburg » 03 nov 2020 21:24

Ben ik ook tegenaan gelopen.
Heb gegevens overgezet.
Bijlagen
BRANDRESULTAAT_OKT_2020 FH TK3.xlsm
(41.81 KiB) 16 keer gedownload
Grtz, Ton
kn-ict.com

Plaats reactie