04-04-19, 18:53
|
 | Συντονιστής Όνομα: Σπύρος Τσιλιγιάννης Έκδοση λογισμικού 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
| |
Const cellStart As Long = 2 'Φύλλο εκκίνησης κελιά από
Const cellEnd As Long = 109 'Φύλλο εκκίνησης κελιά έως
Const colDest As Long = 1 'Στήλη προορισμού (1 = a)
Const colPacks As Long = 30 'Φύλλο προορισμού «ντάνες» πχ 30 γραμμών
Const rowPacks As Long = 29 'Φύλλο προορισμού (που ξεκινάνε τα δεδομένα; γραμμή 29)
*ξέχασα να πω σε αυτήν την γραμμή
wsDestn.Cells(j + rowPacks, h) = wsStart.Cells(i, 1)
στη θέση του 1 βάλε 46 που είναι ο αριθμός της at
|