van kolommen naar een specifieke range veranderen

[bjornesto]

Ik heb een code in VBA en deze werkt perfect als je in de eerste kolom iets intypt moet er automatisch in kolom B de tijd instaan
Echter zou deze moeten veranderd worden in bepaalde cellen range is dit mogelijk

Deze zijn
- Van A48 tot A94 iets invullen en dan het uur automatisch B48 tot B94

- Van E48 iets invullen tot E69 het uur dat er automatisch opkomt van F48 tot F69

Dit is de code

Private Sub worksheet_change(ByVal Target As Range)

If Target.Column = 1 Then
    Cells(Target.Row, 2).Value = Time
    End If

If Target.Column = 5 Then
    Cells(Target.Row, 6).Value = Time
    End If
     
End Sub

 

[HSV]

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("A48:A98,E48:E98")) Is Nothing Then
  Target.Offset(, 1) = Time
 End If
End Sub

 

[bjornesto]

kan je dit ook aanpassen dat wanneer je iets intypt er in de tweede kolom automatisch het uur verschijnt en later merkt dat je een fout gemaakt hebt het uur toch ongewijzigd blijft

stel je typt in kolom A48 --> naam x in --> in B48 komt er dan het uur te staan vb 08:00 later zie je dat je een fout gemaakt hebt. Dus in kolom A48 --> verander je naam x in naam --> dan zou het uur niet het huidige uur moeten worden (voorbeeld 12:15) maar zou het gewoon 08:00 uur moeten blijven

Is dit mogelijk?

 

[HSV]

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("A48:A98,E48:E98")) Is Nothing Then
  With Target.Offset(, 1)
   .Value = IIf(.Value = "", Time, .Value)
  End With
 End If
End Sub

 

[bjornesto]

beste

ik had in volgende cel D48 een list dropdown gezet en daarboven een formule

=IF(A48>0,"GOODS DELIVERY"," ")

Nu werkt de code niet meer hoe kan je die terug heractiveren om het uur automatisch terug te krijgen