Moderatori: Anthony47, Flash30005
Sub Consolida()
CercaC = "R1" '<<<- Cella col valore da cercare
OutC = "S1" '<<<- Cella per la somma
Lfor = Range(CercaC).Value
For Each CCell In ActiveSheet.UsedRange
If CCell.Value = Lfor Then WorkV = WorkV + Val(CCell.Offset(0, 4).Value)
Next CCell
Range(OutC) = WorkV
End Sub
Torna a Applicazioni Office Windows
Modidica Formula Somma I Riferimenti Autore: Francesco6918 |
Forum: Applicazioni Office Windows Risposte: 2 |
Inserire 2 valori nella stessa cella Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 2 |
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
Visitano il forum: Nessuno e 47 ospiti