ricerca statistica in archivio

[nignetto]

ciao anthony,
mi da errore qua
'ordinamento in Bubble Sort:
For I = 1 To UBound(oArr) - 2 <------
cmq non da riga a2 ma a1..
metto rif colonna in a1 b1 c1 etc
prende a1 lo mette in a2 e avvia macro,finita estrazione prende b1 lo mette in a2 e avvia macro e cosi via fino all ultima celle in riga 1 valorizzata..tutto in cascata

[Anthony47]

Avrai una colonna vuota?
Esegui la macro; quando va in errore vai in Debug. Apri la finestra "Immediata" del vba (dovrebbe bastare premere Contr-g; oppure Menu /Visualizza /Finestra Immediata). Copia tutto quello che c'e' scritto e incollalo nel tuo prossimo messaggio.

[nignetto]

,,

[nignetto]

problema precende risolto..avevo dimenticato di aumentare le ak cell..le mie sono piu di 10000..cmq parte la prima estrazione ,ma quando prova la successina va in errore qui FilFiel = Cells(1, wCol).Column,in finestra immediata abbiamo
INIZIO per ri / 3
Ubound vARR: 20545
End per ri Area: 3:7

[Anthony47]

Nell'ipotesi che volessi dirmi che nella finestra immediata non c'e' scritto niente allora ti suggerisco di provare la Sub FiltraAndFiltraMulti sul file che avevi condiviso, senza modifiche

Fai sapere

[nignetto]

fatto come hai detto..ho visto che il problema è che la ricerca delle colonne da analizzare è impostata su riga 2...come accennato sopra a me servirebbe su riga 1 perche sul foglio originale la 2 mi serve per altre intestazioni..ti allego immagine che fa capire
https://drive.google.com/file/d/1PH34I1 ... sp=sharing

forse se possibile..potrebbe essere esclusa cella a2 e far partire il tutto da a1 verso destra

[Anthony47]

Modifica l'istruzione marcata <<<<<<<<<<<

Codice: Seleziona tutto

Do              'Ricicla per filtrare le colonne successive
'=======
wCol = Sheets("analisi").Range("A1").Offset(0, hOff)         '<<<<<<<<<<
If Len(wCol) = 0 Then Exit Do


Ora punta ad A1; metti i filtri da A1 verso destra ed esegui la solita macro

[nignetto]

grande anthony..perfect!!!!grazie mille..alla prossima ,quando la mia mente contorta partorirà un altra idea