Inderdaad,$A:$A moet je veranderen in $F:$F
Gelukkig is de code niet zo groot, zodat het uitleggen wel zal gaan. Voor de duidelijkheid hier nog eens de macro:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("$A:$A")) Is Nothing Then
Target.Offset(0, 1).Value = Date
End If
End Sub
Dit hier:
Private Sub Worksheet_Change(ByVal Target As Range)
Is een standaardcode voor Excel. Dit is één van de vele macro's die automatisch starten. De code zegt het als zelf: Treed in aktie als er iets in de Worksheet wijzigt.
Target slaat op de cel die gewijzigd wordt.
DIT is code die excel zelf reeds plaatst.
Deze code schrijf je dan weer zelf:
If Not Intersect(Target, Range("$A:$A")) Is Nothing Then
Target .... kennen we intussen (De cel die gewijzigd is)
Range("$A:$A") ........ Dit is de benaming voor de A kolom
Intersect ............. Geeft het gemeenschappelijke gebied aan tussen 2 of meer gebieden.
Intersect(Target, Range("$A:$A"))
Indien de gewijzigde cel zich dus in de A kolom bevind, dan is het gemeenschappelijke gebied de Target-cel.
Not Intersect(Target, Range("$A:$A")) Is Nothing
nu in het nederlands:
De gemeenschappelijke cel is NIET niets. Dus met andere woorden: er IS een gemeenschappelijke cel.
If ...... Then
Als er een gemeenschappelijke cel is dan...
Target.Value = Date
De waarde van de gewijzigde cel is de huidige datum!
Target.Offset(0, 1).Value = Date
Nu nog één stap verder: De gewijzigde cel, en dan ga je 0 rijen naar onder en 1 kolom naar rechts... en daar zet je de datum in.
Zo... dat was het ongeveer. Laat u niet ontmoedigen door de wat moeilijke uitleg. Indien je VBA stap voor stap leert, is het heel wat eenvoudiger.
Bezoek maar alvast mijn website. Daar staat voldoende VBA in.
http://users.skynet.be/onderland/Excel.htm#Lessen
Wat kan ik verkeerd doen?
