Ver Mensaje Individual
  #5 (permalink)  
Antiguo 12/11/2009, 01:08
Avatar de ceSharp
ceSharp
 
Fecha de Ingreso: octubre-2008
Ubicación: Madrid
Mensajes: 495
Antigüedad: 15 años, 5 meses
Puntos: 66
Respuesta: suma o resta automatica en excel

Hola de nuevo,

ayer, con las prisas, se me olvidó comentarte una cosa. Es posible que quieras que la fila 1 sea de enunciados, y con este método que te pasé no vas a poder implementarlos porque hace sumas en cualquier fila. Con este método detecta si es o no la fila 1 y si es esta no hace las sumas
----------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim columna As String
Dim fila As Integer
columna = Columns(Target.Column).Address(False, False)
columna = Left(columna, InStr(1, columna, ":") - 1)
fila = Target.Row
If fila <> 1 Then
Dim rango As String
rango = columna & fila
'si no es en la columna A no sumamos
If columna = "A" Then
If IsNumeric(Range("A" & fila)) Then
Range("B" & fila) = Range("B" & fila) + Range("A" & fila)
End If
'borramos el rango
Range("A" & fila) = 0
End If
End If
End Sub
-------------------------------

salu2