2 on change actions

[jtodd]

Hi , is it possible to have 2 actions on the worksheet change - i have the folowing code

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myTableRange As Range
Dim myDateTimeRange As Range
'Dim myUpdateRange As Range

Set myTableRange = Range("K:K")
If Intersect(Target, myTableRange) Is Nothing Then Exit Sub
Set myDateTimeRange = Range("L" & Target.Row)
'Set myUpdatedRange = Range("L" & Target.Row)

If myDateTimeRange.Value = "" Then
   myDateTimeRange.Value = Now
   End If
End Sub

this works fine but is it possible to also have it do the same for Range G:G and target row H

 

[Fluff]

How about

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myTableRange As Range
Dim myDateTimeRange As Range
'Dim myUpdateRange As Range

Set myTableRange = Range("K:K")
If Not Intersect(Target, myTableRange) Is Nothing Then
   Set myDateTimeRange = Range("L" & Target.Row)
   'Set myUpdatedRange = Range("L" & Target.Row)
   
   If myDateTimeRange.Value = "" Then
      myDateTimeRange.Value = Now
   End If
ElseIf Not Intersect(Target, Range("G:G")) Is Nothing Then
   If Target.Offset(, 1).Value = "" Then Target.Offset(, 1).Value = Now
End If
End Sub

 

[jtodd]

Thanks for quick reply - when i add this code i get the following error

 

[Fluff]

Delete your code & then copy/paste the code I supplied.

 

[jtodd]

Sorry my fault , works fine
Many thanks

 

[Fluff]

You're welcome & thanks for the feedback.