Incrementare valore cella

Hai un problema con Excel?

Nuova discussione

Incrementare valore cella
di Mauro1975 data: 21/04/2011
Buongiorno a tutti,
preannuncio che sono nuovo del forum.
ho scritto una macro per incrementare di un valore x(contenuto nella cella b70) una serie di celle.la macro funziona ma ha un piccolo difetto.supponiamo che il valore iniziale di una cella da modificare è 2,20 inserisco in b70 il valore 0,30 la cella diventa 2,50 ma se inserisco un altro valore in b70 per esempio 0,50 la cella si incrementa partendo dal valore iniziale e diventa 2,70 io devo trovare una soluzione che aggiunga al vecchio aumento e cioe la cella deve diventare 3,00.non so se sono stato chiaro.qualcuno mi potrebbe gentilmente aiutare e' di fondamentale importanza per me risolvere questo problema grazie!!!

Private Sub CommandButton2_Click()

Dim B As String
Dim c As Integer
B = "b"



For i = 19 To 43 Step 2
c = Range(B & i).Value

Range(B & i).Value = c + [b70]
Next i

For i = 46 To 62 Step 2
c = Range(B & i).Value

Range(B & i).Value = c + [b70]
Next i
End Sub

di Locate (utente non iscritto) data: 21/04/2011
Ciao
prova a sostituire la tua macro con questa

ciao da locate
excel 2003

Private Sub CommandButton2_Click()
''
Dim i
''
For i = 19 To 43 Step 2
   Cells(i, 2) = Cells(i, 2) + [b70]
Next i
''
For i = 46 To 62 Step 2
  Cells(i, 2) = Cells(i, 2) + [b70]
Next i
End Sub

Grazie
di Mauro1975 (utente non iscritto) data: 21/04/2011
Grazie locate sei grande!!!!!

Vuoi Approfondire?