Hi all,
I am trying double click event.
Code is as follows:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 Application.ScreenUpdating = False
If Not Intersect(Target, Range("Q:Q")) Is Nothing Then
    Target.Value = Now()
   'Now I want to add another if statement to intersect target N:N
    Intersect(Target, Range("N:N"))
    If Target.Column = 17 And Target.Value = "Not" Then
    Target.EntireRow.Copy Destination:=Sheets(9).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
   Else
' this should happen
    Target.EntireRow.Copy Destination:=Sheets(5).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
    Target.EntireRow.Delete Shift:=xlUp
      
   Application.ScreenUpdating = True
  End If
End If
End Sub
Not getting there yet.
Any help please
Kind regards