06-04-14, 16:45
|
| Όνομα: Παναγιώτης Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2013 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 06-01-2012 Περιοχή: Αθήνα
Μηνύματα: 17
| |
Αυτό που έχω υπογραμμίσει παρακατω αναφερεις οτι πρεπει να αλλαξω σε true;; Μήπως θα μπορούσες να μου εξηγησεις τι σημαινει η αλλαγη αυτη αν σου ειναι ευκολο. Για να μαθαινω και κατι. Αν σου ειναι ευκολο και εχεις το χρονο φυσικα.
Sub CreateUniques()
Application.ScreenUpdating = False
Sheet1.Range("UniqueList").ClearContents
Sheet1.Range("Customers").Copy
Sheet1.Range("UniqueCustomers").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False |