You are here:--[RISOLTO] Seleziona_somma
[RISOLTO] Seleziona_somma 2018-11-12T15:25:45+00:00

Home Forum Domande su Formule e Funzioni [RISOLTO] Seleziona_somma

Tag: 

  • Autore
    Articoli
  • giorgioantonio
    Partecipante
      Post totali: 171
      #7162 |

      https://www.dropbox.com/s/08yupcxxem835od/Seleziona_somma.xlsb?dl=0

      Salve,

      se possibile due righe di macro.
      Nel file ho indicato cosa vorrei e specifico meglio:
      SELEZIONO una parte della colonna AB e al pari
      la colonna AC;
      l’esito di colonna AB andrebbe in colonna AD
      mentre l’esito di colonna Ac andrebbe in
      colonna AE,
      infine sulla stessa riga delle 2 somme in colonna
      AF la differenza.
      Mi ripeto che la somma deve essere fatta su mia
      selezione di entrambe le colonne e che la macro
      funzioni con Ctrl+z
      Nel file sono indicati i relativi esiti
      Grazie dell’aiuto

      • Questo argomento è stato modificato 6 giorni, 5 ore fa da sid sid.
    • sidsid
      Moderatore
        Post totali: 440

        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
      • giorgioantonio
        Partecipante
          Post totali: 171

          Salve,

          funziona a meraviglia solo non accetta
          il Ctrl+z.
          Cmq va benissimo.

          Grazie

        • sidsid
          Moderatore
            Post totali: 440

            Nell’open del workbook

            Private Sub Workbook_Open()
             Application.MacroOptions Macro:="prova", ShortcutKey:="z"
            End Sub
          • giorgioantonio
            Partecipante
              Post totali: 171

              Salve,

              nell’open di worbook
              Pensavo di saperne di più.
              Dove?

            • sidsid
              Moderatore
                Post totali: 440

                Dipende dalla versione del tuo excel.
                Fino alla 2003 il modulo si chiama “ThisWorkbook” altrimenti “Questa cartella di lavoro”

              • sidsid
                Moderatore
                  Post totali: 440
                • giorgioantonio
                  Partecipante
                    Post totali: 171

                    Salve,

                    l’ho incollato in questa cartella di lavoro
                    excel 2013.
                    Però se poi dovessi usare il Ctrl+z per un
                    altro lavoro.
                    Io direi che sta bene così.
                    Ho creato un bottone per lanciare la macro
                    e quindi mi sta bene.
                    Grazie

                  La discussione ‘[RISOLTO] Seleziona_somma’ è chiusa a nuove risposte.

                  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