
19-02-14, 00:48
|
| Όνομα: Γιώργος Έκδοση λογισμικού Office: Ms-Office 365 Γλώσσα λογισμικού Office: Αγγλική | | Εγγραφή: 22-08-2013
Μηνύματα: 33
| |
Καλησπέρα Γιώργο,
Δοκίμασε το συνημμένο να δεις αν σε εξυπηρετεί. Για επιλογή περιόδου χρησιμοποίησε τις λίστες. Για τον τρέχοντα μήνα το σχετικό button.
Έχω κάνει ένα παράδειγμα με 10 στήλες. Για να αντιγραφούν όλες οι δικές σου όπου δεις στον κώδικα την παρακάτω γραμμή αντικατέστησε το 10 με τον αριθμό των στηλών που έχεις εσύ. Κώδικας: 'αντιγραφή
Cells(5 + intMonth - 1, 1).Resize(int2Month - intMonth + 1, 10).Copy
Στο φύλο Προβολή επιλογών οι επικεφαλίδες να είναι στη γραμμή τέσσερα όπως τίς έχω βάλει. Αν θες να ξεκινάνε σε άλλη γραμμή θα πρέπει να τροποποιήσουμε τον κώδικα
Ελπίζω να σε βοηθήσει αν κατάλαβα καλά ότι κάτι τέτοιο χρειάζεσαι.
Γιώργος
|