Inserire valore assoluto in formula

[Ricky0185]

Buongiorno,

Codice: Seleziona tutto

Dim C As Range
    For Each C In Sheets("Foglio1").Range("b5:b30") 
C.Offset(0, 5) = C.Offset(0, 4).Value * C.Offset(-1, 5).Value

È possibile trasformare il

Codice: Seleziona tutto

 * C.Offset(-1, 5).Value

in valore assoluto, cioè come con il simbolo del dollaro cliccando F4 in una formula tipo =+F6*$G$4.
Il C.Offset(-1, 5).Value dovrebbe essere fisso, come il $G$4.
Grazie
R

[Anthony47]

Cioè

Codice: Seleziona tutto

Dim C As Range
    For Each C In Sheets("Foglio1").Range("b5:b30")
        C.Offset(0, 5) = C.Offset(0, 4).Value * Sheets("Foglio1").Range("G4").Value


??

In questo caso sarà piu' efficiente prima caricare una variabile col contenuto di G4 e poi usare quella variabile nel loop come secondo fattore della moltiplicazione

[Ricky0185]

Mò provo...appena salto sul portatile di casa (il muletto), poi ti so dire
Ciao

[Ricky0185]

Funziona funziona....naturalmente.
Grazie e Buon WE
R