Παιδιά έχω φτιάξει μια μακροεντολή με userforms κ.λ.π. στο excel, η οποία παίρνει πρότυπα βιβλία , τα μετονομάζει με κατάλληξη της ημερομηνία , παίρνει data από βιβλία άλλης ημερομηνίας τα οποία έχω επιλέξει και τα εισάγει στα νέα βιβλία.
Όλα δουλεύουν μια χαρά.
Παρατήρησα όμως πως αν έχω ανοίξει δεύτερο παράθυρο για εργασία σε δυο οθόνες (view --> new window) κάποια στιγμή στα παλαιά βιβλία από τα οποία παίρνω data, αν πάω να τρέξω την μακροεντολή που παίρνει τα data από αυτά τα βιβλία ώστε να τα περάσει στα νέα, μου βάζει σφάλμα "error 9 out of range".
Ξέρει κανείς τον τρόπο που μπορώ να αποφύγω αυτό το bug ?
Μέρος του κώδικα το βάζω ενδεικτικά παρακάτω.
όπου pdd, pmm, py τα βιβλία με κατάλληξη την παλαιά ημερομηνία από τα οποία παίρνουμε τα data.Κώδικας:.... .... ... 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 ... ... ... ...
Όπου dd, mm. y τα βιβλια με την νέα ημερομηνία (κατάλληξη) όπου δίνουμε τα data.
Τα κορακίστηκα είναι λόγω ελληνικών text στην ονομασία των βιβλίων.
Εμφάνιση 1-10 από 10
-
21-03-17, 23:46 error 9 out of range σε VBA ? #1
Τελευταία επεξεργασία από το μέλος adtakhs : 21-03-17 στις 23:52.
AMD Threadripper 1920X 12Core/24 Threads, Gigabyte X399 Designare EX, G. Skill 32Gb DDR4 3200Mhz, Samsung 970 EVO 500Gb, Crucial M4 256Gb SSD, 2x Toshiba 3Tb A300, Enermax Galaxy 850Watt, Lg Br-rw, Coolermaster Storm Stryker, Samsung T27A300, Samsung T27C350, Benq W1070 1080P/3D Projector, Sharkoon Shark GK15, Logitech X-230, Enermax Liquidtech 280, Sapphire Nitro R9 390X 8Gb DDR5 (αναμένεται) .
-
22-03-17, 17:32 Απάντηση: error 9 out of range σε VBA ? #2
Και ποιός σου είπε ότι υποστηρίζονται οι πολλαπλές οθόνες;
Ούτως ή άλλως είναι εξωτικό χαρακτηριστικό που χρησιμοποιούν πολύ λίγοι.Επιτέλους το ελάχιστο δυνατό, ευέλικτο, και ψηφιακό κράτος. Με διαρκή αξιολόγηση.
-
22-03-17, 17:56 Απάντηση: error 9 out of range σε VBA ? #3
Σε ποιο πράγμα?
Εχω ένα pc με δυο απομακρυσμένες οθόνες, με ξεχωριστό πληκτρολογιο - ποντίκι και θέλω να μπορώ να κάνω data entry από κάθε μια από αυτές.
Μεχρι τώρα χρησιμοποιούσα μια οθόνη. Το excel 2016 δίνει την δυνατότητα πολλαπλών οθονών.
Το θέμα είναι πως θα μπορέσω, αφού χρησιμοποιήσω αυτό το χαρακτηριστικό στα σημερινά βιβλία, να τραβήξω τα data (values συναρτήσεων) σε μελλοντικα βιβλία.
Είδα πως το excel, όσο έχω ανοικτές πολλαπλές οθόνες, βαπτιζει την κάθε οθόνη - επιφένεια με ένα :1 :2 .....:n .
Αν κλείσω τις πολλαπλές οθόνες το φύλλο ονομάζεται ξανά όπως πριν.
Κατά την εκτέλεση όμως μου πετά και τις δυο οθόνες. Αν μπορούσα να κάνω συγχώνευση των πολλαπλών οθόνών σε μια στο τέλος, λέτε να λυνόταν το θέμα?
πχ. Κατά την εκτέλεση :
Τελευταία επεξεργασία από το μέλος adtakhs : 22-03-17 στις 18:19.
AMD Threadripper 1920X 12Core/24 Threads, Gigabyte X399 Designare EX, G. Skill 32Gb DDR4 3200Mhz, Samsung 970 EVO 500Gb, Crucial M4 256Gb SSD, 2x Toshiba 3Tb A300, Enermax Galaxy 850Watt, Lg Br-rw, Coolermaster Storm Stryker, Samsung T27A300, Samsung T27C350, Benq W1070 1080P/3D Projector, Sharkoon Shark GK15, Logitech X-230, Enermax Liquidtech 280, Sapphire Nitro R9 390X 8Gb DDR5 (αναμένεται) .
-
23-03-17, 08:10 Απάντηση: error 9 out of range σε VBA ? #4
Δεν μπορω να καταλαβω απο την περιγραφη πολλα και μαλλον δεν εχω και τις γνωσεις , αλλα οταν σου βγαζει το error δεν εχει καποιο κουμπι debug να δεις που σου δειχνει το λαθος?
-
24-03-17, 17:08 Απάντηση: error 9 out of range σε VBA ? #5AMD Threadripper 1920X 12Core/24 Threads, Gigabyte X399 Designare EX, G. Skill 32Gb DDR4 3200Mhz, Samsung 970 EVO 500Gb, Crucial M4 256Gb SSD, 2x Toshiba 3Tb A300, Enermax Galaxy 850Watt, Lg Br-rw, Coolermaster Storm Stryker, Samsung T27A300, Samsung T27C350, Benq W1070 1080P/3D Projector, Sharkoon Shark GK15, Logitech X-230, Enermax Liquidtech 280, Sapphire Nitro R9 390X 8Gb DDR5 (αναμένεται) .
-
24-03-17, 22:02 Απάντηση: error 9 out of range σε VBA ? #6
Δεν ξερω αλλα αυτο με το 1,2,...n νομιζω ειναι αυτο το property :
https://msdn.microsoft.com/en-us/lib.../ff197439.aspx
Δεν ξερω αν βοηθαει...
-
24-03-17, 23:03 Απάντηση: error 9 out of range σε VBA ? #7
Ίσως πρέπει να καθορίσεις το παράθυρο στο οποίο δουλεύεις.
Κώδικας:Windows("ÁðïèÞêç Øõãåßïõ 124 óå ÄéóêÜêéá " & DD & "." & MM & "." & y & ".xlsm":1).Activate
-
25-03-17, 13:46 Απάντηση: error 9 out of range σε VBA ? #8
Το παράθυρο όμως άλλοτε το ανοίγεις και άλλοτε όχι ...
θα πρέπει να γράψω κωδικά που να ψάχνει να βρει αν υπάρχει και αναλόγως να πράττει ....
Αυτό δεν θα καθυστερεί την ρουτίνα απελπιστικά ?
Ήδη η ρουτίνα για να ολοκληρωθεί μπου παίρνει περίπου 3 λεπτά χρόνο , ίσως και παραπάνω τρέχοντας στην τσίτα σε 8-πυρήνες .
Θα το κοιτάξω και αυτό που λες, να δω πως συμπεριφέρεται και θα ξαναποστάρω.AMD Threadripper 1920X 12Core/24 Threads, Gigabyte X399 Designare EX, G. Skill 32Gb DDR4 3200Mhz, Samsung 970 EVO 500Gb, Crucial M4 256Gb SSD, 2x Toshiba 3Tb A300, Enermax Galaxy 850Watt, Lg Br-rw, Coolermaster Storm Stryker, Samsung T27A300, Samsung T27C350, Benq W1070 1080P/3D Projector, Sharkoon Shark GK15, Logitech X-230, Enermax Liquidtech 280, Sapphire Nitro R9 390X 8Gb DDR5 (αναμένεται) .
-
25-03-17, 14:21 Απάντηση: error 9 out of range σε VBA ? #9
Ίσως το :1 να υπάρχει πάντα, απλά να μην φαίνεται όταν είναι μόνο του, οπότε αν το έχεις μόνιμα :1 να κάνει δουλειά χωρίς να κάθεσαι να ψάχνεις σε ποια οθόνη είναι!
- - - Updated - - -
Επειδή αυτό που κάνεις είναι αρκετά πολύπλοκο, μήπως το excel με vba δεν είναι η καλύτερη λύση;; Έχεις σκεφτεί κάτι σε access ή κάποιο άλλο πρόγραμμα;
-
26-03-17, 00:08 Απάντηση: error 9 out of range σε VBA ? #10AMD Threadripper 1920X 12Core/24 Threads, Gigabyte X399 Designare EX, G. Skill 32Gb DDR4 3200Mhz, Samsung 970 EVO 500Gb, Crucial M4 256Gb SSD, 2x Toshiba 3Tb A300, Enermax Galaxy 850Watt, Lg Br-rw, Coolermaster Storm Stryker, Samsung T27A300, Samsung T27C350, Benq W1070 1080P/3D Projector, Sharkoon Shark GK15, Logitech X-230, Enermax Liquidtech 280, Sapphire Nitro R9 390X 8Gb DDR5 (αναμένεται) .
Bookmarks