[nisgia]

Καλησπέρα και πάλι!

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

Υπάρχουν λογικά λάθη που οφείλονται στη λανθασμένη κατανόηση του ζητούμενου.

Ένα τέτοιο λοιπόν λογικό λάθος εντόπισα και εγώ μετά από επανεξέταση και στη δική μου πρόταση
η οποία θεωρούσε πως στην τελευταία γραμμή δεδομένων δεν υπάρχουν κενά κελιά
με αποτέλεσμα η επιλογή της να εκτοπίζεται στα δεξιά του πίνακα.

Έτσι, το επίμαχο κομμάτι κώδικα μετατρέπεται σε:

    With Range("Table").SpecialCells(xlCellTypeConstants)
        With .Areas(.Areas.Count)
            With .Rows(.Rows.Count)
                Set rngLastLine = Cells(.Row, Range("Table").Column) _
                        .Resize(, Range("Table").Columns.Count)
            End With
        End With
    End With

Έτσι λοιπόν οι συντεταγμένες της rngLastLine είναι αυτές της τελευταίας γραμμής δεδομένων
ακόμη και αν αυτή περιέχει 2~3 διάσπαρτα κελιά.
Να σημειώσω πως η διαδικασία συνεχίζει να δρα μόνο στη τελευταία γραμμή
και εντός των ορίων της περιοχής "Table".

Ελπίζω τώρα να μην μας προκύψει και άλλο λογικό σφάλμα...

Φιλικά, Γιάννης.