error 9 out of range σε VBA ?

[adtakhs]

Παιδιά έχω φτιάξει μια μακροεντολή με userforms κ.λ.π. στο excel, η οποία παίρνει πρότυπα βιβλία , τα μετονομάζει με κατάλληξη της ημερομηνία , παίρνει data από βιβλία άλλης ημερομηνίας τα οποία έχω επιλέξει και τα εισάγει στα νέα βιβλία.

Όλα δουλεύουν μια χαρά.
Παρατήρησα όμως πως αν έχω ανοίξει δεύτερο παράθυρο για εργασία σε δυο οθόνες (view --> new window) κάποια στιγμή στα παλαιά βιβλία από τα οποία παίρνω data, αν πάω να τρέξω την μακροεντολή που παίρνει τα data από αυτά τα βιβλία ώστε να τα περάσει στα νέα, μου βάζει σφάλμα "error 9 out of range".

Ξέρει κανείς τον τρόπο που μπορώ να αποφύγω αυτό το bug ?

Μέρος του κώδικα το βάζω ενδεικτικά παρακάτω.

....
....
...

Workbooks.Open Filename:= _
    "C:\Users\Lenovo\Documents\Production\Ðñüôõðá ðáñáãùãÞò\ÁðïèÞêç Øõãåßïõ 124 óå ÄéóêÜêéá.xlsm"
ActiveWorkbook.SaveAs "C:\Users\Lenovo\Documents\Production\ÁðïèÞêç Øõãåßïõ 124 óå ÄéóêÜêéá " & DD & "." & MM & "." & y & ".xlsm", _
     FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

If UserForm2.CheckBox1.Value = False Then
    
    Workbooks.Open Filename:= _
        "C:\Users\Lenovo\Documents\Production\ÁðïèÞêç Øõãåßïõ 124 óå ÄéóêÜêéá " & pDD & "." & pMM & "." & py & ".xlsm"
    Worksheets("Black_plates").Activate
    Range("R7:S145").Copy
    Windows("ÁðïèÞêç Øõãåßïõ 124 óå ÄéóêÜêéá " & DD & "." & MM & "." & y & ".xlsm").Activate
    Worksheets("Black_plates").Activate
    Range("E7:F145").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
...
...
...
...

όπου pdd, pmm, py τα βιβλία με κατάλληξη την παλαιά ημερομηνία από τα οποία παίρνουμε τα data.
Όπου dd, mm. y τα βιβλια με την νέα ημερομηνία (κατάλληξη) όπου δίνουμε τα data.

Τα κορακίστηκα είναι λόγω ελληνικών text στην ονομασία των βιβλίων.

[WAntilles]

Και ποιός σου είπε ότι υποστηρίζονται οι πολλαπλές οθόνες;

Ούτως ή άλλως είναι εξωτικό χαρακτηριστικό που χρησιμοποιούν πολύ λίγοι.

[adtakhs]

Και ποιός σου είπε ότι υποστηρίζονται οι πολλαπλές οθόνες;

Ούτως ή άλλως είναι εξωτικό χαρακτηριστικό που χρησιμοποιούν πολύ λίγοι.

Σε ποιο πράγμα?

Εχω ένα pc με δυο απομακρυσμένες οθόνες, με ξεχωριστό πληκτρολογιο - ποντίκι και θέλω να μπορώ να κάνω data entry από κάθε μια από αυτές.

Μεχρι τώρα χρησιμοποιούσα μια οθόνη. Το excel 2016 δίνει την δυνατότητα πολλαπλών οθονών.

Το θέμα είναι πως θα μπορέσω, αφού χρησιμοποιήσω αυτό το χαρακτηριστικό στα σημερινά βιβλία, να τραβήξω τα data (values συναρτήσεων) σε μελλοντικα βιβλία.

Είδα πως το excel, όσο έχω ανοικτές πολλαπλές οθόνες, βαπτιζει την κάθε οθόνη - επιφένεια με ένα :1 :2 .....:n .
Αν κλείσω τις πολλαπλές οθόνες το φύλλο ονομάζεται ξανά όπως πριν.

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

πχ. Κατά την εκτέλεση :

[zaranero]

Δεν μπορω να καταλαβω απο την περιγραφη πολλα και μαλλον δεν εχω και τις γνωσεις , αλλα οταν σου βγαζει το error δεν εχει καποιο κουμπι debug να δεις που σου δειχνει το λαθος?

[adtakhs]

Δεν μπορω να καταλαβω απο την περιγραφη πολλα και μαλλον δεν εχω και τις γνωσεις , αλλα οταν σου βγαζει το error δεν εχει καποιο κουμπι debug να δεις που σου δειχνει το λαθος?

Στο screen δείχνω το debug που έχει βγάλει στον κώδικα, ενώ ταυτόχρονα δείχνω και τις ενεργοποιημενες πολλαπλές οθόνες που είχα κάνει στα παλαιά βιβλία από τις (την ) οποίες πάω με τον παραπάνω κώδικα να τραβήξω τα data .

[zaranero]

Δεν ξερω αλλα αυτο με το 1,2,...n νομιζω ειναι αυτο το property :

https://msdn.microsoft.com/en-us/lib.../ff197439.aspx

Δεν ξερω αν βοηθαει...

[MitsakosGR]

Ίσως πρέπει να καθορίσεις το παράθυρο στο οποίο δουλεύεις.

Windows("ÁðïèÞêç Øõãåßïõ 124 óå ÄéóêÜêéá " & DD & "." & MM & "." & y & ".xlsm":1).Activate

(Δεν γνωρίζω καλά VBA, το βρήκα εδώ)

[adtakhs]

Ίσως πρέπει να καθορίσεις το παράθυρο στο οποίο δουλεύεις.

Windows("ÁðïèÞêç Øõãåßïõ 124 óå ÄéóêÜêéá " & DD & "." & MM & "." & y & ".xlsm":1).Activate

(Δεν γνωρίζω καλά VBA, το βρήκα εδώ)

Το παράθυρο όμως άλλοτε το ανοίγεις και άλλοτε όχι ...

θα πρέπει να γράψω κωδικά που να ψάχνει να βρει αν υπάρχει και αναλόγως να πράττει ....
Αυτό δεν θα καθυστερεί την ρουτίνα απελπιστικά ?
Ήδη η ρουτίνα για να ολοκληρωθεί μπου παίρνει περίπου 3 λεπτά χρόνο , ίσως και παραπάνω τρέχοντας στην τσίτα σε 8-πυρήνες .

Θα το κοιτάξω και αυτό που λες, να δω πως συμπεριφέρεται και θα ξαναποστάρω.

[MitsakosGR]

Ίσως το :1 να υπάρχει πάντα, απλά να μην φαίνεται όταν είναι μόνο του, οπότε αν το έχεις μόνιμα :1 να κάνει δουλειά χωρίς να κάθεσαι να ψάχνεις σε ποια οθόνη είναι!

- - - Updated - - -

Επειδή αυτό που κάνεις είναι αρκετά πολύπλοκο, μήπως το excel με vba δεν είναι η καλύτερη λύση;; Έχεις σκεφτεί κάτι σε access ή κάποιο άλλο πρόγραμμα;

[adtakhs]

Ίσως το :1 να υπάρχει πάντα, απλά να μην φαίνεται όταν είναι μόνο του, οπότε αν το έχεις μόνιμα :1 να κάνει δουλειά χωρίς να κάθεσαι να ψάχνεις σε ποια οθόνη είναι!

- - - Updated - - -

Επειδή αυτό που κάνεις είναι αρκετά πολύπλοκο, μήπως το excel με vba δεν είναι η καλύτερη λύση;; Έχεις σκεφτεί κάτι σε access ή κάποιο άλλο πρόγραμμα;

Ίσως η ACCESS να ήταν καλύτερη εδώ που έχω φτάσει.

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