Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Estrazione Data

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Re: Estrazione Data

Postdi Anthony47 » 08/08/18 01:48

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
Avatar utente
Anthony47
Moderatore
 
Post: 17658
Iscritto il: 21/03/06 16:03
Località: Ivrea

Sponsor
 

Re: Estrazione Data

Postdi ik8ozv » 08/08/18 10:32

Grazie Anthony,
una ultima cosa, mi dici dove inserirla esattamente?
Grazie
Enzo
ik8ozv
Utente Junior
 
Post: 58
Iscritto il: 10/04/16 11:54

Re: Estrazione Data

Postdi Anthony47 » 08/08/18 23:28

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
Avatar utente
Anthony47
Moderatore
 
Post: 17658
Iscritto il: 21/03/06 16:03
Località: Ivrea

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "Estrazione Data":

estrazione pagine
Autore: themisterx
Forum: Software Windows
Risposte: 2

Chi c’è in linea

Visitano il forum: Nessuno e 51 ospiti