formule om automatisch een datum aan te passen

dzzls · 16 sep 2020

ik heb een exceldocument waarbij een bepaald nummer rood of groen wordt wanneer deze langer dan 14 dagen niet aanwezig is geweest.

In de huidige situatie moet ik bij een Kist de datum aanpassen (de datum dat de kist gezien is, gele kolom blad 2). Ik vind dit vrij onhandig want ik moet door een lijst van 2000 nummers opzoek naar het nummer om vervolgens daar de datum aan te passen. Het zou veel mooier zijn dat ik een apart blad heb dat bijv. 'kistnummer blad 1' heet waar ik de nummers in kan voeren. als ik een nummer heb ingevoerd dan past excel de datum aan naar de datum van vandaag in blad 2. Het doel moet zijn dat ik de vakjes rood/groen krijg door alleen het invoeren van een nummer in een sheet ipv overal data te lopen aanpassen.

Kan iemand mij hierbij helpen?

VenA · 16 sep 2020

Zet er een kolom achter en gebruik VERT.ZOEKEN() en een filter.

Of met VBA
Het hele lijstje in 1 keer.

Code:

Sub VenA()
  ar = Sheets("Kistnummer (blad 1)").Cells(1).CurrentRegion
  With Sheets("voorwaardelijke opmaak (Blad 2)")
  For j = 2 To UBound(ar)
    x = Application.Match(ar(j, 1), .Columns(1), 0)
    If IsNumeric(x) Then .Cells(x, 3) = Date
    Next j
  End With
End Sub

Of als je een nummer invoert in kolom A.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 And Target.Count = 1 Then
    With Sheets("voorwaardelijke opmaak (Blad 2)")
      x = Application.Match(Target.Value, .Columns(1), 0)
      If IsNumeric(x) Then .Cells(x, 3) = Date
    End With
  End If
End Sub

formule om automatisch een datum aan te passen

dzzls

Nieuwe gebruiker

Bijlagen

VenA

Inventaris

Nieuwste berichten

Wij waarderen jouw privacy