Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo SHIT
Application.EnableEvents = False
If IsEmpty([a1]) Then
[a1] = Target.Cells(1)
Else
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = Target.Cells(1)
End If
SHIT:
Application.EnableEvents = True
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 Then Cancel = True: Target.Offset(, -2) = Target.Value
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 Then Target.Offset(0, -2) = Target.Value
Cancel = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column 3 Then Exit Sub
On Error GoTo SHIT
Application.EnableEvents = False
If IsEmpty([a1]) Then
[a1] = Target.Cells(1)
Else
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = Target.Cells(1)
End If
SHIT:
Application.EnableEvents = True
End Sub