Inserire e copiare formule in celle non contigue

[Pippo]

Non uso Excel e latito da molto tempo in questo ng....ho la necessità di inserire e copiare una formula in celle non contigue ma ad *intervalli fissi*; ad es. vorrei inserire una formula ogni 10 celle della colonna A, cioe' in A10; A20; A30; A40..ecc...necessita una macro?

Sarebbero cmq gradite entrambi le soluzioni: con e senza marco.

Uso Excel 2003 in prevalenza, molto meno Excel 2010.

Ciao e grazie mille!

[Norman Jones]

Ciao Pippo,

Per dimostrare due possibili soluzioni, ho ipotizzato la semplice formula: = B10 + C10

Per risolvere senza vba, nella cella A10, inserisci la formula

=SE(RESTO(RIF.RIGA();10);"";B10+C10)

e trascinala in basso quanto necessario. Modifica B10+C10 secondo le tue esigenze.

Utilizzando VBA per inserire una formula unica in ogni cellula 10th, prova come segue:

Alt-F11 per aprire l'editor di VBA
Alt-IM per inserire un nuovo modulo di codice
Nel nuovo modulo vuoto, incolla il seguente codice:

'=============>>
Option Explicit

'------------->>
Public Sub Tester()
Dim WB As Workbook
Dim SH As Worksheet
Dim Rng As Range
Dim i As Long
Dim CalcMode As Long

Set WB = ActiveWorkbook '<<===== Cambia
Set SH = WB.Sheets("Foglio1") '<<===== Cambia
Set Rng = SH.Range("A10:A400") '<<===== Cambia

With Application
CalcMode = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With

For i = 1 To Rng.Cells.Count Step 10
Rng.Cells(i).Formula = "=" & Rng(i, 2).Address(0, 0) _
& "+" & Rng(i, 3).Address(0, 0)
Next i
With Application
.Calculation = CalcMode
.ScreenUpdating = True
End With

End Sub
'<<=============

Alt-Q per chiudere l'editor di VBA
Alt-F8 per aprire la finestrina macro
Seleziona Tester | Esegui

Siccome vba capisce solo l'inglese, se incontri qualunque problema adattando la formula nel codice, chiedi pure!


===
Regards,
Norman

[Norman Jones]

On Wednesday, February 26, 2014 12:53:31 AM UTC, Norman Jones wrote:

[cut]

> Utilizzando VBA per inserire una formula unica in ogni cellula 10th,
> prova come segue:

[cut]

Avrebbe dovuto essere:

Utilizzando VBA per inserire una formula solo in ogni decima cella, prova come segue:

===
Regards,
Norman