[Γενικά] Πως μπορώ να μεταφέρω τα δεδομένα που θα επιλέγω από μια στήλη σε μια άλλη

[kapetang]

Καλημέρα

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

Αν ξανακάνω κλικ σε ένα κελί της στήλης Α τι θα γίνει, η τιμή του θα αντιγραφεί ξανά;

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

[jose]

ναι αλλά θα βάλω ένα άλλο να πάει στην θέση του

σε ταλαιπωρώ και δεν το ήθελα , ας το αφήσουμε

τωρα το κάνω με το ..... = στο πχ C1 > κλικ και enter στο πχ Α2 και αντιγράφεται

επίσης μπορώ να χρησιμοποιώ και το παρακάτω

αλλά πρέπει να τα εχω εις τριπλούν ή διπλούν κλπ

[Tasos]

Καλησπέρα!
Αγαπητέ Νίκο,
δεν είναι καθόλου μα καθόλου αξιόπιστη η μέθοδος καταχώρησης δεδομένων με το συμβάν Worksheet_SelectionChange()
το οποίο δεν εξαπολύεται μόνο με το κλικ του ποντικιού αλλά και με αρκετά άλλα πλήκτρα όπως Enter, Tab, τα βέλη
και πολλά αλλά που προκαλούν τη μετακίνηση του κέρσορα και κατά συνέπεια την ανεπιθύμητη εκτέλεση του συμβάντος.

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

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

Φιλικά

Τάσος

[jose]

καλησπέρα,

το θέμα το ξαναείδα επειδη είχα κάνει αποθήκευση την σελίδα ( όπως και άλλες )
στο Pc για τυχόν μελλοντική χρήση και διαβάζοντάς το μου ηρθε η ιδέα του ερωτήματος
μπας και γλύτωνα 1-2 κλικ .

Μεχρι πριν λιγο καιρό πριν ασχοληθώ με την vba ερασιτεχνικα και την χρησιμοποιήσω ,
ειχα φτασει στο σημείο να κάνω περι τα 600,000 με 700,000 κλικ τον χρονο !!!
απο οσο ειχα υπολογίσει στο excel .
και αυτά , με copy past τα εκανα .
μόνο κάποια ημέρα της εβδομάδος έκανα 8 με 10,000 κάθε εβδομάδα.
( σε κάποιο '' έργο" )

και μου έχει μείνει απωθημένο !!!!

το συννημένο excel ειναι αυτο που χρησιμοποιώ ( ένα κομματι )

οπως φαίνεται , * με μια ματια μπορω να δω στο ζευγος των 2 ονοματων ή των τριών αν
τα εχω μεταφέρει σωστα και μπορω αμεσως να κανω τυχόν δόρθωση. *

Σε άλλο φυλλο του ''εργου'' υπάρχουν τα Ονόματα και σε διπλανή στήλη
καποιες επιδόσεις για τον καθενα .

απ το κουμπι 2 ή 3 ( δεν ειναι σε λειτουργια ) παιρνω το πρωτο Ονομα και το βαζω σε καποια
στηλη με τις επιδοσεις που εχει
και μετα δίπλα το δεύτερο Ονομα με τις επιδόσεις και αυτού .

και συγκρινω τις επιδόσεις των 2 Ονοματων , σε συνδιασμό με κάποια ημερομηνία .

( δυσνόητο λιγο , αλλά για τα μέτρα μου στις γνώσεις του excel και vba ειναι απλό )

( να μην σας βάζω σε περαιτέρω βάσανο ,

και με κοπυπαστάδα !! ή με = κάνω την δουλειά μου
δεν είναι δα και τόσο σοβαρό το ζήτημα )

[Tasos]

Νίκο θα θέλαμε να ξέρουμε τι ακριβώς ζητάς. Όχι πως το κάνεις.

Μέχρι στιγμής είναι προφανές ότι (αν κάνω κάπου λάθος σε παρακαλώ διόρθωσε με):

Έχεις τρεις στήλες.

Στήλη 1 = Ημερομηνία (δεν την αναφέρεις πουθενά)

Στήλη 2 = Όνομα

Στήλη 3 = Επιδόσεις

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

Το βασικότερο που δεν γνωρίζουμε: Τι θα γίνει μετά τη σύγκριση;

Μήπως έπρεπε να κάνει η εφαρμογή τις συγκρίσεις καθώς και την επόμενη κίνηση αντί να σου στοιχίζει 700.000 κλικ το χρόνο;

Τάσος

[jose]

συνέχεια...............

"""Νίκο θα θέλαμε να ξέρουμε τι ακριβώς ζητάς""""

ένα και μόνο ένα

πως με ενα κλικ σέ ένα κελί στην στηλη Α του excel Onomata

να Αντιγράφεται στο κελι C3

και το επομενο κλικ της στηλης Α να αντιγράφεται στο C4

Αν πατηθεί

Τρίτο Ονομα απο την Α > στο C3

Τέταρτο Ονομα απο την Α στο > C4

Πέμπτο Ονομα στην Α πάλι στο C3

Εκτο Ονομα στην Α > C4 και ουτω καθεξής

αν κατα λάθος πατησω πχ 2 φορες το Α2 και παει ( αντιγραφει ) στο C3 και C4
απλα με το πλήκτρο del σβηνω το C4 και κλικαρω άλλο κελί από το Α2


ελπίζω να ήμουν αυτη την φορά κατανοητός

[kapetang]

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

Στο επισυναπτόμενο αρχείο επιχειρείται μια προσέγγιση του ζητούμενου.

Κάνοντας κλικ στα κελιά της στήλης Α οι τιμές τους αντιγράφονται, εναλλάξ, στα κελιά C3 και C4.

Αν η τιμή του κελιού στο οποίο γίνεται κλικ υπάρχει στο κελί C3 ή C4, η τιμή του δεν αντιγράφεται.

Η παραπάνω λειτουργικότητα υλοποιείται με τον παρακάτω κώδικα:

Option Explicit
Public numClick As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim FinalRow As Long, RngSource As Range
    If Target.Cells.Count > 1 Then Exit Sub
    
    Application.EnableEvents = False
    FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
    Set RngSource = Range("A2:A" & FinalRow)
    
    If Not Intersect(Target, RngSource) Is Nothing Then
    
        If Not (Target.Value = Range("C3") Or Target.Value = Range("C4")) Then
            numClick = numClick + 1
            If numClick Mod 2 = 1 Then
                Target.Copy Destination:=Range("C3")
            Else
            Target.Copy Destination:=Range("C4")
            End If
        End If
        Cells(Target.Row, 2).Activate
    End If
    Application.EnableEvents = True
End Sub

Νίκο, ελπίζω αυτή τη φορά να έγινε αντιληπτό το ζητούμενο.

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

[Spirosgr]

Καλημέρα
Μία εναλλακτική λύση για μεταφορά και αντιγραφή χωρίς VBA
με χρήση CHECK BOX και 2 απλούς τύπους IF
Μπορεί να είναι χρήσιμο

[Spirosgr]

ΚΑΙ σε xls
Συγνώμη το ξεχνάω...

[Tasos]

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

Το ζητούμενο του φίλου Νίκου είναι πάρα πολύ απλό αλλά σπάνιο .

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

Φιλικά

Τάσος