ciao a tutti...
devo trovare tutte le ricorrenze di una certa parola all'interno di un foglio excel e prendere il valore dell'importo a fianco e farne la somma...
io ho fatto cosi ma sembra che non funzioni peche mentre mi dovrebbe trovare solo una volta quella parola , me la trova piu volte e quindi mi fa la somma piu volte dello stesso importo...sicuram ho sbagliato qualcosa...(per ora lo sto facendo in vb ma poi devo trasformarlo in asp)
With Miofoglio.Range("a1500")
Set c = .Find(voce, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
totale_comm = totale_comm + FormatNumber(Miofoglio.Cells(Range(firstAddress).R ow, 3).Value, 2)
Do
Set c = .FindNext(After:=ActiveCell)
totale_comm = totale_comm + FormatNumber(Miofoglio.Cells(Range(c.Address).Row, 3).Value, 2)
Loop While Not c Is Nothing
End If
End With
Rispondi quotando
