Forum

Αναζήτηση στο ms-office.gr

Πάμε!

Excel - Ερωτήσεις / Απαντήσεις Ότι έχει σχέση με συναρτήσεις, μορφοποίηση, εκτυπώσεις γραφήματα κτλ.

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 26-10-11, 15:19
Όνομα: Νίκος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 22-10-2011
Μηνύματα: 33
Προεπιλογή Αντιγραφή στήλης

Έχουμε ενα φύλλο πού οι εγγραφές ξεκινάνε απο την 5 σειρά

η 1,2,3,4 είναι κενές
η 5η εχει ονομασίες στήλης και έχουμε ποσά από την 6η

πχ

____A________B________C______D
5_Onoma_____etos__.___poso__Onoma
6_Nikos__.__._1985_____100__._
7_Maria__.___.1987_____180_.__
8_Eleni.__.___.1989_____220_.__


΄Μπορώ με copy στην vba να αντιγράψω την στηλη Α ,
από το Α6 και όσα κελιά προς τα κάτω έχουν τιμές , στο D6 ?
Απάντηση με παράθεση
  #2  
Παλιά 26-10-11, 16:24
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.237
Προεπιλογή

Καλησπέρα Νίκο.

Δοκίμασε:

Κώδικας:
Sub CopyRange()
    With Worksheets("Sheet1")   'όπου "Sheet1" = το όνομα του φύλλου στο οποίο γίνεται η ενέργεια αυτή.
        .Range("A6", "A" & Rows.Count).Copy .Range("D6")
    End With
End Sub
Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών
Απάντηση με παράθεση
  #3  
Παλιά 27-10-11, 06:23
Όνομα: Νίκος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 22-10-2011
Μηνύματα: 33
Προεπιλογή



Πολύτιμη η απάντηση

ευχαριστίες

Πριν το έκανα 'μπακαλίστικα' ,
με μια ''καταγραφή'' μακροεντολής με copy και past τις στήλες
και κατόπιν αντέγραφα τις κινήσεις στην module που εχω

Απάντηση με παράθεση
  #4  
Παλιά 27-10-11, 10:39
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.237
Προεπιλογή

Καλημέρα Νίκο!
Αν θέλεις απλά η στήλη D να παίρνει τις τιμές της στήλης A τότε
με VBA δεν χρειάζεται να κάνεις αντιγραφή - επικόλληση.

Σύμφωνα με τα παραπάνω, μπορείς να χρησιμοποιήσεις τον παρακάτω κώδικα που είναι και γρηγορότερος στην εκτέλεση:

Κώδικας:
Sub CopyRange()
    With Worksheets("Sheet1")   'όπου "Sheet1" = το όνομα του φύλλου στο οποίο γίνεται η ενέργεια αυτή.
        .Range("D6", "D" & Rows.Count).Value = .Range("A6", "A" & Rows.Count).Value
    End With
End Sub
Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών

Τελευταία επεξεργασία από το χρήστη Tasos : 27-10-11 στις 11:12.
Απάντηση με παράθεση
  #5  
Παλιά 28-10-11, 09:07
Όνομα: Νίκος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 22-10-2011
Μηνύματα: 33
Προεπιλογή

Καλημέρα και Χρόνια Πολλά !

ενα σημείο με δυσκολεύει,

''αντιγράφει'' μέχρι το τέλος ,μεχρι και την 1048576 σειρα !!

και ''ξεχυλώνει'' το φύλλο

Το ίδιο αντιμετωπιζω και με το split κελιου px "A-S"

με την ( που βρηκα στο net )

Dim arr As Variant, i As Long
With Sheets("DATA")
arr = .Range("BB6:BB6" & .UsedRange.Rows.Count)
For i = 1 To UBound(arr)
.Range("EC6" & i & ":ED6" & i).Value = Split(arr(i, 1), "-")
Next i
End With

To split ειδικα σε ενα δοκιμαστικό φύλλο δούλευε μια χαρά
και ξαφνικα μου πηγαινει και αυτο μεχρι την τελευταια σειρα
Αδυνατον να το κατανοησω,

Είναι και οι τελευταιες απορίες που εχω σε αυτό που εργάζομαι.
Οτι άλλες απορίες ειχα, διαβάζοντας εδω τα περασμένα θεματα
βρηκα λυσεις , και από έρευνα στο δαδυκτιο βεβαια
Απάντηση με παράθεση
  #6  
Παλιά 28-10-11, 11:23
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.237
Προεπιλογή

Καλημέρα φίλε μου!
Παράθεση:
΄Μπορώ με copy στην vba να αντιγράψω την στηλη Α ,
από το Α6 και όσα κελιά προς τα κάτω έχουν τιμές , στο D6 ?
Νομίζω ότι πήρες ακριβώς ότι ζήτησες δηλαδή αντιγραφή όσων κελιών προς τα κάτω έχουν τιμές.

Τα κενά κάτω από τη χρησιμοποιημένη περιοχή δεν έχουν σημασία.

Το "ξεχείλωμα" του φύλλου δεν έχει επίπτωση στον όγκο και επομένως στη φόρτωση/αποθήκευση του βιβλίου εργασίας αφού είναι προσωρινό.
Όταν δηλαδή αποθηκεύσεις το βιβλίο θα διαπιστώσεις (παρατηρώντας την κάθετη μπάρα κύλισης) ότι το συγκεκριμένο φύλλο επανέρχεται
στο φυσιολογικό του μήκος.

Τώρα στον κώδικα που αναφέρεσαι βλέπω 2 σημαντικά λάθη:

1) χρησιμοποιείται Array όταν όλο το φύλλο είναι και επεξεργάζεται σαν Array από την ίδια την Excel .

2) Με τη χρήση του UsedRange.Rows.Count δεν είναι σίγουρο ότι θα επιστραφεί το νούμερο της τελευταίας γραμμής
αφού το UsedRange (χρησιμοποιημένη περιοχή του φύλλου) μπορεί να ξεκινά από την 3η γραμμή για παράδειγμα και συνεπώς να επιστρέψει ένα νούμερο - 3 !!!

Γενικότερα σε ενέργειες πάνω στο υπολογιστικό φύλλο, το γρηγορότερο αντικείμενο είναι το Range και αυτό πρέπει να χρησιμοποιείται.

Παρόλα αυτά αν θέλεις να αντιγράφεις μόνο όσα κελιά περιέχουν τιμές και όχι μέχρι την τελευταία σειρά ( 1048576 ) μπορείς να χρησιμοποιήσεις αυτό:

Κώδικας:
Sub CopyRange()
    With Worksheets("Sheet1")   'όπου "Sheet1" = το όνομα του φύλλου στο οποίο γίνεται η ενέργεια αυτή.
        Dim LRow As Long
        LRow = .Range("A" & Rows.Count).End(xlUp).Row
        .Range("D6", "D" & Rows.Count).ClearContents
        .Range("D6", "D" & LRow).Value = .Range("A6", "A" & LRow).Value
    End With
End Sub
Καλή συνέχεια!

Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών

Τελευταία επεξεργασία από το χρήστη Tasos : 28-10-11 στις 12:43.
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[ Εκθέσεις ] Ανάπτυξη στήλης xristos Access - Ερωτήσεις / Απαντήσεις 0 25-05-15 11:24
[Γενικά] Αυτόματη εννημέρωση στήλης από άλλες xristos Excel - Ερωτήσεις / Απαντήσεις 7 15-02-12 22:27
[Excel07] Χρωματισμός στήλης laziali21 Excel - Ερωτήσεις / Απαντήσεις 2 26-08-11 16:00
[Μορφοποίηση] Μετονομασία στήλης κελιών adonio Excel - Ερωτήσεις / Απαντήσεις 3 26-05-11 10:39
[Συναρτήσεις] Ενημέρωση στήλης fredygr2 Excel - Ερωτήσεις / Απαντήσεις 2 23-03-10 08:56


Η ώρα είναι 12:34.