[kapetang]

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

Σάκη, στο αρχείο που επισυνάπτω, έκανα μια προσπάθεια να υλοποιήσω το ζητούμενο.
Συγκεκριμένα κάνοντας κλικ σ’ ένα κελί της περιοχής «A2:A120»:
1. Αν το κελί έχει όνομα μεταφέρεται στους απόντες.
2. Αν είναι κενό γεμίζει με το όνομα που υπάρχει στη στήλη C και στην ίδια γραμμή.
Η παραπάνω λειτουργικότητα οφείλεται στον κώδικα:

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim TargetRow As Long
    If Target.Cells.Count > 1 Then Exit Sub
    TargetRow = Target.Row
    If Not Intersect(Target, Range("A2:A120")) Is Nothing Then
        If Not IsEmpty(Target) Then
            Target.Cut Destination:=Cells(Target.Row, 3)
        Else
            Cells(Target.Row, 3).Cut Destination:=Target
        End If
        Cells(TargetRow, 2).Activate
    End If
End Sub

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