Als waarde in een cel dan tijd in een andere cel?

[kaan]

Ik probeer met een formule volgende:
Als de cel in rij I verandert dat er in rij H tijd wordt ingevoerd.
Dit lukt mij wel met de volgende code:

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("I4:I72")) Is Nothing Or _
       Target.Count > 1 Then Exit Sub
    With Target.Offset(, -1)
        .Formula = Now
        .NumberFormat = "h:mm AM/PM"
    End With
    End Sub

Maar nu wil ik dat de zelfde code ook gelijke tijd als de cel in rij L verandert dat er ook tij in K word ingevoerd?

Dus:

Als rij I cellen wijzigen dan actuele tijd in cel daarvoor vertonen en als rij L cellen vanaf 4 t/m 72 wijzigen actuele tijd in cel daarvoor vertonen!
Wie kan mij helpen dit mogelijk te maken?

 

[kaan]

Allen,

Ondertussen heb ik zelf al een oplossing gevonden, oplossing is eigenlijk erg simpel, zie hieronder de code

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("I4:I72,L4:L72")) Is Nothing Or _
Target.Count > 1 Then Exit Sub
With Target.Offset(, -1)
.Formula = Now
.NumberFormat = "h:mm AM/PM"
End With
End Sub

 

[kaan]

Allen

Met de code hieronder lukt het mij om automatische tijden toe te voegen in cellen daarvoor.

nu wil ik dat er ook gelijk met de tijden ook in cel daarvoor dus in cel G een tekst laten invoegen!

Met andere woorden wil ik de hieronder staande code zodanig aanpassen als volg:

Als cel I4 wijzigt dan tijd(nu) in cel daarvoor (H4) en tekst(test) in cel daarvoor (G4)

Wie kan mij hiermee helpen?

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("I4:I72,L4:L72")) Is Nothing Or _
Target.Count > 1 Then Exit Sub
With Target.Offset(, -1)
.Formula = Now
.NumberFormat = "h:mm AM/PM"
End With
End Sub

 

[sylvester-ponte]

voeg onderaan in de sub deze regel toe

Target.Offset(, -2)="test"

 

[kaan]

voeg onderaan in de sub deze regel toe

Target.Offset(, -2)="test"

Hi sylvester-ponte,

Bedankt voor je reactie.

Ik weet dat het wel beter kan maar ik heb het probleem wel met de volgende code kunnen oplossen.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("M4:M352,Q4:Q352")) Is Nothing Or _
Target.Count > 1 Then Exit Sub
With Target.Offset(, -1)
.Formula = Now
.NumberFormat = "HH:MM"
End With

    If Not Intersect(Target, Range("M4:M72,Q4:Q352")) Is Nothing Then
        Target.Offset(, -2).Value = "test"
        Target.Offset(, -2).Interior.ColorIndex = 4
        Target.Offset(, -2).Font.Name = "Arial"
        Target.Offset(, -2).Font.Size = 8
    End If
End Sub