[VBA] Αντιγραφή κελιού σε άλλο φύλλο υπό προϋπόθεση

[jose]

καλημέρα ,

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

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

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

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

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

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

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

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

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

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

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

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

Στο 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]

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

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

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

[dikatsu]

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

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

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

Στο 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. Υπάρχει κάποιος τρόπος? Σε ευχαριστώ πολύ εκ των προτέρων. Σου στέλνω ένα συνημμένο για να δεις :). Μαζί με την αντιγραφή θέλω όμως να αντιγράφετε και η συνάρτηση.