Automatisch waarde in cel tenzij

[Kaalbartje]

Hoi,

Ik wil 1 rij gebruiken waar een standaard waarde staat (of eigenlijk in een andere cel gedefinieerd). De cellen mogen gewijzigd worden maar als deze leeg gemaakt wordt (lees gedelete)dan moet de "standaard waarde weer terug komen). Mag met een macro

 

[Ad Becude]

Zoiets:

 

[Kaalbartje]

Ja super, dat is precies wat ik bedoel.
Dit is een onderdeel van een groter geheel (hele jaar) en met meerdere afdelingen. Hoe moet ik hem aanpassen voor het hele jaar en voor andere afdelingen? Die kunnen dus andere waarde hebben, net als in het voorbeeld.

 

[Kaalbartje]

Heeft iemand een idee hoe dit te doen?
Hoor het graag.

 

[JEC.]

Zoiets?

 

[Kaalbartje]

Hoi,

Volgens mij doet ie het niet goed. Als ik een waarde weg haal komt niet de waarde die in kolom B staat.
Daarbij moeten alle diensten hetzelfde doen. Dus terugkeren nar de waarde die in Kolom B staat.

 

[JEC.]

Dus als de waarden in kolom Dag, avond en nacht niks is, wil je de waarde uit kolom B

 

[Kaalbartje]

Ik ook. Zie dan 18 of 19 verschijnen maar niet 24 zoals in de kolom staat.

 

[JEC.]

Zo dan?

Wanneer je bereik groter wordt dan 20 regels moet je de code even aanpassen. Nu staat er intersect(target, range("3:20")).

Wanneer je over de 20 rijen komt kun je die even aanpassen, of gewoon van te voren groot genoeg maken

 

[VenA]

2 x de events op True zetten heeft weinig nut.

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  If Not Intersect(Target, Columns(4).Resize(, 5)) Is Nothing Then
    If Target.Count = 1 And Target.Value = "" Then Target.Value = Cells(Target.Row, 2)
  End If
  Application.EnableEvents = True
End Sub

 

[JEC.]

Foutje bedankt:thumb:

 

[Kaalbartje]

tnx,

Ga er mee spelen.