Automatisch invullen cellen

[GEVANBOMMEL]

Beste mensen,

Volgens mij al regelmatig voorgekomen op deze site. Maar ik kom er niet echt uit. Ben wat VBA betreft ook niet echt een held en een redelijke noob.

Ik heb een Excel file waar ik:
Als kolom "G" wordt ingevuld er op die regel in kolom "J" de datum van vandaag moet worden vastgezet.
Na het invullen van Cel G moet hij eigenlijk automatisch naar cel "I" gaan.

Tevens moet er als Kolom C wordt ingevuld met "Klaar" automatisch de datum op dezelfde regel in kolom "K" de datum worden vastgezet.
Ik ben een beetje bezig geweest met VBA maar ik krijg het gewoon niet voor elkaar geknokt.


Als iemand mij hiermee, kan en zou willen helpen, graag...

 

[AD1957]

Zo?

Private Sub Worksheet_Change(ByVal Target As Range)
With Target

    If .Row > 4 Then
        Select Case .Column
            Case 7
                  If .Value <> "" Then
                      .Offset(, 3) = Date
                      Application.Goto .Offset(, 2)
                  Else
                      .Offset(, 3) = ""
                  End If
            Case 3
                  If .Value = "Klaar" Then .Offset(, 8) = Date
                   
        End Select
    End If
End With

End Sub

 

[GEVANBOMMEL]

Beste Albert,

Het lijkt er op dat het werkt. Blijft de desbetreffende datum wel staan?
Wat ik bedoel te zeggen is, stel ik vul vandaag cellen in, daar wordt dan de datum van vandaag in gezet.
Als ik dan morgen dezelfde file open, worden de data gisteren geschreven dan overschreven of blijft netjes de datum van gisteren staan.

 

[AD1957]

Je zult er inmiddels wel achter zijn dat de datum gewoon blijft staan.
Echter: als je iets wijzigt aan de omschrijving in kolom G dan wijzigt de datum wel.

 

[snb]

Gebruik nooit samengevoegde cellen in combinatie met VBA.
Gebruik ingebouwde Excel-voorzieningen als de 'intelligente' tabel (Listobject).
Verwijder overbodige voorwaardelijke opmaakregels.