Excel

[tsigarid]

Αυτό μόνο με macro γίνεται πιστεύω, δεν έχω χρησιμοποιήσει ποτέ.

[gcf]

Αυτό που θέλεις γίνεται
α) εγγράφοντας ή φτιάχνοντας τη σχετική μακροεντολή
β)ορίζοντας να εκτελείται με το άνοιγμα του αρχείου
Αυτό γίνεται βάζοντας τον κώδικα μέσα στο

Private Sub Workbook_Open()

' Put your code here

End Sub

Προσοχή, μπορεί το αρχείο να ξαναανοιχτεί στη διάρκεια της ημέρας. Καλό θα είναι η μακροεντολή να ζητάει επιβεβαίωση πριν εκτελεστεί.

[sonic]

Αυτό που θα έκανα είναι να κάνω ένα ταμπ με μια στήλη με ημερομηνία όπου ο χρήστης απλά προσθέτει.

Μετά στο κεντρικό φύλο θα έκανα ένα sumif βασιζόμενο στο =DAY(TODAY) για τις νέες τιμές και =DAY(TODAY-1) για τις χθεσινές.

[jim_p]

Επειδη απο macros δεν εχω ιδεα, θα δοκιμασω αυτο του sonic για αρχη. Απλα δεν καταλαβα την πρωτη προταση. Σε ενα αλλο φυλλο θα γινουν 2 κελια, ενα με τη σημερινη και ενα με τη χτεσινη ημερομηνια, σωστα? Μετα, το sumif θα συγκρινει τη σημερινη και τη χτεσινη ημερομηνια με τα συγκεκριμενα κελια, σωστα? Την αντιγραφη ομως πως θα την κανιε?

[sonic]

Ναι, στο ένα ταμπ έχεις τις αξίες που προσθέτονται κάθε μέρα από τον χρήστη:

Στηλη 1 Στηλη 2 Στηλη 3 Στηλη 4
01/01/20 τιμη 1 τιμή 2 Ν/Α Ν/Α
02/01/20 τιμη 3 τιμη 4 =(τιμη 1) =(τιμη2)
03/01/20 τιμη 5 κλπ.

Κάνεις sumif για την ημερομηνία που θες και την στύλη που θες στο άλλο ταμπ, και βουαλα!

- - - Updated - - -

Ταμπ 1 Το πράσινο ανανεώνεται από τον χρήστη κάθε μέρα.

[jim_p]

Δωσε μου 1-2 ωρες να το μελετησω και θα σου απαντησω

[sonic]

Αν κατάλαβα καλά το ζητούμενο, αυτή η λύση είναι η πιο εύκολη.

- - - Updated - - -

Το βρήκες τελικά;

[jim_p]

Δεν το εκανα γιατι δεν εχω το excel για το οποιο λεω παραπανω. Ζητησα να μου το στειλει καποιος χτες το πρωι και ακομα το περιμενω.
Ισως να κανω ενα δικο μου με random τιμες για να το τσεκαρω, αλλα βαριεμαι να γραφω τιπους κλπ απο την αρχη.

- - - Updated - - -

Επειδη δεν μπορω να καταφερω αυτο που λες ουτε με εξτρα φυλλο, ανεβαζω μια "μικρογραφια" του αρχειου που σου λεω, με ολους τους τυπους που εχει κανονικα και ολα τα κελια ξεκλειδωτα. Εχοντας το συγκεκριμενο σαν παραδειγμα, θελω τα περιεχομενα των κελιων με πρασινο χρωμα να μετακινουνται στις θεσεις με το μπλε χρωμα.
Η στηλη J με τις διαφορες δεν υπαρχει κανονικα, την εβαλα εγω για δικη μου διευκολυνση και οι τιμες στις στηλες min και max ειναι δικες μου, γιαυτο ειναι περιεργες και η διαφορα βγαινει 20 σε ολα, αλλα γενικα παντα ισχυει το min < max. Επισης, δεν εχουν σημασια ολα αυτα για αυτο που ζηταω :P

Ο uploader του φορουμ δεν με αφηνει να ανεβασω xlsx (και xls), γιαυτο το εβαλα σε ενα 7z.

[gcf]

Πιο απλή λύση μου φαίνεται η μακροεντολή:

Sub Αντιγραφή_τιμών()
'
' Αντιγραφή_τιμών Μακροεντολή
'
' Συντόμευση πληκτρολογίου: Ctrl+a
'
    Range("B3:C5").Select
    Selection.Copy
    Range("F3").Select
    ActiveSheet.Paste
End Sub

Μπορείς να τη βάλεις να τρέχει και με συντόμευση πληκτρολογίου.

[sonic]

Α, αυτό έχει και min/max και για διαφορετικούς τύπους βλέπω, μπορεί να γίνεται από αρχείο, αλλά θέλει λίγο να το κοιτάξω.

[sonic]

test 120420.7z Σε έχω

- - - Updated - - -

Πες αν σου κάνει

[jim_p]

Σορρυ που δεν απαντησα νωριτερα. Μπηκα στα windows για το δω και να ενημερωσω το anydesk, τα πηρα με το anydesk και το ξεχασα.
Μου το βγαζει εντελως κενο το αρχειο σου...

[sonic]

ουπς, για δες τώρα

[jim_p]

Εξηγησε μου λιγο τι κοιταω ή τι πρεπει να κανω, πχ να πατησω κατι?
Αν καταλαβα καλα, παιρνει τα δεδομενα απο το sheet1 και τα βαζει στο data, οποτε πρεπει να συμπληρωνω στο sheet1?

[sonic]

Τίποτα δεν πατάς, στο sheet1 βάζεις τις τιμες, τις προσθέτεις στον πίνακα βασικά, και στο data σου βγάζει την μέγιστη και ελάχιστη για την χθεσινή ημερομηνία και την προχθεσινή.

Το μόνο που πρέπει να αλλάξεις είναι στο κελί Ε3, στο sheet1, να βάλεις =Today(), και θα βγάζει την τρέχουσα ημερομηνία.

- - - Updated - - -

Ναι, όχι;