¿Como incremento datos en una celda a partir del numero anterior ?

' Esbribir solo numeros en la celda B1
' bloque como evento '_Change' de la hoja de trabajo en la que quieras
aplicarlo
' evento 'WorkBook_SheetChange' del objeto "ThisWorkbook"
'copiar en cada hoja si deseas aplicarlo a todas las hojas del libro

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Address = "$B$1" And .Value <> "" Then
If IsEmpty(.Value) = False And IsNumeric(.Value) Then Cells(1,
1) = Cells(1, 1) + .Value
.Select: .Value = ""
End If
End With
End Sub

Gabriel Raigosa
Medellín - Colombia

news://msnews.microsoft.com/
news://msnews.microsoft.com/microso...c.es.excel

"Oswaldo Vargas" <Oswaldo escribió en el
mensaje news:

Deseo que en una misma celda se incremente el valor a partir de la
cantidad
anterior por ej: si en la celda tengo 5 e ingreso 3 enla misma celda que
se
incremente a 8