Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$G$8" Or Target.Address = "$G$9" Or Target.Address = "$G$10" Then
Range("H8") = Range("G8")
Range("H9") = Range("G9")
Range("H10") = Range("G10")
Cancel = True
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$G$8" Or Target.Address = "$G$9" Or Target.Address = "$G$10" Then
Range("H8") = "X"
Range("H9") = "X"
Cancel = True
End If
End Sub
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$G$8" Then
Range("H8") = Range("G8")
Cancel = True
ElseIf Target.Address = "$G$9" Then
Range("H9") = Range("G9")
Cancel = True
ElseIf Target.Address = "$G$10" Then
Range("H10") = Range("G10")
Cancel = True
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("G8:G11"), Target) Is Nothing Then
Target.Offset(, 1) = "x"
Cancel = True
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("G8:G11"), Target) Is Nothing Then
Range("H8:H11").ClearContents
Target.Offset(, 1) = "x"
Cancel = True
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set Target=Intersect(Target, Range("G8:G100"))
If Target Is Nothing Then
Exit Sub
Else
Target.OFFSET(0,1) = "X"
Cancel = True
End If
End Sub