[Excel07] Συνάρτηση αποθήκευσης αν

[darkaccess]

Καλησπέρα σας. Θα ήθελα μια μικρή βοήθεια.

Θα ήθελα το εξής: ας πούμε ότι έχω ένα φύλλο 1 γραφώ στο κελί I3 (όνομα – αριθμό) να το πηγαίνει σε ένα άλλο φύλλο 2 και να το βάζει εκεί στο Α1 μέχρι να πατάω το κουμπί Delete από το φύλλο 1 μετά αν ξαναγράψω στο φύλλο 1 πάλι στο Ι3 να το πάει στο φύλλο 2 αλλά στην σειρά Α2.
Πριν πατήσω Delete θα το κάνω αποθήκευση για να το παίρνει.
Μήπως είναι με την συνάρτηση IF;

Ευχαριστώ εκ των προτέρων.

[Spirosgr]

Καλημέρα
Έστω, στο φύλλο 1, το κελί I3, με κάποιο όνομα - αριθμό.
Έστω, στο φύλλο 2, το κελί A1, με μια κεφαλίδα.
Εισάγουμε στο φύλλο 1, ένα κουμπί και το συνδέουμε, με τον κώδικα:

Sub Btn_Copy()
    Dim Lrow As Long
    Dim cel As Range
    'Dim pro As Range
    Lrow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row
    Set cel = Sheet1.Cells(3, 9)
    'Set pro = Sheet1.Cells(2, 9)
    Sheet2.Cells(Lrow + 1, 1).Value = cel.Value
    'pro = cel
    cel.ClearContents
End Sub

Όπου: Sheet1, 2 τα κωδικά ονόματα φύλλων.

Τι κάνει:

Με το κλικ στο κουμπί, ότι δεδομένα έχουμε στο κελί I3 του πρώτου φύλλου, πάει στο δεύτερο φύλλο, στην πρώτη διαθέσιμη, κενή γραμμή, της Α στήλης. [A2, A3,...A(ν)]
Ταυτόχρονα, καθαρίζει το I3 για να εισάγουμε νέα τιμή.
Προαιρετικά:
Αν ενεργοποιήσουμε, τις γραμμές, 3,6,8, τότε στο I2 του φύλλου 1, εμφανίζεται, η τελευταία μας καταχώρηση (που είχαμε στο I3).

[darkaccess]

Καλησπέρα Σπύρο.
Καταρχήν ευχαριστώ πάρα πολύ είναι τέλειο .
Αλλά έχω δυο θεματάκια πρώτον δεν θέλω να το κάνει αποκοπή το όνομα από το Ι3 θέλω να μένει έως να πατάω το κουμπί εγώ Delete και μετά το διαγραφεί αυτόματα.
Δεύτερον επειδή θέλω να το κάνω σε αλλά κελιά και σε αλλά φύλλα πως γίνεται να βάλω στον κώδικα το κάθε όνομα του κελιού.

Σου επισυνάπτω ένα αρχείο για να δεις ακριβώς τι θέλω.

Σε ευχαριστώ και πάλι εκ των προτέρων.

[Spirosgr]

Κατ' αρχήν δεν κάνει αποκοπή αλλά διαγράφει το περιεχόμενο.
Αν απενεργοποιήσεις το cel.ClearContents δεν θα γίνεται πλέον ο καθαρισμός.
Ορίζεις όσα κελιά θέλεις ως Dim cel As Range με διαφορετικά ονόματα και
με βάση αυτό Sheet2.Cells(Lrow + 1, 1).Value = cel.Value
βάζεις που θέλεις να πάει τι (με αυτήν την σύνταξη: που θέλεις να πάει τι)