[Excel] Gestione arrivi.

[Robybike]

Vi rubo ancora il vostro tempo prezioso, ho un problema con le macro di un programma excel che sto cercando di creare.

Vi allego il file, dove all'interno ho inserito i commenti con le spiegazioni del problema.

Ciao grazie

http://freefilehosting.net/?id=rdn2la3Y9A==

[Anthony47]

La macro ti va in errore quando ha oramai copiato tutti i risultati nei fogli di categoria, sull' istruzione Sheets(Categoria).Select ??

Se e' cosi', e' perche' il metodo adottato per il calcolo dell' ultima riga usata (Uriga = Range(PriCol).End(xlUp).Row) e' falsato dalla presenza delle formule nella colonna A di riepilogo.
Nella situazione in cui sei, ti conviene sostituire l' istruzione suddetta con

Codice: Seleziona tutto

Set ARange = Range("A1:A2000")
Uriga = Application.WorksheetFunction.Subtotal(2, ARange) + 1

Dimmi se c' entra, o spiega dove ti va in errore la macro.

Ciao.

[Robybike]

Grazie Anthony, funziona benissimo, ora ci devo lavorare su per la creazione di un userform e di un'area di stampa.

Ciao a presto