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

[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 κλικ το χρόνο;

Τάσος

[Spirosgr]

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

[Spirosgr]

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

[Tasos]

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

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

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

Φιλικά

Τάσος

[jose]

Αμέτρητες ευχαριστίες.....

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

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

Εστω
Α1 = 5
Β1 = - ( παύλα )
C1 = 9

Με την =CONCATENATE(A1;B1;C1) στην στήλη Ε και στο Ε1 παίρνουμε το 5-9

με την παρακάτω , στις στήλες G και Η κάνουμε Split το 5-9 , σε 5 και 9

( δεν ξέρω αν υπάρχει και άλλος τρόπος , αυτήν είχα βρεί στο διαδύκτιο και ήταν
πολυ πρακτική )

Sub Split_paula()

 Dim firstName As String
    Dim lastName As String
    Dim n As Integer
    Dim rowNum As Integer
    Dim colNum As Integer
    rowNum = 1
    colNum = 5
    
    While Cells(rowNum, colNum).Value <> ""
        n = InStr(1, Cells(rowNum, colNum).Value, "-")
        lastName = Left(Cells(rowNum, colNum).Value, n - 1)
        firstName = Right(Cells(rowNum, colNum).Value, Len(Cells(rowNum, colNum).Value) - n - 0)
        Cells(rowNum, colNum + 2).Value = lastName
        Cells(rowNum, colNum + 3).Value = firstName
        rowNum = rowNum + 1
    Wend

End Sub

και πάλι σας ευχαριστώ

[Tasos]

Νίκο σ ευχαριστούμε για τη λύση που παράθεσες!

Και εμείς ήμαστε στο Internet και συνήθως οι κώδικες μας δεν είναι φλύαροι

Για παράδειγμα, ο παρακάτω κώδικας διαχωρίζει τη λέξη 1-1 από το κελί A2 στα και περνά τα τμήματα της στα αμέσως επόμενα κελιά δεξιά:

Sub Split_paula()
    Dim arr() As String, i As Integer
    arr = Split(Cells(2, 1), "-")
    For i = 0 To UBound(arr)
        Cells(2, i + 2) = Trim(arr(i))
    Next
End Sub

Φιλικά

Τάσος

[sakplak]

Φίλε Τάσο σε ευχαριστώ πολύ...και ο δικός σου κώδικας είναι οκ!!!Ευχαριστώ πολύ για την βοήθεια..