somma con vba

[mandozPartecipante mandoz]

ciao a tutti,

 

ho recuperato una creazione di Patel (grazie) che funziona egregiamente bene.

la sacra scrittura compie somma algebrica sulla cella attiva. mi sono accorto che non funziona a partire da una cella vuota. come posso rimediare.

 

grazie x l'aiuto.

Allegati:

You must be logged in to view attached files.

[Luca73Partecipante Luca73 Karma: 58 pts]

Se ho ben capito il problema e il codice dovrebbe bastare fare la modifica sotto riportata

Ovvero Se la cella era vuota inserire il nuovo valore se no fare la somma.

Private Sub Worksheet_Change(ByVal Target As Range)
If IsEmpty(Target) Then Exit Sub
If Not Intersect(Target, Range("D4:AH15")) Is Nothing Then
    newval = Target.Value
    Application.EnableEvents = False
    Application.Undo 'the previous value is re-established.
    oldval = Target.Value
    If oldval = "" Then
        Target.Value = newval
    Else
        Target.Value = oldval + newval
    End If
  Application.EnableEvents = True
End If
End Sub

[patelModeratore patel Karma: 51 pts]

oppure

  oldval = Val(Target.Value)

[mandoz mandoz]

ciao ad entrambi.

sono valide le soluzioni che avete trovato. grazie

ho scoperto altro problemino. la somma algebrica cessa di funzionare se andiamo a sommare valori decimali. non riscontro problemi con numeri interi

 

di nuovo

grazie

 

[Autore]

Articoli