04-04-19, 11:43
|
 | Συντονιστής Όνομα: Σπύρος Τσιλιγιάννης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 22-11-2011 Περιοχή: Αθήνα
Μηνύματα: 2.321
| |
Φαντάζομαι ότι και η περιοχή που θα αντιγραφεί, θα είναι ανάλογων διαστάσεων...
Στα σημεία:
Set rngStart = ThisWorkbook.Sheets("1 ΙΣΤΟΡΙΚΟ").Range("Περιοχή αντιγραφής")
Set rngDest = ThisWorkbook.Sheets("2 ΘΕΡΑΠΕΙΑ").Range("Περιοχή προορισμού")
Set CellDest = ThisWorkbook.Sheets("2 ΘΕΡΑΠΕΙΑ").Range("Πρώτο πάνω αριστερά κελί περιοχής προορισμού")
μπορεί να αλλάξει κανείς τις περιοχές, με ό,τι θέλει, αρκεί οι rngStart & rngDest, να είναι ίδιες
σε στήλες και γραμμές (με αυτή την μορφή του κώδικα τουλάχιστον).
|