Jump to content

Sumar Celda Activa mas anterior Celda


Gaspatin

Recommended Posts

Hola a todos:

Tengo lo siguiente en el libro de VBA:

[DBOX]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

On Error Resume Next

If Not Intersect(Target, Range("B4:H14,B6:H6")) Is Nothing Then

ActiveCell.Value = ActiveCell.Offset(0, -1).Value + ActiveCell.Value

End If

End Sub

[/DBOX]

Lo que quiero es que al introducir un dato en cualquiera de esas celdas me sume ese valor con el dato y me deje ese dato en la misma celda. Lo he intentado de otras maneras pero me genera una especie de bucle y no he podido solucionarlo, y las que les describo me datos diferentes. Si de favor pueden ayudarme. Gracias.

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy