[Tasos]

Καλησπέρα Σάκη και καλωσόρισες στο φόρουμ!

Εναλλακτικά, μπορείς να δοκιμάσεις το παρακάτω:

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    With Target
        If .Count > 1 Or .Row < 2 Or .Column <> 1 Then Exit Sub
        Cancel = True
        If Trim(.Value) <> vbNullString Then
            .Offset(, 2).Value = .Value
            .ClearContents
        Else
            .Value = .Offset(, 2).Value
            .Offset(, 2).ClearContents
        End If
    End With
End Sub

Ο κώδικας αυτός ενεργοποιείται με το διπλό κλικ πάνω σε κελί της στήλης A.

Καλή συνέχεια!

Τάσος