[Excel07] "Δημιουργία" ημερομηνίας

[athfot]

Καλησπέρα σε όλους,
Σπύρο νάσε καλά για την απάντησή σου, η οποία με την επικύρωση δουλεύει μια χαρά.

Θα ήθελα όμως να σας ρωτήσω κάτι επιπλέον, εφόσον δεν κάνω κατάχρηση της καλοσύνης σας (το αναφερω και στο αρχικό μήνυμα).
Έχω γράψει μια απλή συνάρτηση 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.
Κάθε βοήθεια θα ήταν ευπρόσδεκτη.
Σας ευχαριστώ
Θανάσης

[gr8styl]

Αρχική Δημοσίευση από athfot

...Θα ήθελα όμως να σας ρωτήσω κάτι επιπλέον, ....

Συνονόματε, βάλε
Range("d1").Value = DateSerial(Range("c1"), Range("b1").Value, Range("a1").Value)
αντί
'Range("D1").Value=Date(A1;B1;C1)

Καλή συνέχεια
Θανάσης.
ΥΓ
Εγώ δεν κατάλαβα σε τι χρειάζονται οι βοηθητικές στήλες κλπ όταν η δουλειά γίνεται με την DATE απλά