Scadenzario 2

Scadenzario 2
di Andrea (utente non iscritto) data: 14/11/2014 11:35:22
Buongiorno, tempo fa mi avete aiutato con la creazione di un piccolo scadenzario.
Allego il file.
Cliccando su prova, mi dovrebbe restituire sul foglio report l'elenco degli scaduti.
Ho notato però che questo succede solo per i primi 47 della lista.
Mi potete spiegare il perchè? Grazie
Saluti, Andrea
di Textomb data: 14/11/2014 18:13:16
Analizzando il codice sottostante il pulsante Prova, appena trova la prima Data senza valore la routine si arreasta.
Quindi, nel tuo caso, nella cella H51. Ecco perchè hai una lista incompleta.
Si dovrebbe modifica un pò la logica di quel codice...
di Albatros54 (utente non iscritto) data: 14/11/2014 18:19:40
Il report si ferma alla riga 48 perche nella colonna 8 non trova una data , ma bensi una cella vuota.Non lasciare celle vuote nella colonna 8 , vedrai che tutto funziona
Ciao
Albatros54
di costopoco (utente non iscritto) data: 16/11/2014 10:35:06
Due alternative:
1) al posto di Do While Cells(x, 8) > 0 scrivi Do While Cells(x, 5) > 0
2) al posto del ciclo Do While Loop puoi usare un ciclo For Next; in questo caso serve una Variabile Long per calcolare il numero dei Record.
di Andrea (utente non iscritto) data: 18/11/2014 09:51:54
Grazie a tutti! gentilissimi come al solito