You are here:---Rispondi a: [RISOLTO] Seleziona_somma
Rispondi a: [RISOLTO] Seleziona_somma 2018-11-10T19:12:26+00:00

Home Forum Domande su Formule e Funzioni [RISOLTO] Seleziona_somma Rispondi a: [RISOLTO] Seleziona_somma

sidsid
Moderatore
    Post totali: 437

    Prova questo codice (devi impostare te la combinazione da tastiera che vuoi)
    In pratica appare una inputbox che ti fa selezionare il range che vuoi; logicamente deve essere AB:AC

    
    Sub prova()
    Dim rng As Range
    Dim nSomma1 As Variant, nSomma2 As Variant, nDifferenza As Variant
    Dim uRiga As Long
    
    On Error Resume Next
    Set rng = Application.InputBox("Seleziona un range di AB:AC", Type:=8)
    
    If Not rng Is Nothing Then
      uRiga = rng.Find("*", rng(1, 1), xlValues, , xlByRows, xlPrevious).Row
        With Application.WorksheetFunction
            nSomma1 = .Sum(rng.Columns(1))
            nSomma2 = .Sum(rng.Columns(2))
        End With
        nDifferenza = nSomma1 - nSomma2
        Range("AD" & uRiga).Value = nSomma1
        Range("AE" & uRiga).Value = nSomma2
        Range("AF" & uRiga).Value = nDifferenza
    Else
        On Error GoTo 0
    End If
    
    End Sub

    Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

    Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

    Chiudi