Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 2 van 2

Onderwerp: formule om automatisch een datum aan te passen

  1. #1
    Junior Member
    Geregistreerd
    16 september 2020
    Vraag is niet opgelost

    formule om automatisch een datum aan te passen

    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?
    Bijgevoegde bestanden Bijgevoegde bestanden

  2. #2
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    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
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren