VBA data kopieren naar tabblad op voorwaarde datum

[MartijnvBo]

Goedemorgen,
ik heb een vraag over VBA in Excel: ik zou graag data kopieren van een invulsheet naar een datasheet om historie op te bouwen. Nu heb ik daar al een script voor. Maar ik wil nu iets maken dat voorkomt dat mensen 2 keer dezelfde data gaan wegschrijven naar het historie blad (zie bijlage)

ik zit te denken aan het wegschrijven van een weeknummer na het kopieren van de data. Op het moment dat je de data wilt wegschrijven zou eerst een check moeten volgen is de data al gekopieerd (op basis van weeknummer), indien ja geef een melding dat de data al gekopieerd is. indien niet, dan de data wegschrijven en een datumcode (weeknr) invullen.

hopelijk kan iemand mij verder helpen.
Grt Martijn

Sub DataWegschrijven()
'
' DataWegschrijven Macro
'

'
Range("A11:I11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

Sheets("HISTORIE").Select
Range("A1").Activate
Selection.End(xlDown).Activate
ActiveCell.Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
End Sub


...

[g0tanks]

MartijnvBo schreef op maandag 2 november 2020 @ 11:16:
ik zit te denken aan het wegschrijven van een weeknummer na het kopieren van de data. Op het moment dat je de data wilt wegschrijven zou eerst een check moeten volgen is de data al gekopieerd (op basis van weeknummer), indien ja geef een melding dat de data al gekopieerd is. indien niet, dan de data wegschrijven en een datumcode (weeknr) invullen.

Welkom op Tweakers.

Volgens mij moet het lukken met die aanpak, dus waar loop je nog op vast? Als je op de invulsheet het weeknummer zet (met de functie WEEKNUM) en dat ook meeneemt naar de datasheet, dan kan je het vervolgens in VBA vergelijken.

[m-vw]

Er zijn diverse benaderingen mogelijk, maar in de basis gaat het om een IF THEN functie.

code:

IF te kopieren week niet bestaat in historie THEN
jou procedure
ELSE
MsgBox("Data bestaat al.")
END IF

Bepalen of de data al bestaat kan op diverse manieren.
Bij oplopende weeknummers kan je gewoon kijken wat de laatste week waarde is in de historie.