[Excel07] Εμφανισμένη ημερομηνία σε textbox

[kolekas]

Καλησπέρα και πάλι .
έχω το έξεις πρόβλημα σε ένα κελί έχω ορίσει να βγαίνει ημερομηνία.
την λίστα την εμφανίζω σε ένα listbox. μετά από το listbox με διπλό κλικ τα πάω σε textbox εκεί αντί για ημερομηνία μου βγάζει αριθμό.
έτσι την παω(Me.Emp3.Value = Me.lstEmployee.Column(2, i))
τι πρέπει να κάνω?
ευχαριστώ!!!

[Spirosgr]

Καλημέρα
Το ερώτημα δεν είναι σαφές...

Φαντάζομαι, ότι μιλάμε για λίστα και textbox, σε φύλλο και όχι σε φόρμα...

Κάνουμε διπλό κλικ στη λίστα και η ημερομηνία, που βρίσκεται σε μια Χ στήλη της,
εμφανίζεται σε κελί και textbox...

Παρόμοια, θα μπορούσε να γίνει και σε φόρμα...(υπό προϋποθέσεις)

Περισσότερα στο βιβλίο.
Αν δεν θέλεις κάτι τέτοιο, ανέβασε αρχείο.

[kolekas]

καλησπέρα φίλε Σπύρο
το είδα από το τηλ. αυτό που έβαλες άλλα δεν είχα προλάβει να το κοιτάξω στο pc.
σε είπα οτι το listbox και textbox είναι σε userform.
o κώδικας που έχω ειναι αυτος
(Private Sub lstEmployee_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'dim the variables
Dim i As Integer
On Error Resume Next
'find the selected list item
i = Me.lstEmployee.ListIndex
'add the values to the text boxes
Me.Emp1.Value = Me.lstEmployee.Column(0, i)
Me.Emp2.Value = Me.lstEmployee.Column(1, i)
Me.Emp3.Value = Me.lstEmployee.Column(2, i)
Me.Emp4.Value = Me.lstEmployee.Column(3, i)
Me.Emp5.Value = Me.lstEmployee.Column(4, i)
Me.Emp6.Value = Me.lstEmployee.Column(5, i)
Me.Emp7.Value = Me.lstEmployee.Column(6, i)
Me.Emp8.Value = Me.lstEmployee.Column(7, i)
Me.Emp9.Value = Me.lstEmployee.Column(8, i)
Me.Emp10.Value = Me.lstEmployee.Column(9, i)
Me.Emp11.Value = Me.lstEmployee.Column(10, i)
Me.Emp12.Value = Me.lstEmployee.Column(11, i)
Me.Emp13.Value = Me.lstEmployee.Column(12, i)
Me.Emp14.Value = Me.lstEmployee.Column(13, i)
Me.Emp15.Value = Me.lstEmployee.Column(14, i)
Me.Emp16.Value = Me.lstEmployee.Column(15, i)
Me.Emp17.Value = Me.lstEmployee.Column(16, i)
Me.Emp18.Value = Me.lstEmployee.Column(17, i)
Me.Emp19.Value = Me.lstEmployee.Column(18, i)
Me.Emp20.Value = Me.lstEmployee.Column(19, i)
Me.Emp21.Value = Me.lstEmployee.Column(20, i)
On Error GoTo 0
End Sub)
ευχαριστώ για άλλη μια φορά που ασχολισε .....

[Spirosgr]

Βασίλη...

Για τον κώδικα που έχεις, δεν θα κάνω σχόλια...
Ξέρω την προέλευσή του...

Δες το βιβλίο και θα δείς πως θα πρέπει να γίνει.

Σχόλια...Σημειώσεις

1
Πρόσθεσε στο φύλλο, όσες στήλες θέλεις-χρειάζονται
2
Περιέλαβε όλη την περιοχή στο όνομα = iTest
3
Άλλαξε τον αριθμό στηλων, στον κώδικα
4
Βάλε το κατάλληλο πλάτος στηλών
5
Αν υπάρχουν άλλα textboxes, που χρειάζεται ειδική μορφοποίηση,
συνέχισε με τον ίδιο τρόπο (αντέγραψε) στον χώρο:
'Μορφοποίηση Χ
'Μορφοποίηση Ψ

[kolekas]

Καλησπέρα.
Από την αρχή Σπυρο έχω πει ότι το πάω ψαχνωντα με είμαι στο χωριό όταν επιστρέψω το δοκιμάζω και σου λέω.
Ευχαριστώ....

[kolekas]

Καλησπέρα Σπύρο
για άλλη μια φορά σε ευχαριστώ πολύ για την βοήθεια σου.το έφτιαξα όπως μου είπες και όλα μια χαρά.
ευχαριστώ !!!!

[Spirosgr]

Καλημέρα
Να 'σαι καλά!