Macro's die nieuwe controle inplant

[SKS]

Ik heb een sheet waarin Auditors controles uitvoeren. Als de controle klaar is vullen ze - in bijgaande voorbeeldsheet - in kolom D Ja in.
Ik wil graag een macro maken die alle cellen in kolom D controleert op waarde "Ja" en vervolgens de waarde van kolom C van dezelfde lijn kopieërt naar kolom A en daarna de waarde "Ja" weer uit kolom D haalt.

Ik hoop dat ik dit een beetje begrijpelijk omschrijf voor jullie...

 

[VenA]

Bv

Sub VenA()
For Each cl In Blad1.Columns(4).SpecialCells(2)
  If LCase(cl) = "ja" Then
    cl.Offset(, -3) = cl.Offset(, -1).Value
    cl.ClearContents
  End If
Next cl
End Sub

 

[SKS]

Dank je wel! :thumb:

 

[snb]

Het is natuurlijk veel handiger als dit al meteen gebeurt op het moment dat een auditor een controle als afgerond aanmerkt.

 

[VenA]

Of als aanvulling op de opmerking van snb er een 'Logfile' aan toevoegt.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, ListObjects(1).Range.Columns(5)) Is Nothing Or Target.Count <> 1 Then Exit Sub
  Application.EnableEvents = False
    With Target
      If .Value = "Ja" Then
        Sheet2.ListObjects(1).ListRows.Add.Range = Array(.Offset(, -4), .Offset(, -3), Environ("username"), Now)
        .Offset(, -3) = .Offset(, -1).Value
        .Value = "Nee"
      End If
    End With
  Application.EnableEvents = True
End Sub