[jose]

Αρχική Δημοσίευση από Tasos

Καλησπέρα!

Μάρω, βασισμένος στο γεγονός ότι η λίστα σου έχει ορισμένο μήκος (συγκεκριμένη μορφοποίηση όπου τα δεδομένα προς επικόλληση "χωράνε") σου επισυνάπτω ένα παράδειγμα με VBA στο συνημμένο παρακάτω:
Φιλικά
Τάσος

Καλησπέρα και καλό καλοκαίρι να έχετε ....

πάρα πολύ χρήσιμη αυτή η μακροεντολή , με δύο παρατηρήσεις - ερωτήματα

Sub GetValuesFromDataSheet()
    Dim SourceRow As Long, DestinationRow As Long
    With Sheet2
        SourceRow = .Range("A" & Rows.Count).End(xlUp).Row
        DestinationRow = Range("A" & Rows.Count).End(xlUp).Row + 1
        .Range("A2:A" & SourceRow).Copy
        Range("A" & DestinationRow).PasteSpecial xlPasteValues
        .Range("B2:B" & SourceRow).Copy
        Range("J" & DestinationRow).PasteSpecial xlPasteValues
        Application.CutCopyMode = False
        Range("A" & DestinationRow & ":J" & DestinationRow + Selection.Rows.Count - 1).Select
    End With
End Sub

αν στο φύλλο Sheet2 > το ΛΙΣΤΑ δηλαδή έχουμε 5 πχ στήλες A,B,C,D,E και F

οι εντολές

.Range("A2:A" & SourceRow).Copy
Range("A" & DestinationRow).PasteSpecial xlPasteValues

.Range("B2:B" & SourceRow).Copy
Range("J" & DestinationRow).PasteSpecial xlPasteValues

θα γραφούν λογικά 5 φορές ( ή υπάρχει άλλος τρόπος πιο ''συμπυκνωμένος" ; )

--------------------------------------------------------------------

Επίσης κάτι όχι και τόσο σημαντικό ,

κάνοντας δοκιμές με 2 στήλες πχ Α και Β μεταφέρονται κανονικά στο ''δίπλα'' φύλλο

αλλά Δεν αντιγράφεται το χρώμα/τα που έχω στα κελιά της στήλης Α
( μέ κώδικα έχει μπεί )

δεν είναι δα και κανένα μεγάλο ζήτημα ( με απλή καταγραφή κώδικα γίνεται η μορφοποίηση )

απλά σαν απορία αναφέρεται .

Φιλικά