Αντιστοιχία αριθμού - ονόματος

[Spirosgr]

Καλησπέρα
Μιας και ο Διογένης πιθανόν να ήθελε μια λύση με VBA αλλά και γενικά σαν εναλλακτική κατάσταση, η λύση που σας παρουσιάζω έχει κάποια πλεονεκτήματα σε σχέση με τους τύπους INDEX,MATCH όταν τους χρησιμοποιούμαι με τον κλασσικό τρόπο
Δημιουργώντας πίνακες και δίνοντας ονόματα σε κελιά ή περιοχές (*βλέπε name manager)
μπορούμε να μετακινήσουμε τους πίνακες μας οπουδήποτε στο φύλλο ή να μεγαλώσουμε το
αρχικό πινακάκι των ονομάτων (τα δεδομένα μας) όσο χρειάζεται
καθώς και τον πίνακα των αποτελεσμάτων
Πατώντας το κουμπί της εντολής καθαρίζονται τα παλιά αποτελέσματα και ενημερώνονται με τα νέα
Δείτε το και αξιολογήστε το
επιπρόσθετα αν βάλουμε στον κώδικα τις γραμμές
Range("setcell").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
η περιοχή μας δεν έχει πλέον τύπους αλλά μόνο τα ονόματα σαν τιμές
οι γραμμές αυτές πρέπει να μπουν πριν το msgbox