Risultati da 1 a 11 di 11

Discussione: Somma celle e risultato in celle unite



  1. #1
    L'avatar di jigen
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    Vicenza
    EtÓ
    23
    Messaggi
    30
    Versione Office
    2015
    Likes ricevuti
    0
    Likes dati
    0

    Somma celle e risultato in celle unite

    Salve, ho il seguente foglio di calcolo:

    https://s31.postimg.org/ta3rbk0d7/Sc...e_16_24_26.png

    Sto cercando di sommare, con uno script vba oppure con una formula il contenuto delle celle presenti nella colonna AA e posizionarne il contenuto nella cella (unita) corrispondente in AC. Come si pu˛ notare dall'immagine la somma dei valori viene considerata in base al numero di celle sulle quali Ŕ stato fatto il merge. Ho inizialmente tentato di risolvere il problema con una formula ma essendo le celle unite di altezze diverse mi risulta impossibile estendere la formula alle celle adiacenti al di sotto e non posso lavorare a mano perchÚ lavoro con oltre 4000 righe). Sto provando ad utilizzare uno script vba per eseguire la somma e postarne il valore ma non sembra essere corretto.

    Qualcuno gentilmente pu˛ aiutarmi correggendo lo script?

    Grazie in anticipo.

    Ecco lo script:

    Codice: 
    Sub Total()
    
    
        Dim rng As Range
        Dim cella As Range
        Dim cellaDx As Range
        Dim value As Integer
    
    
        value = 0
        'Range valori singoli
        Set rngS = ActiveSheet.UsedRange.Columns(27)
        'Range valori totali
        Set rng = ActiveSheet.UsedRange.Columns(29)
        
        For i = 3 To rng.Rows.Count
            Set cella = rngS.Cells(i, 27)
            Set cellaDx = rng.Cells(i, 29)
            If Cells(i, 29).MergeCells = True Then
                value = value + cella.value
                cellaDx.value = value
            Else
                value = 0
            End If
        Next
    
    
    
    
    End Sub

  2. #2

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    LocalitÓ
    Sardegna
    EtÓ
    37
    Messaggi
    4016
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923

    Re: Somma celle e risultato in celle unite

    Ciao,
    con l'immagine ci si fa poco o niente.

    Allega un file d'esempio, strutturalmente identico all'originale e spiega quello che vorresti ottenere riferendoti ai dati di quel file.

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno pu˛ immaginare."

  3. #3
    L'avatar di jigen
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    Vicenza
    EtÓ
    23
    Messaggi
    30
    Versione Office
    2015
    Likes ricevuti
    0
    Likes dati
    0

    Re: Somma celle e risultato in celle unite

    @cromagno Ecco il file di esempio in allegato. Spero di essermi spiegato meglio cosý :)

    Il codice da adattare sarebbe quindi:

    Codice: 
    Sub Total()
    
    
        Dim rng As Range
        Dim cella As Range
        Dim cellaDx As Range
        Dim value As Integer
    
    
        value = 0
        'Range valori singoli
        Set rngS = ActiveSheet.UsedRange.Columns(2)
        'Range valori totali
        Set rng = ActiveSheet.UsedRange.Columns(24)
        
        For i = 3 To rng.Rows.Count
            Set cella = rngS.Cells(i, 2)
            Set cellaDx = rng.Cells(i, 4)
            If Cells(i, 4).MergeCells = True Then
                value = value + cella.value
                cellaDx.value = value
            Else
                value = 0
            End If
        Next
    
    
    
    
    End Sub
    File Allegati File Allegati

  4. #4

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    LocalitÓ
    Sardegna
    EtÓ
    37
    Messaggi
    4016
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923

    Re: Somma celle e risultato in celle unite

    Ciao,

    prova cosý:

    Codice: 
    Sub Somma()
    Dim Dati As Range, i As Long, uriga As Long, Totale As Double
    Dim x As Long
    
    
    uriga = Range("A" & Rows.Count).End(xlUp).Row
    If uriga > 1 Then
        Range("D2:D" & uriga).ClearContents
        For i = 3 To uriga
            Totale = 0
            x = Range("D" & i).MergeArea.Rows.Count
            Set Dati = Range("D" & i).MergeArea.Offset(, -2).Resize(x)
            Totale = Application.WorksheetFunction.Sum(Dati)
            Cells(i, 4).Value = Totale
            i = i + x - 1
        Next i
    End If
    Set Dati = Nothing
    End Sub
    File Allegati File Allegati

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno pu˛ immaginare."

  5. #5
    L'avatar di jigen
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    Vicenza
    EtÓ
    23
    Messaggi
    30
    Versione Office
    2015
    Likes ricevuti
    0
    Likes dati
    0

    Re: Somma celle e risultato in celle unite

    Ciao @cromagno,
    intanto grazie per la risposta, il risultato tuttavia non Ŕ quello sperato

    Allego nuovamente il file con la macro ed il risultato ottenuto.
    File Allegati File Allegati

  6. #6
    L'avatar di Cuc¨^_^
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    TrentoGallipoliTaranto
    EtÓ
    46
    Messaggi
    309
    Versione Office
    2010
    Likes ricevuti
    57
    Likes dati
    17

    Re: Somma celle e risultato in celle unite

    Prova il file allegato.
    Cuc¨

    Codice: 
    Sub Somma_Cucu()
    Dim Ir As Long, CRow As Long, I As Long
    
    
    Ir = Range("A" & Rows.Count).End(xlUp).Row
    If Ir > 2 Then
    Range("D3:D" & Ir).ClearContents
        For I = 3 To Ir
        CRow = Range("A" & I).MergeArea.Rows.Count
            If CRow > 1 Then
                Cells(I, 4) = WorksheetFunction.Sum(Range(Cells(I, 2), Cells(I + CRow - 1, 2)))
                I = I + CRow - 1
            Else
                Cells(I, 4) = Cells(I, 2)
            End If
        Next I
    End If
    MsgBox "Elaborazione terminata!"
    
    
    End Sub
    File Allegati File Allegati

  7. #7
    L'avatar di jigen
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    Vicenza
    EtÓ
    23
    Messaggi
    30
    Versione Office
    2015
    Likes ricevuti
    0
    Likes dati
    0

    Re: Somma celle e risultato in celle unite

    @Cuc¨^_^ L'ho appena provato sul file di esempio e sembrerebbe funzionare, come posso fare per far si che nella colonna D le celle vengano unite in base all'altezza della colonna A? (Vedi allegato)
    Ti allego il file di esempio con il tuo script funzionante e con le mie modifiche alla tabella.

    Edit

    Ho modificato lo script con una riga ed ho ricaricato l'allegato corretto
    File Allegati File Allegati

  8. #8
    L'avatar di Cuc¨^_^
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    TrentoGallipoliTaranto
    EtÓ
    46
    Messaggi
    309
    Versione Office
    2010
    Likes ricevuti
    57
    Likes dati
    17

    Re: Somma celle e risultato in celle unite

    Codice: 
    Sub Somma_Cucu()
    Dim Ir As Long, CRow As Long, I As Long
    
    
    Ir = ActiveSheet.UsedRange.Rows.Count
    If Ir > 2 Then
    With Range("D3:D" & Ir)
        .ClearContents
        .UnMerge
        .VerticalAlignment = xlCenter
        .HorizontalAlignment = xlCenter
    End With
        For I = 3 To Ir
        CRow = Range("A" & I).MergeArea.Rows.Count
            If CRow > 1 Then
                Cells(I, 4) = WorksheetFunction.Sum(Range(Cells(I, 2), Cells(I + CRow - 1, 2)))
                Range(Cells(I, 4), Cells(I + CRow - 1, 4)).Merge
                I = I + CRow - 1
            Else
                Cells(I, 4) = Cells(I, 2)
            End If
        Next I
    End If
    MsgBox "Elaborazione terminata!"
    
    
    End Sub

  9. I seguenti utenti hanno dato un "Like"


  10. #9
    L'avatar di jigen
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    Vicenza
    EtÓ
    23
    Messaggi
    30
    Versione Office
    2015
    Likes ricevuti
    0
    Likes dati
    0

    Re: Somma celle e risultato in celle unite

    Proprio quello che stavo cercando, ho capito il mio errore, grazie mille

  11. #10

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    LocalitÓ
    Sardegna
    EtÓ
    37
    Messaggi
    4016
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923

    Re: Somma celle e risultato in celle unite

    Citazione Originariamente Scritto da jigen Visualizza Messaggio
    Ciao @cromagno,
    intanto grazie per la risposta, il risultato tuttavia non Ŕ quello sperato

    Allego nuovamente il file con la macro ed il risultato ottenuto.
    Ciao a tutti,
    mi ero dimenticato di questa discussione

    ma vedo che hai comunque risolto grazie a Cuc¨

    Tuttavia ho voluto capire perchŔ hai detto che il risultato non era quello desiderato.

    Il problema Ŕ nato dal fatto che nel primo file allegato, l'ultima riga piena della colonna A corrispondeva all'ultima riga piena della colonna B, mentre ci˛ non accade nel secondo file allegato..... errore mio che non ho previsto questa (probabilissima) situazione.

    Comunque il tutto si risolve semplicemente facendo riferimento all'ultima riga della colonna B (anzichŔ della A), e quindi modificare questa riga:
    Codice: 
    uriga = Range("A" & Rows.Count).End(xlUp).Row
    in questo modo:
    Codice: 
    uriga = Range("B" & Rows.Count).End(xlUp).Row
    ti riallego il file, dove hai due pulsanti per i usare i due codici.

    Ciao
    Tore
    File Allegati File Allegati

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno pu˛ immaginare."

  12. #11
    L'avatar di jigen
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    Vicenza
    EtÓ
    23
    Messaggi
    30
    Versione Office
    2015
    Likes ricevuti
    0
    Likes dati
    0

    Re: Somma celle e risultato in celle unite

    @cromagno grazie per la spiegazione, colpa mia che non mi sono spiegato bene all'inizio, grazie a tutti alla prossima

Discussioni Simili

  1. Trasportare celle unite a celle singole
    Di Catwoman nel forum Domande su Excel in generale
    Risposte: 21
    Ultimo Messaggio: 24/08/16, 19:00
  2. Copiare celle unite
    Di liuno nel forum Domande su Excel in generale
    Risposte: 8
    Ultimo Messaggio: 07/08/16, 19:19
  3. Copiare celle unite
    Di liuno nel forum Domande su Excel in generale
    Risposte: 2
    Ultimo Messaggio: 06/08/16, 20:46
  4. dividere celle unite
    Di mapero nel forum Domande su Excel in generale
    Risposte: 11
    Ultimo Messaggio: 04/05/16, 02:04
  5. Copia valori da celle unite
    Di Lore02 nel forum Domande su Excel VBA e MACRO
    Risposte: 8
    Ultimo Messaggio: 01/03/16, 20:25

Tag per Questa Discussione

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •