Estrazione Data

[Anthony47]

Se vuoi che la formula aggiunga anche il valore dell'iva allora devi modificare le due righe ".Formula" in

Codice: Seleziona tutto

    Cells(UR + 2, "F").Formula = "=sum(F1:F" & UR & ")*1.22"

Oppure metti il coefficiente Iva in una variabile e poi usi la variabile nella formula; tipo

Codice: Seleziona tutto

'In testa:
myIva = 1.22           'Aggiunge Iva 22%; usare PUNTO come separatore decimale

Poi l'istruzione diventerebbe:

Codice: Seleziona tutto

    Cells(UR + 2, "F").FormulaLocal = "=somma(F1:F" & UR & ")*" & myIva

Ciao

[ik8ozv]

Grazie Anthony,
una ultima cosa, mi dici dove inserirla esattamente?
Grazie
Enzo

[Anthony47]

Non mi sembrava cosi' difficile sostituire le due istruzioni ".Formula":

Codice: Seleziona tutto

    Sub Somma()
    Dim UR As Long
    Dim rng As Range
    Dim cel As Range
    Dim myT As Double
    '
    Application.ScreenUpdating = False

    UR = Cells(Rows.Count, 6).End(xlUp).Row
    Set rng = Range("F8:F" & UR)
    For Each cel In rng
        cel.Value = cel.Value * 1
'        Cells(UR + 2, "F").Formula = "=sum(F1:F" & UR & ")"            'ELIMINARE
        Cells(UR + 2, "F").Formula = "=sum(F1:F" & UR & ")*1.22"        'INSERIRE

    Next cel
    Application.ScreenUpdating = True
'    Cells(UR + 2, "F").Formula = "=sum(F1:F" & UR & ")"            'ELIMINARE
    Cells(UR + 2, "F").Formula = "=sum(F1:F" & UR & ")*1.22"        'INSERIRE

    End Sub