[Συναρτήσεις] Αντιγραφή τιμής

[matis]

καλησπερα σας μποροιται να με βοηθησετε στο πιο κατο θεμα;
αντιγραφεί τιμής ενός κελιού από φύλλο 2 σε κελί φύλλου 1 με διπλό κλικ μεσα στο excel υπαρχει τροποσ χωρις AVB

[gr8styl]

Φίλε Στέλιο,
στο Excel ένα κελί παίρνει/εμφανίζει κάποια τιμή με έναν από τους παρακάτω 4 τρόπους.

1) Απευθείας πληκτρολόγηση στο κελί από το χρήστη της τιμής.
2) Το κελί περιέχει κάποιον τύπο ο οποίος υπολογίζει την τιμή.
3) Ο χρήστης επιλέγει από μιά αναπτυσσόμενη (drop-down) λίστα την τιμή.
4) Με κώδικα VBA κατχωρηση της τιμής στο κελί.

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

Τα λέμε
Θανάσης

[matis]

Καλημέρα επισυνάπτω το αρχείο excel, θέλω στο φύλλο 1 στο πεδίο c43 να παίρνει με διπλό κλικ του ποντικιού τιμές που θα επιλέγω από το φύλλο 2 από των πίνακα

[Tasos]

Καλησπέρα Στέλιο!

Πως θέλεις να κάνεις διπλό κλικ στα Hyperlinks που εκτελούντα με μονό κλίκ;;;

Φιλικά

Τάσος

[matis]

εντάξει μου κάνει και το μονό κλικ,υπάρχει λύση;

[gr8styl]

Αγαπητέ Στελιο μας τα λες λίγο μπερδεμένα τα πράγματα.

Τέλος πάντων.
Για δες το συνημένο αν σου κάνει.
Κάνει χρήση της μεθόδου 3 που έγραψα στην πρώτη μου απάντηση.

Τα λέμε
Θανάσης

[nisgia]

Καλημέρα Στέλιο και καλωσόρισες στην παρέα!

Εναλλακτικά με τη λύση του Θανάση, δοκίμασε και μια ακόμη ακολουθώντας τα παρακάτω βήματα:

1. Με δεξί κλικ στην καρτέλα του φύλλου "ΤΑΧΥΤΗΤΑ" πάτα στο "Εμφάνιση κώδικα" (View Code).
2. Στο παράθυρο κώδικα που θα ανοίξει, επικόλησε τον παρακάτω κώδικα:

Private mdblSpeed As Double

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
   ActiveSheet.Range("C43") = mdblSpeed
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    mdblSpeed = Target.Value
End Sub

Στη συνέχεια, επέστρεψε στο βιβλίο εργασίας και δοκίμασε αν γίνεται αυτό που ζήτησες.

Φιλικά,
Γιάννης

[matis]

Καλησπέρα παιδιά ευχαριστώ πολύ για τις απαντήσεις σας,
φίλε γιαννη δεν μου εμφανίζει όταν κάνω δεξί κλικ το view code ώστε να το αντιγράψω.

[kapetang]

Καλησπέρα
Στέλιο θα κάνεις δεξί κλικ στην καρτέλα (όνομα) του φύλλου «ΤΑΧΥΤΗΤΑ» (στο κάτω μέρος του παράθυρου του excel), οπότε θα εμφανιστεί το μενού συντόμευσης και η εντολή «Προβολή κώδικα». Πάνω σ’ αυτήν κάνε αριστερό κλικ.
Φιλικά/Γιώργος
Υ.Γ Γιάννη δεν ήσουν συνδεδεμένος και σκέφτηκα να μη καθυστερεί ο Στέλιος

[nisgia]

Αρχική Δημοσίευση από kapetang

Υ.Γ Γιάννη δεν ήσουν συνδεδεμένος και σκέφτηκα να μη καθυστερεί ο Στέλιος

Και πολύ καλά έκανες Γιώργο!
Άλλωστε, στο ομαδικό πνεύμα αυτού εδώ του φόρουμ δεν χωράνε ...εργολαβίες.

Παρόλα αυτά φίλε Στέλιο, αν δεν τα κατάφερες ακόμα να ανοίξεις το παράθυρο του VBA,
ένας ακόμη τρόπος είναι το πάτημα των πλήκτρων Alt+F11 με πληκτρολόγιο γυρισμένο στα αγγλικά.

Εντοπίζεις εκεί το αντικείμενο "Sheet2(ΤΑΧΥΤΗΤΑ)"και του κάνεις διπλό κλικ και επικολλάς τον κώδικα
στη μεγάλη λευκή περιοχή όπως φαίνεται στη συνημμένη εικόνα.