07-12-09, 17:23
|
 | Διαχειριστής Όνομα: Τάσος Φιλοξενιδης Έκδοση λογισμικού Office: Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική | | Εγγραφή: 21-10-2009
Μηνύματα: 2.035
| |
Μάριε, καλησπέρα και καλωσόρισες στο φόρουμ!
Θα μπορούσε να γίνει ακόμα έτσι: Κώδικας: Option Explicit
Sub CopyUsedRange()
Dim x$
x = Sheets(1).UsedRange.Address
Sheets(1).Range(x).Copy ActiveSheet.Range(x)
End Sub
Με εκτίμηση
Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών |