[Γενικά] excel προβληματισμός.

[maxtor10]

Δεν ήξερα πως να το πω στο τίτλο :D
Κατ' αρχήν καλό μήνα σε όλους, κατά δεύτερον αν δεν καταλάβετε όπως τα γράφω έχω και εικόνα που αν και είναι από access είναι κατατοπιστική , πάμε τώρα σε αυτό που με δυσκολεύει να το βρω.
Λοιπόν θέλω να σβήσω όλες τις ΚΕΝΕΣ γραμμές από το excel και να αφήσω μόνο αυτές που είναι συμπληρωμένες και μία ακόμα αναμονή κενή.
Οταν θα πάω να συμπληρώσω την κενή "αναμονή" να δημιουργεί μια νέα αναμονή.
Αν είναι και αριθμημένη ακόμα καλύτερα.

[Spirosgr]

Καλησπέρα
Η εικόνα, αν και δεν φαίνεται καλά, προφανώς είναι από κάποια φόρμα Access.

Το ζητούμενο έχει ασάφειες, αλλά νομίζω ότι στο βιβλίο υπάρχει λύση...

Ξεκινάς από την Header1 και βάζεις δεδομένα...
Όταν συμπληρωθεί και η Header7, (απαραίτητη προϋπόθεση) τότε, πιέζοντας το Enter:

1. Μπαίνει αρίθμηση, στην τρέχουσα γραμμή...
2. Προστίθεται μια νέα γραμμή...
3. Επιλέγει το κελί της Header1, όπου θα ξαναγράψουμε δεδομένα...

Σημειώσεις:
Πιθανό, ο κώδικας να χρειάζεται κι άλλες ασφάλειες, αν το ζητούμενο δεν είναι 100% αυτό...
Οι εκφράσεις στον κώδικα:
Columns(8)
Offset(, -7)
(Rows.Count, 1)
Cells(LRow, 2)
θα πρέπει να προσαρμοστούν, στο πραγματικό φύλλο...

[maxtor10]

Σπύρο σε ευχαριστώ πολύ.
Είναι όντως αυτό που ζητούσα .
Αυτό που έχουν εξαφανιστεί όλα τα κελιά και εμφανίζονται σταδιακά πως το μπορώ να το κάνω σε ενα νέο excel αν θέλω να το ξεκινήσω απ την αρχή?

[Spirosgr]

Καλημέρα

Data
Τα δεδομένα, να είναι σε πίνακα (List Object).
Την εισαγωγή γραμμής, αναλαμβάνει ο κώδικας.

Interface
Χρωματισμός φύλλου, με χρώμα της επιλογής σου.
Στην κορδέλα >> Προβολή (View) >> ξετικάρουμε τα πεδία της εικόνας...

[maxtor10]

Σπύρο απ ότι βλέπω στο χειρισμό προέκυψαν 2 θέματα.

1) Στην αλλαγή γραμμής με το πλήκτρο tab δεν πηγαίνει ανά γραμμή όπως με το enter αλλά ανά 2 γραμμές.
2) Αν τα δεδομένα μίας ή περισσότερων γραμμών τα διαγράψω η λίστα δεν αναδιπλώνετε.

[Spirosgr]

Στο έχω σε προειδοποίηση, πρίν το πείς...στο post#2

«Σημειώσεις:
Πιθανό, ο κώδικας να χρειάζεται κι άλλες ασφάλειες, αν το ζητούμενο δεν είναι 100% αυτό...»

Οι κώδικες δεν είναι ποτέ στο «φλού»
Πρέπει να είναι 100%, το τι θέλω και πως το θέλω...

Δεν μιλάς στο ζητούμενο για διαγραφές, δεν μιλάς για tab...

1) Δεν χρειάζεται tab. Με enter στο header7 αλλάζει και προσθέτει γραμμή (1) ταυτόχρονα...
2) Χρειάζεται κι άλλος κώδικας...

[maxtor10]

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

[Spirosgr]

Βάλε στην θέση του παλιού κώδικα, αυτό...

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Columns(8)) Is Nothing Then Exit Sub

    Dim LRow As Long, i As Long
    LRow = Sh1.Cells(Rows.Count, 1).End(xlUp).Row

    For i = 2 To LRow - 1
        Sh1.Cells(i, 1).Value = Cells(i, 1).Row - 1
    Next i

    Sh1.Cells(LRow, 2).Activate
End Sub

Η κίνηση μέσα στον πίνακα, με Tab.
Φτάνοντας στην header7, με tab αλλάζει 1 γραμμή.
Η διαγραφή γραμμών, με τον τρόπο της εικόνας (εφ' όσον είναι πίνακας)
Μετά την διαγραφή γραμμής/ών αναπροσαρμόζεται η αρίθμηση...

[maxtor10]

Τέλειο...αυτο ακριβος!
Σπύρο σε ευχαριστώ και πάλι,

[Spirosgr]

Να 'σαι καλά!