Condividi:        

MACRO - velocizzare

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

MACRO - velocizzare

Postdi Lucio Peruggini » 06/07/12 21:24

Gentilmente si può migliorare la velocità di questa macro?
Deve eliminare circa 40.000 righe ed è un po lenta.
Grazie

Codice: Seleziona tutto
Sub eliminarighevuote()
Sheets("foglio1").Activate
With ActiveSheet.UsedRange
alex = .Row + .Rows.Count - 1
End With
Application.ScreenUpdating = False
For r = alex To 1 Step -1
If Application.Count(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub
Lucio P.
Versione Office - 2013
Lucio Peruggini
Utente Senior
 
Post: 896
Iscritto il: 24/01/11 16:23

Sponsor
 

Re: MACRO - velocizzare

Postdi Flash30005 » 06/07/12 21:34

Inserisci queste righe all'inizio della macro
Codice: Seleziona tutto
Sub eliminarighevuote() 'nome macro - inizio
Application.ScreenUpdating = False
Application.Calculation = xlManual
'.... tua macro

e queste alla fine
Codice: Seleziona tutto
'... tua macro
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub '<<<<<<<<<<<< esistente fine macro


Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: MACRO - velocizzare

Postdi Lucio Peruggini » 06/07/12 21:59

Grazie Flash, è migliorata di molto ma, probabilmente dipende sicuramente anche dal processore. Ho notato anche che, quando faccio altre ricerche adoperando script piuttosto pesanti e li interrompo circa a metà per poi riprenderli dal medesimo punto non appesantisco e quindi velocizzo.
Grazie
Lucio P.
Versione Office - 2013
Lucio Peruggini
Utente Senior
 
Post: 896
Iscritto il: 24/01/11 16:23

Re: MACRO - velocizzare

Postdi Lucio Peruggini » 06/07/12 22:12

Scusa Flash, come si fa a lasciare la prima riga visibile? Sulla prima riga ho l'icona per far partire la macro che, mi sparisce a fine lavoro.
Ho risolto assegnando alla macro Ctrl = M ma sono comunque curioso della modifica per ottenere quanto chiesto.
Grazie
Lucio P.
Versione Office - 2013
Lucio Peruggini
Utente Senior
 
Post: 896
Iscritto il: 24/01/11 16:23

Re: MACRO - velocizzare

Postdi Flash30005 » 06/07/12 22:29

Cmabiando la riga codice del "For"

Tu hai
Codice: Seleziona tutto
For r = alex To 1 Step -1

metti 2 (o 3 o 4) al posto di 1 e la macro lascerà la invariata la prima riga
Codice: Seleziona tutto
For r = alex To 2 Step -1


Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: MACRO - velocizzare

Postdi Lucio Peruggini » 06/07/12 23:18

Ok, grazie Flash
Lucio P.
Versione Office - 2013
Lucio Peruggini
Utente Senior
 
Post: 896
Iscritto il: 24/01/11 16:23


Torna a Applicazioni Office Windows


Topic correlati a "MACRO - velocizzare":


Chi c’è in linea

Visitano il forum: Marius44 e 56 ospiti