Εμφάνιση ενός μόνο μηνύματος
  #2  
Παλιά 31-08-22, 12:52
kapetang Ο χρήστης kapetang δεν είναι συνδεδεμένος
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.674
Προεπιλογή

Πρόσθεσε στο τέλος του κώδικα και τη γραμμή:

Range("a1:a6").Value = Application.WorksheetFunction.Transpose(x)
Απάντηση με παράθεση