Εμφάνιση ενός μόνο μηνύματος
  #4  
Παλιά 25-05-12, 22:37
Το avatar του χρήστη Spirosgr
Spirosgr Ο χρήστης Spirosgr δεν είναι συνδεδεμένος
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού 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
Προεπιλογή

Καλησπέρα
Με βάση το ζητούμενο ότι η Range είναι σταθερά η C3:I72
και αντιγράφετε και επικολλάτε σε κελί της C στήλης κατ' επιλογήν
Μπορεί αυτός ο κώδικας να είναι αρκετός

Sub copypaste()
Range("C3:I72").Copy
With Selection
.PasteSpecial
End With

End Sub
Απάντηση με παράθεση