[Tasos]

Αγαπητέ Γρηγόρη,

αν διαβάσεις προσεκτικά το προηγούμενο** μήνυμα μου θα δεις ότι περιγράφεται ακριβώς αυτό που ζητάς.

Επεξεργασία**

Αν θέλεις απλά να αφαιρείς τις στήλες που περιέχουν 'FALSE' τότε πιστεύω ότι το παράδειγμα που επισυνάπτω θα σε βοηθήσει.

Τάσος

ΥΓ.
Θανάση,
Dim a(100), x, k, m, r, z, i As Integer

σημαίνει:

Dim a(100) As Variant, x As Variant, k As Variant, m As Variant, r As Variant, z As Variant, i As Integer