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
Bookmarks