2 waarden invullen in 2 verschillende kolommen op dezelfde rij

[Killerclown]

Goeieavond,

Wanneer men op het formulier een checkbox selecteert (in dit geval ChkSerumDiepvries), dan zou ik graag in excel 2 waarden ingevuld krijgen op dezelfde rij

EmptyRow selecteert de eerstvolgende rij die vrij is.
In kolom 20 komt de waarde TxtStaalnummer.value en in kolom 21 van die zelfde rij zou er dan "S*" moeten komen.

Ik heb al onderstaande code maar de waarde "S*" komt niet op de juiste rij te staan.
Waarschijnlijk heeft het iets te maken met de ActiveCell.Row waarbij niet de juiste cel actief is.

Hier zit een beetje vast. Heeft iemand een oplossing?

emptyRow = WorksheetFunction.CountA(Range("A:A")) + 3

If ChkSerumDiepvries = True Then Cells(emptyRow, 20).Value = TxtStaalnummer.Value
If ChkSerumDiepvries = True Then Cells(ActiveCell.Row, 21).Value = "S*"

Alvast dank.

 

[HSV]

Uit de losse pols.

emptyRow = WorksheetFunction.CountA(Range("A:A")) + 3

If ChkSerumDiepvries = True Then Cells(emptyRow, 20).resize(,2) = array(TxtStaalnummer.Value, "S*")

 

[Killerclown]

Super HSV!

De losse pols heeft zijn werk goed gedaan