[kapetang]

Καλησπέρα στην παρέα

Στο επισυναπτόμενο αρχείο επιχειρείται μια προσέγγιση του ζητούμενου.

Κάνοντας κλικ στα κελιά της στήλης Α οι τιμές τους αντιγράφονται, εναλλάξ, στα κελιά C3 και C4.

Αν η τιμή του κελιού στο οποίο γίνεται κλικ υπάρχει στο κελί C3 ή C4, η τιμή του δεν αντιγράφεται.

Η παραπάνω λειτουργικότητα υλοποιείται με τον παρακάτω κώδικα:

Option Explicit
Public numClick As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim FinalRow As Long, RngSource As Range
    If Target.Cells.Count > 1 Then Exit Sub
    
    Application.EnableEvents = False
    FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
    Set RngSource = Range("A2:A" & FinalRow)
    
    If Not Intersect(Target, RngSource) Is Nothing Then
    
        If Not (Target.Value = Range("C3") Or Target.Value = Range("C4")) Then
            numClick = numClick + 1
            If numClick Mod 2 = 1 Then
                Target.Copy Destination:=Range("C3")
            Else
            Target.Copy Destination:=Range("C4")
            End If
        End If
        Cells(Target.Row, 2).Activate
    End If
    Application.EnableEvents = True
End Sub

Νίκο, ελπίζω αυτή τη φορά να έγινε αντιληπτό το ζητούμενο.

Φιλικά/Γιώργος