INCREMENTARE UNA VARIABILE

Hai un problema con Excel?

Nuova discussione

INCREMENTARE UNA VARIABILE
di maxp72 data: 28/01/2014 14:05:51
Salve
ho una macro in cui devo passare un elenco di celle, nel caso in una cella trovo il valore "x" allora prendo il valore della colonna "B" di quella riga, quando arrivo in fondo all'elenco di celle devo scrivere una formula dove vado a "sommare" tutti i valori trovati esempio: primo_valore;secondo_valore;terzo_valore, come si puo' fare una cosa del genere?
sotto il codice che ho gia' creato e che devo incrementare con la variabile che fa' la "somma" di tutti i valori trovati.
Grazie

    Dim lastrow As Long
    lastrow = ActiveSheet.Range("A1").End(xlDown).Row
    Range("C2").Select
    
    For A = 1 To lastrow - 1
    If ActiveCell.Value = "X" Then
    RIGA = ActiveCell.Row
    USER1 = Range("B" & RIGA).Value & ";"
    Else
    End If
    
    ActiveCell.Offset(1, 0).Select

    Next A
    
    ActiveCell.FormulaR1C1 = USER1+USER2

di patel data: 28/01/2014 14:12:07
così

Dim lastrow As Long
    lastrow = ActiveSheet.Range("A1").End(xlDown).Row
    Range("C2").Select
    For A = 1 To lastrow - 1
      If ActiveCell.Value = "X" Then
         RIGA = ActiveCell.Row
         USER1 =USER1 & Range("B" & RIGA).Value & ";"
      End If
      ActiveCell.Offset(1, 0).Select
    Next A
    ActiveCell.FormulaR1C1 = USER1+USER2

di maxp72 (utente non iscritto) data: 28/01/2014 14:35:53
Perfetto!
Grazie 1000

Vuoi Approfondire?