Καλησπέρα σε όλους,
Σπύρο νάσε καλά για την απάντησή σου, η οποία με την επικύρωση δουλεύει μια χαρά.
Θα ήθελα όμως να σας ρωτήσω κάτι επιπλέον, εφόσον δεν κάνω κατάχρηση της καλοσύνης σας (το αναφερω και στο αρχικό μήνυμα).
Έχω γράψει μια απλή συνάρτηση
VBA με την οποία παίρνουν τα κελλιά Α1,Β1,C1 τις τιμές.
Δεν γνωρίζω πως να την συμπληρώσω ώστε να δίνει στο κελλί D1 την ημερομηνία.
Σας παραθέτω την συνάρτηση:
Sub GetDay()
Worksheets("Φύλλο1").Select
Range("A1").Value = UserForm1.ListBox1.Value
Range("B1").Value = UserForm1.ListBox2.Value
Range("C1").Value = UserForm1.ListBox3.Value
'Range("D1").Value=Date(A1;B1;C1)
End Sub
Παρά τις προσπάθειές μου (με διάφορες παραλλαγές) δεν μπόρεσα να δώσω την τιμή στο D1.
Κάθε βοήθεια θα ήταν ευπρόσδεκτη.
Σας ευχαριστώ
Θανάσης