Excel: formule vervangen door uitkomst

Status
Niet open voor verdere reacties.
L

Lomyth

Nieuwe gebruiker
Lid geworden
7 jan 2020
Berichten
4
Ik ben bezig met een Excel bestand waarin dagelijks meerdere reserveringen van artikelen gaan worden vastgelegd.

Een versimpelde versie zit in de bijlage.

De huidige oplossing met in kolom C een handmatig ingevoerde datum wil ik graag vervangen. Het handmatig ingeven van een datum is foutgevoelig en achteraf te wijzigen en aan te passen.

Is het mogelijk met een code oid om zodra er een artikelnummer wordt ingevoerd in een veld in kolom A er in dezelfde rij in kolom D een datum komt te staan van de invoerdatum (is vandaag) + 14.
Kolom D kan ik dan met cel- en bladbeveiliging beschermen tegen wijzigingen.

Hopelijk kan iemand mij hiermee helpen.
 

Bijlagen

  • Test datum.xlsx
    11,3 KB · Weergaven: 23
Het is wel xlsb geworden, kan niet anders met macro's.

Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 ActiveSheet.Unprotect
  If Not Intersect(Target, Range("A1:A10000")) Is Nothing Then
    ActiveCell.Offset(0, 2) = Format(Now + 14, "dd-mm-yyyy")
 End If
  ActiveSheet.Protect
End Sub
Succes.
PS Kijk eens met behulp van Alt-F11.
Maak wel een reservekopie voor verandering...
Wel eerst dubbelklikken in koklom A. Mogelijk gemaakt tot A10000, wel even genoeg? Anders een nulletje erbij in de range...
 

Bijlagen

  • Test datum.xlsb
    16,2 KB · Weergaven: 15
Dan kan deze dicht lijkt mij
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan