I have this code

UltimaRiga = Range("A65356").End(xlUp).Row
For i = 3 To UltimaRiga
Range("G" & i).Value = (Range("D" & i).Value - Range("I" &
i).Value)
Range("G" & i).NumberFormat = "0_ ;[Red]-0 "
Next i

but I think is better (faster) without loop, is it possible?
Thanks in advance!

You could fill the range with a formula, then convert those formulas to values:

Dim UltimaRiga as long
Dim myRng as range
With worksheets("Sheet1")
unltimariga = .cells(.rows.count,"A").end(xlup).row
set myrng = .range("G3:G" & ultimariga)
with myrng
.numberformat = "0_ ;[Red]-0 "
.formula = "=D3-I3"
.value = .value
end with
end with


franco monte wrote:

I have this code

UltimaRiga = Range("A65356").End(xlUp).Row
For i = 3 To UltimaRiga
Range("G" & i).Value = (Range("D" & i).Value - Range("I" &
i).Value)
Range("G" & i).NumberFormat = "0_ ;[Red]-0 "
Next i

but I think is better (faster) without loop, is it possible?
Thanks in advance!

--

Dave Peterson

Dave, can Yuo tell me what riferiments I nedd?
on the line Set myRng = .Range("G3:G" & UltimaRiga)
I have the error: Errore di run-time '1004'.
Errore definito dall'applicazione o dall'oggetto.
Thanks in advance

Dave, can You tell me what riferiments I need?
On the line Set myRng = .Range("G3:G" & UltimaRiga) I have the error:
Errore di run-time '1004'.
Errore definito dall'applicazione o dall'oggetto.
Thanks in advance!

Dave, it seems work correct, is it right for you?

With Range("G3:G" & UltimaRiga)
.NumberFormat = "0_ ;[Red]-0 "
.Formula = "=D3-I3"
.Value = .Value
End With

Try fixing my typo.

I spelled ultimariga incorrectly on one of those lines.

franco monte wrote:

Dave, can You tell me what riferiments I need?
On the line Set myRng = .Range("G3:G" & UltimaRiga) I have the error:
Errore di run-time '1004'.
Errore definito dall'applicazione o dall'oggetto.
Thanks in advance!

--

Dave Peterson

After the typo correction, it worked fine.

If you want to double check the formulas first, just comment that
".value = .value" line.



franco monte wrote:

Dave, it seems work correct, is it right for you?

With Range("G3:G" & UltimaRiga)
.NumberFormat = "0_ ;[Red]-0 "
.Formula = "=D3-I3"
.Value = .Value
End With

--

Dave Peterson

Dave, you are right!
I correct it and now it's ok!
Thank again!

Dave, you are right!
I correct it and now it's ok!
Thank again!