Hey,

Op mijn werk sta ik in voor de problemenop te lossen die ze komen melden, maar om alles een beetje bij te houden zou ik alles in excel willen bij houden. Zo zou ik in cel A1 de omschrijving willen zetten van het probleem, in B1 een dropdown box waar ik de keuze heb met OK of NOK, en in C1 moet de datum komen wanneer ik in B1 OK of NOK heb gekozen. Nu moet dit wel dien voor gans hte document en niet alleen van de 1ste rij.

Wie kan mij helpen?

Thx,
Koshi

Softaid

Jouw datum zal wijzigen als het bestand op een andere dag geopend wordt. Indien dat niet gewenst is, moet dit gebruikt worden:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 Then
        If Target = "OK" Or Target = "NOK" Then
            Target.Offset(0, 1) = Date
        End If
    End If
End Sub
Wigi

Ik denk niet dat het kan, het zal steeds aangepast worden op latere tijdstippen.

Wigi

Koshi

 - open VBA editor door op Alt-F11 te drukken.
 - in de VBA project verkenner, localiseer jouw bestand en vouw alles open
 - dubbelklik op de naam van het werkblad waarin de code toegepast moet worden, dus het blad met de gegevens die je hier in je vraag meegaf
 - plak de code die ik je gegeven heb
 - keer terug naar Excel door nogmaals Alt-F11 te drukken

Klaar is kees!

De code treedt in werking bij de wijziging van een cel in dat werkblad (en enkel dat werkblad). Target is de cel of het bereik dat wijzigt. Als Target in kolom B ligt  (dus Target.Column = 2) dan wordt de onderstaande code uitgevoerd. Gebeurt de wijziging in kolom A bv. dan gebeurt er niks. Er wordt ook enkel maar code uitgevoerd als Target (de gewijzigde cel) wijzigt in OK of NOK. Zet je iets anders, dan is de IF (de voorwaarde onwaar). Target.Offset(0, 1)   wilt zeggen: start in Target, ga 0 rijen naar beneden en ga 1 kolom naar rechts. In die cel zet je Date (de datum van vandaag dus). Die wijzigt niet als je het bestand morgen of later nog eens opent.

Is dit voldoende uitleg?

Wigi

Hey WG,

Als ik dit probeer krijg ik altijd volgende error "Invalid Outsite procedure"

Boven je code:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 Then
        If Target = "OK" Or Target = "NOK" Then
            Target.Offset(0, 1) = Date
        End If
    End If
End Sub

Staat er nog een lijn en "code:" . Verwijder deze beide en klik op de toets Opslaan.

En als ik zo de code bekijk komt er geen dropdown box waar ik de keuze kan maken, klopt dit.

Daar gebruik je toch Data, Valideren voor, zoals ik het je toonde in het voorbeeld. Maak een validatie voor de cel in kolom B in de 1 ste rij, en trek deze door naar alle rijen.

Natuurlijk kan je dit ook weer in je macro stoppen, als je dat wilt.

SoftAid

Heb jullie instrukties gevolgd, maar nu komt de datum er weer niet bij.