Εμφάνιση ενός μόνο μηνύματος
  #1  
Παλιά 17-01-15, 17:18
Zounds Ο χρήστης Zounds δεν είναι συνδεδεμένος
Όνομα: Αλκηστις
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 14-12-2014
Μηνύματα: 18
Προεπιλογή Αντιγραφή κελιών μεταξύ Αρχείων

Καλησπέρα ξανα,

έχω ορίσει δύο αρχεία με χρήση του κώδικα :
Κώδικας:
file1= Application.GetOpenFilename()
y = split(file1,"\")
v_file1 = Left(file1,InStr(file1, Y(UBound(Y))) - 1) & "[" & Y (UBound(Y)) & "]"
file2= Application.GetOpenFilename()
y = split(file1,"\")
v_file2 = Left(file1,InStr(file1, Y(UBound(Y))) - 1) & "[" & Y (UBound(Y)) & "]"
το ζήτούμενο είναι το εξής
θελω να φιλτράρω μια συγκεκριμένη στήλη απο file2
να αντιγράφω την 1η στήλη
και να την αντιγράφω στο αρχειο 1

Το file1 το οποιο ειναι το βασικό μου αρχείο δεν είναι αποθηκευμένο καθότι δουλεύω σε αυτό.
Ανοίγω το file2, βάζω φίλτρα, κάνω copy την στήλη Α
Καί τώρα είναι το σημείο που κολλάω
Πως μπορώ να φέρω στο προσκήνιο πάλι στο file1 ?

Έχω την εντυπωση πως είναι κάτι πολύ απλο.
Ευχαριστώ και πάλι για όποια ιδέα σκέψη,
Απάντηση με παράθεση