Forum

Forum (https://www.ms-office.gr/forum/)
-   Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)
-   -   [VBA] Αντιγραφή κελιού σε άλλο φύλλο υπό προϋπόθεση (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/1762-antigrafi-kelioi-se-allo-fillo-ypo-proipothesi.html)

jose 31-03-12 08:41

Αντιγραφή κελιού σε άλλο φύλλο υπό προϋπόθεση
 
1 Συνημμένο(α)
καλημέρα ,

στο επισυναπτόμενο αρχείο ......

έστω ότι πληκτρολογώ στο κελί G1 την ημερομηνία 31/03/12

θέλω με κάποιο τρόπο να αντιγράφονται απο την στήλη Α του 2ου φύλλου

οι Ιδιες ημερομηνίες στο φύλλο 1 , αρχής γενομένης απο το κελί πχ Α1

με ταυτόχρονη αντιγραφή και των διπλανών κελιών

( παρά τις τόσες δοκιμες δεν κατάφερα τίποτε ,
δεν μπόρεσα να "απομονώσω" στο φύλλο 2 και στην
στήλη Α τίς ίδιες ημερομηνίες με το G1 του 1ου φύλλου,
αλλά αντιγραφόταν όλη η στήλη )

.....
με " διπλό κλικ " στο κελί G1 του φύλλου 1

εμφανίζεται '' αναδυόμενη φόρμα ημερολογίου " όπου δυνητικά μπορεί και από εκεί

να βάζουμε την ημερομηνία που θέλουμε στο G1

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

Lefteris 31-03-12 10:42

1 Συνημμένο(α)
Καλημέρα σε όλους.

Νίκο, η λύση που δίνω,είναι χωρίς κώδικα. Συναρτήσεις με βοηθητικές στήλες, είναι η πρότασή μου.

Στο Sheet!2D2, βάλε αυτόν τον τύπο.

=IF(A2=Sheet1!$G$1;COUNT(D$1:D1)+1;"")

Αντέγραψε, προς τα κάτω.

Στο Ε2, Βάλε αυτόν τον τύπο

=MAX(D:D)

Στο Sheet1!A1,βάλε αυτόν τον τύπο και αντέγραψε προς τα κάτω και προς δεξιά.

Κώδικας:

=IF(ROWS($A$1:$A1)>Sheet2!$E$2;"";INDEX(Sheet2!A:A;MATCH(ROWS($A$1:$A1);Sheet2!$D:$D)))
Νομίζω, πως έγινε.

jose 31-03-12 16:56

καλησπέρα Λευτέρη ,

μιά χαρά "δουλεύει"

σε ευχαριστώ για την άμεση ανταπόκριση

dikatsu 07-05-18 09:46

βοηθεια
 
1 Συνημμένο(α)
Παράθεση:

Αρχική Δημοσίευση από Lefteris (Μήνυμα 10291)
Καλημέρα σε όλους.

Νίκο, η λύση που δίνω,είναι χωρίς κώδικα. Συναρτήσεις με βοηθητικές στήλες, είναι η πρότασή μου.

Στο Sheet!2D2, βάλε αυτόν τον τύπο.

=IF(A2=Sheet1!$G$1;COUNT(D$1:D1)+1;"")

Αντέγραψε, προς τα κάτω.

Στο Ε2, Βάλε αυτόν τον τύπο

=MAX(D:D)

Στο Sheet1!A1,βάλε αυτόν τον τύπο και αντέγραψε προς τα κάτω και προς δεξιά.

Κώδικας:

=IF(ROWS($A$1:$A1)>Sheet2!$E$2;"";INDEX(Sheet2!A:A;MATCH(ROWS($A$1:$A1);Sheet2!$D:$D)))
Νομίζω, πως έγινε.

Καλημέρα αγαπητές Λευτέρη. Θα χρειαστώ την βοήθεια σου.Έχω φτιάξει ένα excel με 5.000 διαφορετικά κελιά. Και θέλω από το κελί C να αντιγραφούν στο κελί D. Υπάρχει κάποιος τρόπος? Σε ευχαριστώ πολύ εκ των προτέρων. Σου στέλνω ένα συνημμένο για να δεις :). Μαζί με την αντιγραφή θέλω όμως να αντιγράφετε και η συνάρτηση.


Η ώρα είναι 07:44.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2