[Excel07] Αυτόματη αρίθμηση μετά από κλικ

[Διογένης]

Κύριοι καλησπέρα σας και συγχαρητήρια για την δημιουργία του ms-office.gr
Θα ήθελα να ρωτήσω αν γνωρίζει κανείς πως γίνεται σε μια στήλη κενή όπου κάνω κλικ να ξεκινά μια αυτόματη αρίθμηση από το 1, πχ κάνω κλικ στο κελί Α10 παίρνει το νούμερο 1 κλικ στο Α5 παίρνει το 2 κλικ στο Α7 παίρνει το 3 κοκ

Ευχαριστώ εκ των προτέρων.

[Spirosgr]

Διογένη καλημέρα και καλώς ήρθες στην παρέα
Το ζητούμενο μπορεί να γίνει με VBA με μόνη διαφορά ότι πρέπει να μας διευκρινίσεις το πώς θα γίνετε η αρίθμηση διότι βάση της εξήγησης σου <<πχ κάνω κλικ στο κελί Α10 παίρνει το νούμερο 1 κλικ στο Α5 παίρνει το 2 κλικ στο Α7 παίρνει το 3 κοκ>> το κοκ είναι ασαφές και ως προς το ποιά θα είναι η ακολουθία των κελιών και στο που θα γίνετε (περιοχή πχ από 1 έως 100) ή ολόκληρη στήλη

[Tasos]

Καλημέρα σε όλους!

Αγαπητέ φίλε καλωσόρισες στο φόρουμ.

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

Αυτό είναι τεχνικά αδύνατον να γίνει στην Excel.

Πες μας καλύτερα τι θέλεις να επιτύχεις για να σε βοηθήσουμε αποτελεσματικά.

Τάσος

[Διογένης]

Για να κάνω πιο σαφές αυτό που θέλω σκεφτείτε το εξής: Έχουμε ένα excel με 1000 εγγραφές, (χωρίς να είναι δεσμευτικός ο αριθμός των εγγραφών) οι εγγραφές αφορούν τις στήλες από Β έως Μ η στήλη Α είναι πάντα κενή. Επειδή αυτές οι χίλιες εγγραφές αφορούν 1000 έντυπα που έχω μπροστά μου θέλω να τις βάλω με την ίδια σειρά που έχω τα έντυπα, άρα παίρνω το πρώτο έντυπο με το find ψάχνω την αντίστοιχη εγγραφή και αφού την βρω κάνω ένα κλικ στην συγκεκριμένη εγγραφή στην στήλη Α για να πάρει τον αριθμό 1. παίρνω το δεύτερο έντυπο το ψάχνω πάλι και αφού το βρω κάνω κλικ στην αντίστοιχη εγγραφή στο κελί Α πάντα για να πάρει το νούμερο 2. Αυτο που θέλω να πετύχω με αυτού του είδους την αρίθμηση είναι τελειώνοντας το ψάξιμο και την αρίθμηση να κάνω ένα sorting με αποτέλεσμα να έχω την ίδια σειρά σε εγγραφές στο excel όπως είναι και στα έντυπα

Ελπίζω να είναι πιο σαφές τώρα.
Και πάλι ευχαριστώ εκ των προτέρων

[kapetang]

Καλησπέρα στην παρέα

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

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

Φιλικά/Γιώργος

[Tasos]

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

Κάνε δεξί κλικ στην καρτέλα του φύλλου που σε ενδιαφέρει και επίλεξε Προβολή κώδικα.

Στο παράθυρο VBE που θα εμφανιστεί επικόλλησε τον παρακάτω κώδικα VBA:

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 1 Then
        If IsEmpty(Target) Then
            Cancel = True
            Target.Value = Application.Max(Range("A:A")) + 1
            
            'Χρησιμοποιώντας την παραπάνω γραμμή χάνεται η δυνατότητα αναίρεσης (Undo) της εφαρμογής.
            'Αν αυτό αποτελεί πρόβλημα τότε μπορεί εναλλακτικα να χρησιμοποιηθούν οι 2 παρακάτω γραμμές:
            'SendKeys Application.Max(Range("A:A")) + 1
            'SendKeys "^{ENTER}"
            
        End If
    End If
End Sub

Στις ρυθμίσεις της εφαρμογής:

Φρόντισε οι μακροεντολές να είναι ενεργοποιημένες και το αρχείο να βρίσκεται σε μια από τις αξιόπιστες θέσεις που έχει επιλέξει.

Τάσος

[Thanosp]

Καλησπέρα
Κάτι με VBE ορίζοντας την περιοχή ή στήλη όπου θες την συνεχόμενη αρίθμηση..
Θανάσης

[Διογένης]

Κύριοι καλημέρα σας και πάλι ευχαριστώ για την αμεσότητά σας.
Τάσο πήρα τον κώδικα τον έκανα paste στον VBE αλλά δεν δούλεψε. Έχω την εντύπωση ότι έχει να κάνει με τις ρυθμίσεις των μοκροεντολών του excel ή και κάποια άλλη ενδεχομένως που μου διαφεύγει.

[Tasos]

Καλημέρα.

Ο κώδικας μπαίνει στη λειτουργική μονάδα του φύλλου και θα εκτελεστεί μόνο αν κάνεις διπλό κλικ σ΄αυτό το φύλλο
και στη στήλη A όπως περιγράφεις στο δεύτερο σου μήνυμα.

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

Δες στο συνημμένο παράδειγμα.

Φιλικά

Τάσος