Premesso che come tester sarò negato
Alcune volte all'apertura, assomiglia ad un albero di natale
Sembra che i bottoni nel MENU siano funzionanti
Tutti i Bottoni Crescenti-Decrescenti (debug, causa un 2 dopo...SortFields.Add2)
In R24=1,1 ed in R25=2, "Poi clicca qui" ma se non dici di modificare quei numeri non succede nulla perche troppo bassi (almeno un Msgbox)
Parliamo ad esempio del foglio RFTUTTI con 45.000 righe e fargli un fare ciclo for (pc quasi bloccato), non sarebbe meglio ordinare la tabella (tramite percentuale) in modo tale che con una ricerca troviamo la riga iniziale e la riga finale e fare un solo un copia/incolla?
Ci sono 11 moduli di cui solo 3 scritti, eliminare quelli vuoti?
Nel VBA usi troppo spesso il Select (casomai activate)
In teoria Copy da Internet i Dati e li incolli in Riepilogo e dopo? Mi domando come fai aggiornare tutti quei 200 fogli?
NB per tre volte ho premuto il tasto (excel aggiorna tutti, anche se non vedo connessioni), non è successo nulla mà il file si è addormentato e ho dovuto chiuderlo. Intendevo premo un tasto nel menu e non si apre più nulla (forse il mio PC).
Comunque file pesantissimo per Excel
Ps. Cosa serve il foglio FINE ?
vb
Sub a()
Dim Lr As Long, R1 As Double, R2 As Double, I As Long, F As Long
Lr = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
If ActiveSheet.Range("R24").Value = "" Or ActiveSheet.Range("R26").Value = "" Then MsgBox "Inserire il MIN e MAX": Exit Sub
I = Application.WorksheetFunction.Match(ActiveSheet.Range("R24").Value, ActiveSheet.Range("G:G"), 1) - 4
F = Application.WorksheetFunction.Match(ActiveSheet.Range("R26").Value, ActiveSheet.Range("G:G"), 1)
If I = False Then MsgBox "Non trovo l'inizio, modifica il MIN": Exit Sub
If F = False Then MsgBox "Non trovo la fine, modifica il MAX": Exit Sub
'ActiveSheet.Range("B" & I & ":K" & F).Copy
'ActiveSheet.Range("T5").PasteSpecial
MsgBox "copio da riga " & I & " a riga " & F
End Sub