[VBA] Βοήθεια έχω κόλλησει τελείως

[anestaki]

Καλησπέρα Θανάση
Κατά αρχήν να σε ευχαριστήσω μέχρι να καταλάβω ότι έπρεπε να καθαρίζω την λίστα (ListBox1.Clear) πριν από οποιαδήποτε εντολή μου πήρε λίγο χρόνο.

[anestaki]

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

Καλησπέρα Θανάση
Κατά αρχήν να σε ευχαριστήσω μέχρι να καταλάβω ότι έπρεπε να καθαρίζω την λίστα (ListBox1.Clear) πριν από οποιαδήποτε εντολή μου πήρε λίγο χρόνο.

Μόλις διαπίστωσα ότι λείπει
If c.Offset(, 0).Value = e.Offset(, 1).Value And e.Offset(, 7).Value = True Then
‘δεν μου εμφανίζει της σωστές εγγραφές.
kinisis.Range("d" & i + c).Value = e.Offset(, 0).Value
please.....

[Thanosp]

Καλημέρα
Γιώργο δεν χρειάζεται η παραπάνω IF γιατί η επιλογή των εγγραφών γίνεται με βάση τον Κωδικό της LIstbox1.