• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Now()

Status
Niet open voor verdere reacties.
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
    If Target.Address = Range("a1").Address Then Target.Offset(, 1) = Now()
Application.ScreenUpdating = True
End Sub
 
Gewoon de roodgekleurde tekst wijzigen in de code:

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    
Application.ScreenUpdating = False

If Target.Address = Range("a1").Address Then

  [COLOR="red"] Range("b1") [/COLOR]= Now()
    
End If

Application.ScreenUpdating = True


End Sub
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan