Ayuda para mejorar código

31/12/2003 - 17:03 por Jesus | Informe spam

Hola a todos,
Tengo el siguiente código para evitar una referencia circular, que suma
en la columna C el valor que se introduce en el rango A12:A150 y quisiera
que al poner un número en una de estas celdas, además de sumarlo, al pulsar
Enter la celda quede vacía (ahora el número permanece).
Espero haberme explicado, y muchas gracias y Feliz Año.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A12:A150")) Is Nothing Then Exit Sub
Target.Offset(0, 2).Value = Target.Offset(0, 2).Value + Target.Value
End Sub

Siga el debate

1 respuesta

Tengo una respuesta

DRAGON AGE™: INQUISITION – Matadragones

Leer las respuestas

#1 Benito Merino

31/12/2003 - 17:43 | Informe spam

Hola Jesús:

Añade Target.value=""

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A12:A150")) Is Nothing Then
Exit Sub
Target.Offset(0, 2).Value = Target.Offset(0, 2).Value +
Target.Value
Target.Value = ""
End Sub

Saludos,

Benito Merino
Barcelona