[Γενικά] Kαταχώρηση με κλικ

[Γρηγορης 1991]

Καλημερα σε ολους σας.Μολις εχθες σας ανακαλυψα και πρεπει να σας συγχαρω για την προσφορα σας στους ανθρωπους που χρειαζονται καθε φορα την βοηθεια σας.ΜΠΡΑΒΟ.
Ξεκιναω την γνωριμια μας με ενα μικρο θεματακι.
Κοιταξτε λιγο το αρχειο και θα καταλαβετε.
Να ειστε ολοι καλα.ΚΑΛΗΜΕΡΑ σας.

[Tasos]

Καλημέρα Γρηγόρη και καλωσόρισες στο φόρουμ!

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

Φιλικά

Τάσος

[Γρηγορης 1991]

Καλημερα και σε εσας Κ.Τασο.
Τιποτα το ιδιετερο δεν προσπαθω να επιτυχω,απλα θα ηθελα αυτα τα ονοματα που λειτουργουν σαν 'επικεφαλιδες'
να μπορω να τα δουλεψω σαν "κουμπια" οποτε αν χρειαστω να γραψω καποιο να το κλικαρω απευθειας.
δεν ξερω αν βοηθησα, ετσι ειναι καπως ο προβληματισμος μου.
θα περιμενω νεα ειτε δικα σας ειτε καποιου αλλου κυριου-ας.
Ευχαριστω και καλο υπολοιπο ημερας.

[Spirosgr]

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

[Γρηγορης 1991]

Ευχαριστω για τον χρονο σας και εσας Κυριε Σπυρο αλλα δεν ειναι ακριβως αυτο που ηθελα.
Εαν μπορουμε να το δουμε λιγο διαφορετικα θα ηταν ενδιαφερον.Παντως ευχαριστω ολους σας.
Καλο βραδυ σας ευχομαι

[gr8styl]

Γρηγόρη καλώς όρισες και από μένα.
Αν και νομίζω ότι η επικύρωση είναι ο σωστός τρόπος, μιας και δεν σε ικανοποιεί, Θα σου πρότεινα να φτιάξεις 9 κουμπιά (CommandButton1 ... CommandButton9) και να βάλεις τον παρακάτω κώδικα σε κάθε κουμπί, προσαρμόζοντας την στήλη που θέλεις να εφαρμόζεται πχ 1 για την Α, 2 για την Β κ.ο.κ, καθώς και το Range

Θανάσης

Private Sub CommandButton1_Click()
' For column B test if ActiveCell.Column = 2
    If ActiveCell.Column = 2 Then
        CommandButton1.Caption = Range("F1").Value
        ActiveCell = CommandButton1.Caption
        Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
    Else
        ActiveCell.Select
    End If
End Sub

....

Private Sub CommandButton9_Click()
' For column B test if ActiveCell.Column = 2
    If ActiveCell.Column = 2 Then
        CommandButton1.Caption = Range("H3").Value
        ActiveCell = CommandButton1.Caption
        Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
    Else
        ActiveCell.Select
    End If
End Sub

[Tasos]

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

Ωστόσο επισυνάπτω ένα αρχείο που βασίζεται στο σκεπτικό του Γρηγόρη (που δεν με βρίσκει σύμφωνο).

Στο αρχείο αυτό μπορεί κανείς να αντιγράψει ένα από τα ήδη υπάρχοντα κουμπιά
και απλά να αλλάξει την ετικέτα τους (Caption) με το κατάλληλο κείμενο και να τα χρησιμοποιήσει.
Δεν θα χρειαστεί να επέμβει σε κώδικες VBA κλπ.

Επίσης, υπάρχει μια λύση με σύνθετο πλαίσιο ελέγχου φόρμας που αντικαθιστά τα πολλά κουμπιά.

Φιλικά

Τάσος

[Γρηγορης 1991]

Καλημερα σε ολους.
Κυριε ΘΑΝΑΣΗ & Κυριε ΤΑΣΟ σας ευχαριστω παρα πολυ για τις απαντησεις σας.
Με καλυψατε πληρως.
Συγχωρηστε την εμμονη μου για τον τροπο που ηθελα να γινει το ζητουμενο
αλλα βλεπετε η ηλικια μου το επιτρεπει( λειτουργουμε και λιγο οπτικα στο φυλλο)
Οπως και να χει ο το σωστο ειναι σωστο και αυτο ειναι δικη σας κτιση και το σεβομαι.
κυριοι και λοιποι φιλοι επλιζω να σας χρειαστω ξανα.
ΚΑΛΟ ΥΠΟΛΟΙΠΟ ΗΜΕΡΑΣ.

[Thanosp]

Καλημέρα
Δες το συνημμένο
θανάσης