[VBA] Κώδικας εισαγωγής Ώρας (TimeStamp)
 

Γεια σας,

θα ήθελα τον κώδικα εισαγωγής ώρας στο επισυναπτόμενο αρχείο.
Αναλυτικότερα, κάθε φορά που σκανάρω κάποιο κωδικό qr code να εντοπίζει στην στήλη Α τον κωδικό και στην ίδια σειρά, στην στήλη Ε ή Μ ανάλογα με την ημερομηνία να αναγράφεται η ώρα. Σε κάθε επόμενο σκανάρισμα του ιδίου κωδικού η ώρα να αναγράφεται στην επόμενη στήλη.

Δηλαδή, για την ημερομηνία στο κελί Ε1 η ώρα να αναγράφεται στις στήλες Ε μέχρι L και για την ημερομηνία στο κελί Μ1 στις στήλες Μ μέχρι Τ.

Σας ευχαριστώ,

Καλημέρα και καλώς ήλθες στο ms-office.gr

Το ερώτημά σου, έχει μια ασάφεια, ως προς την εισαγωγή των κωδικών...
Δεν αναφέρεις αν οι ήδη καταχωρημένοι κωδικοί, μπορεί να αλλάξουν-τροποποιηθούν.

Θεωρώ πως όχι, με βάση το ότι η καταχώρηση γίνεται με σκανάρισμα.

Περισσότερα και επεξήγηση του κώδικα, στο βιβλίο που ακολουθεί...

*Διόρθωσα λίγο και την εμφάνιση του έργου.

Ευχαριστώ και καλώς σας βρήκα. Διαβάζοντας τις ενότητες του φόρουμ όχι μόνο επιλύονται απορίες αλλά γεννιούνται και ιδέες για βελτιστοποίηση των έργων μας.

Καταρχήν σε ευχαριστώ για τον κώδικα αλλά και για την εμφάνιση του έργου.

Σωστά υπέθεσες οι κωδικοί είναι ήδη καταχωρημένοι.
Οι ήδη καταχωρημένοι κωδικοί δεν μπορούν να αλλάξουν. Μπορούν όμως να προστεθούν νέοι.
Επιπρόσθετα, οι κωδικοί είναι μοναδικοί και είναι στην στήλη C σύμφωνα με το δικό σου βιβλίο.
Οπόταν ο κώδικας VBA πρέπει να διαβάζει από την στήλη C. (αυτό μπορώ να το αλλάξω σύμφωνα και με τις οδηγίες σου.) Στην στήλη Β είναι απλά αύξων αριθμός.

Πρόσεξα όμως ότι σε πληκτρολόγηση ιδίου κωδικού στην στήλη Β η ώρα αναγράφεται στην αντίστοιχη σειρά. Αυτό που θα ήθελα είναι σε κάθε σκανάρισμα ή πληκτρολόγησης του μοναδικού κωδικού η ώρα να αναγράφεται στην ίδια σειρά με τον μοναδικό κωδικό καθώς επίσης σε κάθε επόμενο σκανάρισμα στην επόμενη στήλη.

Δηλαδή να εντοπίζει τον μοναδικό κωδικό αριθμό στην στήλη C και να αναγράφεται η ώρα στην ίδια σειρά.
Στον VBA πρόσεξα ότι πληκτρολογώντας τον κωδικό πχ στο κελί Β4 σωστά αναγράφεται η ώρα στο κελί Ν4. Πληκτρολογώντας ξανά τον ίδιο κωδικό στο κελί Β4 δεν αναγράφεται σε κανένα κελί η ώρα. Πληκτρολογώντας όμως τον ίδιο κωδικό σε άλλο κελί πχ Β5 αναγράφεται η ώρα στο Ο5.

Τέλος πρόσεξα ότι σκανάρωντας του κωδικούς ο VBA δεν δουλεύει. Δοκίμασα και τον VBA στο θέμα Forum > Microsoft Excel > Excel samples - Χρήσιμα αρχεία & παραδείγματα > [VBA] Κώδικας εισαγωγής Ημέρας ή και Ώρας (DateStamp) αλλά πάλι το ίδιο. Δουλεύει μόνο πληκτρολογώντας τους κωδικούς όχι σκανάρωντας τους. Κάποια λύση για αυτό;

Σας ευχαριστώ,

Επομένως, με βάση το:
«...Σωστά υπέθεσες οι κωδικοί είναι ήδη καταχωρημένοι...»
και το:
«...Στον VBA πρόσεξα ότι πληκτρολογώντας τον κωδικό πχ στο κελί Β4 σωστά αναγράφεται η ώρα στο κελί Ν4. Πληκτρολογώντας ξανά τον ίδιο κωδικό στο κελί Β4 δεν αναγράφεται σε κανένα κελί η ώρα...»

Οι ήδη καταχωρημένοι κωδικοί μπορούν να αλλάξουν - τροποποιηθούν έστω κι αν γράψουμε επάνω τους τον ίδιο κωδικό...!!!

Το έργο αυτό δημιουργήθηκε με το σκεπτικό, που αναφέρω στον κώδικα:
'Οι καταχωρήσεις, να έχουν μια συνέχεια, ως εξής:
'Γράφω, από πάνω προς τα κάτω, στην στήλη Β.
'Δεν τροποποιώ, την καταχώρησή μου.
'Δεν διορθώνω-τροποποιώ, παλαιότερες καταχωρήσεις.

Μετά από όλα αυτά...

Είναι όλα καταχωρημένα κάπου
και «περιμένουν» το σκανάρισμα για να συμπληρωθούν μόνο οι ώρες σε κατάλληλη στήλη;

Ακριβώς. Είναι όλα καταχωρημένα όπως οι κωδικοί, το όνομα και το επίθετο. Περιμένουν απλά σκανάρισμα, και ο VBA να εντοπίζει τον ήδη καταχωρημένο κωδικό για να συμπληρωθούν οι ώρες στις κατάλληλες στήλες στην ίδια σειρά.

Όσον αφορά το σκεπτικό:
- Δεν τροποποιώ, την καταχώρησή μου ,Συμφωνώ
-Δεν διορθώνω-τροποποιώ, παλαιότερες καταχωρήσεις, Συμφωνώ
ποια η διαφορά όμως στα 2 ποιο πάνω;
-Γράφω, από πάνω προς τα κάτω, στην στήλη Β, αν δεν προσφέρει κάποια ασφάλεια στα δεδομένα μου θα προτιμούσα να μην ισχύει.

Επίσης για να δουλέψει ο VBA θα πρέπει πριν το σκανάρισμα να επιλέγω κάποιο συγκεκριμένο κελί; Θα προτιμούσα να έχω σαν ενεργό κελί το πρώτο κελί στην στήλη με τους κωδικούς.

Σπύρο σε χαιρετώ,

Μπορείς σε παρακαλώ να ρίξεις μια ματιά στον επισυναπτόμενο κώδικα και να τον διορθώσεις έτσι ώστε να δουλεύει και με τις μέρες, όπως δηλαδή αυτός που ήδη έστειλες στο φόρουμ. Αν μπορείς προσάρμοσε τον σε παρακαλώ στο έργο που μου επισύναψες στο φόρουμ.

Σημ. Δες και το φύλλο NOTES

Σε ευχαριστώ