[VBA] Μεταφορά σε 2ο Βιβλίο υπό προϋπόθεση VBA

[jose]

Καλησπέρα και καλή σας χρονιά

Η αναφορά του ερωτήματος έχει να κάνει ,

αν οι κινήσεις μπορούν να γίνουν με την χρήση της VBA.

Έχουμε Ταυτόχρονα Ανοικτά δύο ( 2 ) Βιβλία ,

το Βιβλίο100 ( με ένα φύλλο - Sheet1 ) και

το Βιβλίο200 ( με δύο φύλλα - Sheet10 & Sheet20 )

όπως φαίνεται και στο βιντεο
paradeigma - YouTube

απο το φύλλο 100 αντιγράφονται με αντιμετάθεση ,

πρώτα τα κελιά Β2 έως και Β11 στο φύλλο Sheet10 του βιβλίου 200 ,

ΣΕ κελί της στηλης C που η Ημερομηνία ειναι η Ιδια με το κελί Β1 του βιβλίου 100

το ίδιο γινεται με το D1 έως D11 του βιβλίου100 στο Sheet20 του βιβλίου200



Η Ερώτηση είναι Αν γίνεται αυτο με την χρήση της VBA με την προυπόθεση

να ερευνάται το κελί Β1 του Βιβλίου100 να ειναι το Ιδιο

στο εύρος των κελίων C3 έως C17 του Sheet10 του Βιβλίου200

και να γίνεται η Επικόληση με Αντιμετάθεση .

Παρομοίως και για το D1 Με τη στήλη του φύλλου Sheet20

.....

[jose]

καλημέρα,

συμπλήρωση......

αν δεν είναι εφικτό δεν χάθηκε καί ο κόσμος

[Tasos]

Καλημέρα Νίκο!

Το ζητούμενο σου μπορεί να επιτευχθεί με VBA αλλά στα παραδείγματα σου δεν ξέρω
κατά πόσο είναι αναγκαίο.

Αν γνωρίζουμε πόσες στήλες περιέχει το Βιβλίο100.xls θα μπορέσουμε να το κάνουμε με
απλές συναρτήσεις. Παράλληλα, δεν χρειάζεται να είναι ανοιχτό το βιβλίο - πηγή.
Δώσε μας τα φώτα σου.

Φιλικά

Τάσος

[jose]

Γειά χαρά ,

Το ότι γινεται και με "κλειστό" το Βιβλίο100 το γνώριζα ,
απλά για ευκολία ανέφερα ότι έχουμε και τα 2 ανοικτά

οι στήλες που έχουν δεδομένα , είναι αυτές .
( έχω και 4 ακόμη κενές για μελλοντική τυχόν χρήση )
συνολικα 8 είναι , από A έως Η

' αποτύπωσα ' μόνο τις A , B, C και D για απλοποίηση του παραδείγματος

[Tasos]

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

Νίκο δες στα συνημμένο μια εκδοχή χωρίς VBA.

Τα συμημμένα θα πρέπει να είναι στον ίδιο φάκελο για να λειτουργήσει το παράδειγμα
και αυτό επειδή έχουν τα δεδομένα του Βιβλίο100.xls έχουν συνδεθεί στο Βιβλίο200.xls.

Μπορείς φυσικά να αλλάξεις την προέλευση των δεδομένων στο Βιβλίο200.xls (Περιοχή A2:G12).

Ελπίζω να σε βοηθήσει να προχωρήσεις.

Φιλικά

Τάσος

[jose]

Πολύ ,

ευχαριστίες .

[gr8styl]

Καλημέρα
ίσως κάτι να μου διαφεύγει αλλά ...

... νόμιζα ότι η στήλη Β έπρεπε να πάει στο Sheet10 και η στήλη D στο Sheet20

αφού ο Νίκος είπε:
"... τα κελιά Β2 έως και Β11 στο φύλλο Sheet10 ... το D1 έως D11 του βιβλίου100 στο Sheet20 του βιβλίου200"

Νομίζω ότι αυτό γίνεται με το συνημμένο DstBook.xls (πρέπει να είναι στον ίδιο φάκελο με το Βιβλίο100.xls)

Θανάσης
ΥΓ Το συνημμένο Βιβλίο100.xls είναι το αρχικό του Νίκου.

[jose]

καλημέρα Θανάση ,

" ε να κάνω και εγώ κάτι " ,
έτσι καταλαβαίινω και την εξίσωση

με " βόλεψε " το αποτέλεσμα που έδωσε ο Τάσσος

σε ευχαριστώ και σε εσένα για τον κόπο πού έκανες.

με έβαλες σε δίλημα τώρα ποιό να χρησιμοποιήσω ;-)

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

.....
από την ευαρέσκια της " λύσης " έπαθα στραβωμάρα .
αν ο πίνακας στο 100 πάρει άλλες ημερομηνίες
ΔΕΝ μένουν Μόνιμα στον πίνακα 200 τα προηγούμενα
δεδομένα - δεν γίνεται δηλ. επικόληση -

[gr8styl]

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

... από την ευαρέσκια της " λύσης " έπαθα στραβωμάρα . αν ο πίνακας στο 100 πάρει άλλες ημερομηνίες ΔΕΝ μένουν Μόνιμα στον πίνακα 200 τα προηγούμενα δεδομένα - δεν γίνεται δηλ. επικόληση -

Επόμενο είναι αφού οι πίνακες στα φύλλα Sheet10 & Sheet20 περιέχουν τύπους.
Μπορείς να κάνεις αντιγραφή/επικόληση τιμών μονο σε κάποιο άλλο φύλλο ή δες στο συνημμένο μια λύση με VBA και όχι τύπους.

Το να τα βάλεις όλα στο ίδιο βιβλίο νομίζω θα απλοποιούσε πολύ το όλο θέμα αλλά δεν ξέρουμε τι ακριβώς θέλεις να κάνεις αλλά ούτε και πώς τα δεδομένα στο Sheet1 δημιουργούνται.
Σε περίπτωση που κάποια ημερομηνία του Sheet1 δεν υπάρχει στα Sheet10 & Sheet20 τι γίνεται

Καλή συνέχεια.
Θανάσης
ΥΓ. Μήπως απλά αντιγραφή του Sheet1 και επικόληση με αντιμετάθεση στο τέλος ενός νέου πίνακα καλύπτει το ζητούμενο σου. Για ξανασκέψου το .

[jose]

ευχαριστώ

Πάντοτε υπάρχει η ημερομηνία.
copu past γινεται/οταν , και
τα δεδομενα δημιουργουνται με εντολες απο
''προηγούμενα φύλλα''