velocizzare una macro

[raimea]

ciao

ho una macro che ho creato io con il registratore
e un po’ di cio' che conosco , e’ molto “grezza”, ma funziona.

solo che ora , che deve controllare un certo numero di righe
e’ diventata un po lenta.

vorrei riuscire a velocizzarla.

e’ la macro in mod1 >>> xValori
lo scopo principale e sostituire il punto con la virgola
ai valori delle colonne G,H,I
e mettere il formato € in rosso se negativi
partendo da riga 7

vi allego il file
https://www.dropbox.com/s/4yrbshm68lottcg/velocizzare_2.rar?dl=0

Grazie

[Marius44]

Ciao
Prova a mettere all'inizio della macro: Application.ScreenUpdating = False
e alla fine, prima di End Sub, Application.ScreenUpdating = True

Ciao,
Mario

[raimea]

ciao
ho provato ma rimane lenta

[Anthony47]

A me sembra che la lentezza stia tutta in quel primo blocco:

Codice: Seleziona tutto

'---------------------------------------
' tolgo punto e sostituisco con virgola
'----------------------------------------
For Each cel In Range("g8:i2000")
    cel.FormulaR1C1 = cel.Value
Next


Non so come sono i tuoi dati di partenza, ma prova con questa variante:

Codice: Seleziona tutto

'---------------------------------------
' tolgo punto e sostituisco con virgola
'----------------------------------------
'For Each cel In Range("g8:i2000")
'    cel.FormulaR1C1 = cel.Value
'Next
Range("J7").ClearContents
Range("J7").Copy
Range("g8:i2000").PasteSpecial xlPasteValues, xlPasteSpecialOperationAdd
'----metto formato € rosso--------------------
'etc etc


Il codice di partenza e' stato "commentato", se così funziona puoi cancellarle definitivamente.

Se invece così ci sono dei problemi allora prova a pubblicare il file col contenuto originario del foglio DIARIO per provare altre soluzioni

Ciao

[raimea]

ciao

siiii..

ora e molto piu veloce
svolge il lavoro in tempi accettabili

grazie

ciao