Domanda.

nome=Agostino
cognome=Volpetti
versione=2000
conosco3=buono
macro=SI
email=v.ago@tiscali.it
chra=138
problema=Se si vuole formattare un’area all’interno di un foglio di lavoro in modo che, immettendo un numero in una cella, esso venga automaticamente sommato al valore precedentemente contenuto nella cella stessa, come posso fare?
Mi hanno detto che posso risolvere il tutto con questa macro creando un nuovo foglio chiamato Foglioaux; ma dov'è l'errore dato che non va? GRAZIE

Public Valore As Boolean    'da mettere nella sezione Generale - Dichiarazioni del foglio sul quale si opera (n.d.wm.)
Private Sub worksheet_change(ByVal Dest As Range)
Dim Riga, Colonna As Integer
If Not Valore Then
If Dest.Count = 1 Then
X = Dest.Value
Riga = Dest.Row
Colonna = Dest.Column
If Colonna > 1 And Colonna < 3 Then
If Riga > 1 And Riga < 30 Then
Y = Worksheets("Foglioaux").Cells(Riga, Colonna).Value
Valore = True
X = X + Y
Dest.Value = X
Worksheets("Foglioaux”).Cells(Riga, Colonna).Value = X
End If
End If
End If
End If
Valore = False
End Sub

Risposta.

(nota del wm.: routine e idea interessante, complimenti all'autore)

Ago, a pare un piccolo errore nella tua macro dove il secondo doppio apice in questa riga non viene accettato dal codice (il secondo doppio apice è in un carattere diverso):
Worksheets("Foglioaux”).Cells(Riga, Colonna).Value = X
e va sostituito con
Worksheets("Foglioaux").Cells(Riga, Colonna).Value = X
la routine funziona bene. Ma tu le istruzioni dove le hai messe? perchè vanno inserite nel modulo del foglio sul quale agisci, non in quello FoglioAux.
Poi le celle che reagiscono sono le celle della colonna B, fino alla riga 30, quindi se i numeri da modificare sono in altre colonne o altre celle oltre la 30, la macro non agisce.
Ma chi te le ha mandate, le istruzioni, ti avrà pure spiegato, o no?
saluti, ennius

Conferma.

TI RINGRAZIO per avermi risposto, gli errori li avevo già corretti ma nonostante tutto non riesco a capire. 1) mi escono numeri illeggibili di non so quante cifre e la macro spesso si blocca a metà esecuzione incorrispondenza di:. X = X + Y C'è qualcosa che mi sfugge, potresti spiegarmi passo per passo come fare? GRAZIE

Risposta.

no Ago, non sono mica un indovino. Come pensi che possa conoscere cosa combini.
Dovrai sforzarti di capire cosa vogliono dire le istruzioni, come agiscono sui tuoi fogli, e come hai tu impostato le tue tabelle.
Mi dispiace, saluti, ennius